Ako je možné v e-maile programu Outlook otvoriť všetky hypertextové odkazy na konkrétnu doménu

Pri prezeraní e-mailu v Outlooku, ktorý obsahuje veľa hypertextových odkazov v tele, si občas budete možno chcieť rýchlo otvoriť hypertextové odkazy iba s konkrétnou doménou. Tu budeme zdieľať metódu hromadného otvárania takýchto hypertextových odkazov.

Tvárou v tvár viacerým hypertextovým odkazom v jednom e-maile môžete dúfať, že namiesto všetkých skontrolujete niektoré z nich. Napríklad by ste chceli iba hromadne otvoriť hypertextové odkazy s konkrétnou doménou. Spravidla ich musíte otvoriť po jednom. Je to veľmi nepríjemné. Preto vás v nasledujúcich textoch naučíme pohodlnejším spôsobom.

Dávkové otváranie všetkých hypertextových odkazov s konkrétnou doménou v e-maile

1. Pre akotart, prístup k editoru Outlook VBA podľa „Ako spustiť kód VBA v programe Outlook".
2. Následne v okne „Microsoft Visual Basic for Applications“ povoľte odkaz na „MS Word Object Library “s odkazom na„Ako pridať objekt Library Odkaz vo VBA".
3. Potom skopírujte nasledujúci kód VBA do nepoužívaného modulu alebo projektu.

Sub BatchOpenHyperlinksWithSpecificDomain()
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
    Dim objDictionary As Object
    Dim i As Integer
    Dim varHyperlinks As Variant
    Dim varHyperlink As Variant
    Dim objInternetExplorer As Object
 
    'Get the source email
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    Set objMailDocument = objMail.GetInspector.WordEditor
    For Each objHyperlink In objMailDocument.Hyperlinks
        If InStr(1, objHyperlink.Address, "www.datanumen.com") > 0 Then
           'Add Hyperlinks to Dictionary
           If objDictionary.Exists(objHyperlink.Address) = False Then
              objDictionary.Add objHyperlink.Address, 1
           End If
        End If
    Next
 
    'Batch Open Hyperlinks on different tabs in same Internet Explorer window
    Set objInternetExplorer = CreateObject("InternetExplorer.Application")
    varHyperlinks = objDictionary.Keys
    For i = LBound(varHyperlinks) To UBound(varHyperlinks)
        varHyperlink = varHyperlinks(i)
 
        If i = 0 Then
           objInternetExplorer.Visible = True
           objInternetExplorer.navigate varHyperlink
        Else
           objInternetExplorer.navigate varHyperlink, CLng(2048)
        End If
    Next
End Sub

4. Ďalej pridajte toto makro na panel s nástrojmi alebo na pásku s nástrojmi Rýchly prístup.
5. Nakoniec vyskúšajte nasledujúce kroky.

• Najskôr vyberte alebo otvorte e-mail programu Outlook.
• Potom kliknite na tlačidlo makra.
• Hypertextové odkazy s preddefinovanou doménou v e-maile sa naraz otvoria v aplikácii Internet Explorer hromadne, ako je to znázornené na nasledujúcom obrázku:

Zbavte sa dráždivej korupcie v programe Outlook

Aj keď je Outlook citlivý na chyby a poškodenia, v skutočnosti, pokiaľ dávate pozor na všetky riziká, môžete z nich ľahko uniknúť. Napríklad je potrebné pravidelne zálohovať dáta pre Outlook. Okrem toho by ste si mali dávať pozor na podozrivé e-maily, ktoré môžu obsahovať vírusy. V neposlednom rade si radšej pripravte Oprava Outlook užitočnosť, ako napr DataNumen Outlook Repair. Je schopný vám pomôcť v prípade poškodenia aplikácie Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S