So öffnen Sie alle Hyperlinks mit einer bestimmten Domäne in Ihrer Outlook-E-Mail

Wenn Sie eine Outlook-E-Mail anzeigen, die viele Hyperlinks im Text enthält, möchten Sie die Hyperlinks manchmal nur schnell mit einer bestimmten Domain öffnen. Hier teilen wir eine Methode zum Öffnen solcher Hyperlinks in großen Mengen.

Angesichts mehrerer Hyperlinks in einer E-Mail können Sie hoffen, einige davon anstelle aller zu überprüfen. Beispielsweise möchten Sie die Hyperlinks nur mit einer bestimmten Domain stapelweise öffnen. Im Allgemeinen müssen Sie nacheinander klicken, um sie zu öffnen. Es ist sehr mühsam. Daher werden wir Ihnen im Folgenden einen bequemeren Weg zeigen.

Öffnen Sie alle Hyperlinks mit einer bestimmten Domain in E-Mail

1. Für astart Rufen Sie den Outlook VBA-Editor gemäß „So führen Sie VBA-Code in Outlook aus".
2. Aktivieren Sie anschließend im Fenster "Microsoft Visual Basic für Applikationen" den Verweis auf "MS Word Object Library ”mit Bezug auf“So fügen Sie eine Objektbibliothek hinzurary Referenz in VBA".
3. Kopieren Sie dann den folgenden VBA-Code in ein nicht verwendetes Modul oder Projekt.

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. Fügen Sie dieses Makro als Nächstes der Symbolleiste oder dem Menüband für den Schnellzugriff hinzu.
5. Führen Sie abschließend die folgenden Schritte aus, um es zu versuchen.

• Wählen Sie zunächst eine Outlook-E-Mail aus oder öffnen Sie sie.
• Klicken Sie dann auf die Makro-Schaltfläche.
• Sofort werden die Hyperlinks mit der vordefinierten Domain in der E-Mail im Internet Explorer stapelweise geöffnet, wie in der folgenden Abbildung dargestellt:

Befreien Sie sich von irritierender Outlook-Korruption

Obwohl Outlook anfällig für Fehler und Korruption ist, können Sie sich diesen problemlos entziehen, solange Sie nach allen Risiken Ausschau halten. Beispielsweise müssen Sie regelmäßig Datensicherungen für Outlook erstellen. Außerdem sollten Sie auf verdächtige E-Mails achten, die Viren enthalten können. Zu guter Letzt sollten Sie eine vorbereiten Outlook reparieren Dienstprogramm, wie z DataNumen Outlook Repair. Es kann Ihnen bei einer Outlook-Beschädigung helfen.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupt SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX