Outlookで特定の電子メールを読むときにすべての埋め込みハイパーリンクを自動的に開く方法

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

一部のユーザーは、特定の電子メールを開いて読むときに、Outlookが電子メール本文に挿入されたハイパーリンクを自動的に開くことができることを望んでいます。さて、この記事では、それを簡単に実現できる方法を紹介します。

上司からの非常に重要なメールなど、特定のメールを開いて読むときに、メールに複数のハイパーリンクが含まれている場合は、必ずこれらのリンクを開きます。埋め込まれたハイパーリンクを手動で開く場合と比較して、Outlookでハイパーリンクを自動で開くようにすると、はるかに便利になります。ここでは、それを実現する方法を詳しく説明します。

特定の電子メールを読むときに、埋め込まれたすべてのハイパーリンクを自動的に開く

にtarで、Outlookアプリケーションを起動します。
Outlookウィンドウに入った後、「Alt + F11」キーショートカットを押します。
後続のVBAエディターウィンドウで、「MicrosoftVBScript正規表現」オブジェクトを有効にする必要があります。「ツール」を押し、「参照」を選択してそれを実現します。
次に、「ThisOutlookSession」プロジェクトを開きます。
次に、次のVBAコードをこのプロジェクトにコピーします。

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

その後、このマクロに署名する必要があります。「ツール」>「デジタル署名」をクリックして実行します。
次に、現在のウィンドウを終了し、Outlookのマクロ設定を変更します。
最終的には、解像度が必要ですtarOutlookを使用して、新しいVBAプロジェクトを有効にします。
それ以降、特定の電子メールをダブルクリックして独自のメッセージウィンドウで読むたびに、Outlookは電子メール本文のハイパーリンクを自動的に認識し、すぐにInternetExplorerで開きます。

Outlookのエラーをバイパスしないでください

おそらく、さまざまなOutlookエラーが発生している可能性があります。 Outlookの問題を排除することは困難ですが、それらを無視することもできません。蓄積されたエラーは、PSTの損傷など、Outlookに重大な災害を引き起こす可能性があります。したがって、あなたは手ごわい外部を準備したほうがいいです Outlookの修正のようなユーティリティ DataNumen Outlook Repair。破損を最小限に抑えることができるため、大騒ぎせずに最大のPSTデータを抽出できます。

著者紹介：

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