Jak dávkově otevřít všechny hypertextové odkazy s konkrétní doménou v e-mailu aplikace Outlook

Při prohlížení e-mailu aplikace Outlook, který obsahuje mnoho hypertextových odkazů v těle, můžete někdy chtít rychle otevřít hypertextové odkazy pouze s konkrétní doménou. Zde budeme sdílet metodu hromadného otevírání takových hypertextových odkazů.

Tváří v tvář několika hypertextovým odkazům v jednom e-mailu můžete doufat, že místo všech zkontrolujete některé z nich. Například byste chtěli dávkové otevření hypertextových odkazů pouze s konkrétní doménou. Obecně je musíte kliknutím jeden po druhém otevřít. Je to velmi problematické. Proto vás v následujících bodech naučíme pohodlnější způsob.

Dávkové otevření všech hypertextových odkazů se specifickou doménou v e-mailu

1. Pro jakotart, přístup k editoru Outlook VBA podle „Jak spustit kód VBA ve vašem Outlooku".
2. Následně v okně „Microsoft Visual Basic for Applications“ povolte odkaz na „MS Word Object Library “s odkazem na„Jak přidat objekt Library Reference ve VBA".
3. Potom zkopírujte následující kód VBA do nepoužívaného modulu nebo 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. Dále přidejte toto makro na panel nástrojů Rychlý přístup nebo na pás karet.
5. Nakonec vyzkoušejte následující kroky.

• Nejprve vyberte nebo otevřete e-mail aplikace Outlook.
• Poté klikněte na tlačítko makra.
• Hypertextové odkazy s předdefinovanou doménou v e-mailu budou najednou hromadně otevřeny v aplikaci Internet Explorer, jak je znázorněno na následujícím obrázku:

Zbavte se dráždivé korupce v aplikaci Outlook

Přestože je Outlook náchylný k chybám a poškozením, ve skutečnosti, pokud budete dávat pozor na všechna rizika, můžete z nich snadno uniknout. Například je třeba pravidelně zálohovat data pro Outlook. Kromě toho byste si měli dávat pozor na podezřelé e-maily, které mohou obsahovat viry. V neposlední řadě si raději připravte Oprava aplikace Outlook nástroj, jako je DataNumen Outlook Repair. Je schopen vám pomoci v případě poškození aplikace Outlook.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com