Outlookの電子メールで特定のドメインを持つすべてのハイパーリンクをバッチで開く方法

Outlookソリューション 2025 年 9 月 29 日

本文に多数のハイパーリンクが含まれているOutlook電子メールを表示する場合、特定のドメインのハイパーリンクのみをすばやく開きたい場合があります。ここでは、そのようなハイパーリンクをまとめて開く方法を共有します。

XNUMXつの電子メールに複数のハイパーリンクがある場合は、すべてではなく、一部のハイパーリンクを確認することをお勧めします。たとえば、特定のドメインのハイパーリンクのみをバッチで開きたいとします。一般的に、それらを開くには、XNUMXつずつクリックする必要があります。とても面倒です。したがって、以下では、より便利な方法を説明します。

電子メールで特定のドメインを持つすべてのハイパーリンクをバッチで開く

としてtart、「」に従ってOutlookVBAエディターにアクセスします。OutlookでVBAコードを実行する方法"
続いて、「Microsoft Visual Basic for Applications」ウィンドウで、「MS Word ObjectLib」への参照を有効にします。rar「y」を参照して「オブジェクトライブラリを追加する方法raryVBAでの参照"
次に、次のVBAコードを未使用のモジュールまたはプロジェクトにコピーします。

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

次に、このマクロをクイックアクセスツールバーまたはリボンに追加します。
最後に、次の手順を実行して試してください。

まず、Outlookの電子メールを選択するか開きます。
次に、マクロボタンをクリックします。
次の画像に示すように、電子メールで事前定義されたドメインを持つハイパーリンクがInternetExplorerでバッチで開かれます。

苛立たしいOutlookの破損を取り除く

Outlookはエラーや破損の影響を受けやすくなっていますが、実際には、すべてのリスクに注意を払う限り、簡単にリスクから逃れることができます。たとえば、Outlookのデータバックアップを定期的に作成する必要があります。さらに、ウイルスが含まれている可能性のある疑わしい電子メールに注意する必要があります。大事なことを言い忘れましたが、 Outlookの修復などのユーティリティ DataNumen Outlook Repair。 Outlookが破損した場合に役立ちます。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。腐敗した SQL Server と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com