Jak zbiorczo otworzyć wszystkie hiperłącza z określoną domeną w wiadomości e-mail programu Outlook

Podczas przeglądania wiadomości e-mail programu Outlook, która zawiera wiele hiperłączy w treści, czasami możesz chcieć tylko szybko otworzyć hiperłącza z określonej domeny. Tutaj udostępnimy metodę zbiorczego otwierania takich hiperłączy.

Wobec wielu hiperłączy w jednym e-mailu, możesz mieć nadzieję, że zamiast wszystkich sprawdzisz niektóre z nich. Na przykład chcesz zbiorczo otwierać hiperłącza z określoną domeną. Ogólnie rzecz biorąc, musisz je otwierać po kolei. Jest to bardzo kłopotliwe. Dlatego poniżej nauczymy Cię wygodniejszego sposobu.

Otwórz zbiorczo wszystkie hiperłącza z określoną domeną w wiadomości e-mail

1. Na początek uzyskaj dostęp do edytora VBA programu Outlook zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie w oknie „Microsoft Visual Basic for Applications” włącz odwołanie do „Biblioteki obiektów MS Word” z odwołaniem do „Jak dodać odwołanie do biblioteki obiektów w języku VBA".
3. Następnie skopiuj następujący kod VBA do nieużywanego modułu lub 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. Następnie dodaj to makro do paska narzędzi szybkiego dostępu lub wstążki.
5. Na koniec wykonaj następujące czynności, aby spróbować.

• Po pierwsze, wybierz lub otwórz wiadomość e-mail programu Outlook.
• Następnie kliknij przycisk makro.
• Od razu hiperłącza ze wstępnie zdefiniowaną domeną w wiadomości e-mail zostaną zbiorczo otwarte w przeglądarce Internet Explorer, jak pokazano na poniższej ilustracji:

Pozbądź się irytującej korupcji programu Outlook

Chociaż Outlook jest podatny na błędy i korupcję, tak długo, jak uważasz na wszystkie zagrożenia, możesz z łatwością przed nimi uciec. Na przykład musisz regularnie tworzyć kopie zapasowe danych dla programu Outlook. Poza tym należy uważać na podejrzane e-maile, które mogą zawierać wirusy. Wreszcie, lepiej przygotuj plik Naprawa programu Outlook narzędzie, takie jak DataNumen Outlook Repair. Jest w stanie pomóc w przypadku uszkodzenia programu Outlook.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym skorumpowany SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com