不明な送信者からのOutlook電子メールの受信でハイパーリンクを自動的に無効にする方法

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

悪意のあるリンクをブロックするには、不明な送信者からの受信メールのハイパーリンクを自動的に無効にするようにOutlookを構成することをお勧めします。この記事では、コルクのように取得するのに役立つVBAコードをいくつか紹介します。

多くのユーザーが、電子メールを介したウイルスがOutlookファイルを攻撃したと不満を漏らしています。多くの場合、それは彼らが未知の送信者からのそれらの電子メールを容易に信頼するためです。そのため、メール内のハイパーリンクをダウンロードまたはクリックします。さて、以下、方法を共有します。 Outlookに、不明な送信者からの受信メールのハイパーリンクを自動的に無効にすることができます。そのようなニーズがある場合は、詳細を読んでください。

不明な送信者からの受信メールのハイパーリンクを自動的に無効にする

としてtart、Outlookで、「Alt + F11」でVBAエディターに移動します。
次に、新しい画面で、pに従って「MSVBScript正規表現」オブジェクトを追加します。ost オブジェクトライブラリを追加する方法raryVBAでの参照"
次に、次のコードをコピーして「ThisOutlookSession」プロジェクトに貼り付けます。

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

'Occurs when new mail arrives in your Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As MailItem
    Dim objContacts As Outlook.Items
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim bUnknownSender As Boolean
    Dim objRegExp As Object
    Dim objFoundResults As Object
    Dim i, n As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Check if the sender is in your default Contact folder
       Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
       For i = 1 To 3
           strFilter = "[Email" & i & "Address] = " & objMail.SenderEmailAddress
           Set objFoundContact = objContacts.Find(strFilter)
           If Not (objFoundContact Is Nothing) Then
              bUnknownSender = False
              Exit For
           End If
       Next
       If objFoundContact Is Nothing Then
          bUnknownSender = True
       End If
 
       'If the sender is unknown
       If bUnknownSender = True Then
          'Find the urls within "<a href=" tags in HTMLbody of Mail
          Set objRegExp = CreateObject("vbscript.RegExp")
          With objRegExp
               .Pattern = "<?href\s*=\s*[""'].+?[""'][^>]*?"
               .IgnoreCase = True
               .Global = True
          End With
 
          If objRegExp.Test(objMail.HTMLBody) Then
             Set objFoundResults = objRegExp.Execute(objMail.HTMLBody)
             For n = 1 To objFoundResults.Count
                 'Disable the hyperlinks in HTMLbody
                 objMail.HTMLBody = Replace(objMail.HTMLBody, objFoundResults.Item(n - 1).Value, "")
             Next
          End If
 
          'Save the mail
          objMail.Save
       End If
    End If
End Sub

その後、resによってこのマクロをアクティブにしますtartOutlookまたは「Application_S」の「F5」キーボタンを押すtartup」サブルーチン。
それ以降、既定の連絡先フォルダーに保存されていない送信者からの電子メールが受信トレイに入るたびに、Outlookはその中のハイパーリンクを自動的に無効にします。

Outlookの保護に必要ないくつかの事項

Outlookは損傷を受けやすいため、Outlookファイルを保護することは非常に困難です。ここでは、Outlookのデータ保護中に必要なものをいくつかリストします。まず、Outlookデータを定期的にバックアップする必要があります。さらに、悪意のある添付ファイルやハイパーリンクなど、すべての潜在的なリスクに注意することが不可欠です。大事なことを言い忘れましたが、次のような強力なOutlook修正ツールを事前に準備する必要があります。 DataNumen Outlook Repair。必要なときにきっと重宝します PSTを修復するファイルが受信トレイ修復ツールが失敗を証明します。

著者紹介：

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