Outlookの電子メールを転送するときに元の送信者と受信者の電子メールアドレスを自動削除する方法

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

Outlookで電子メールを転送すると、元の送信者と受信者の電子メールアドレスがメッセージ本文に含まれます。現時点では、セキュリティ上の理由から、これらのアドレスを削除することをお勧めします。このpost Outlookにこれを自動で実行させる方法を説明します。

多くの場合、いくつかの電子メールを他の人に転送する必要があります。デフォルトでは、元の電子メールのヘッダーが転送電子メールの本文に表示されます。また、ヘッダーには元の送信者と受信者の電子メールアドレスが含まれます。この時点で、セキュリティまたはプライバシーのために、これらの電子メールアドレスを削除することをお勧めします。それでも、手動で削除するのは面倒です。したがって、ここでは、Outlookがユーザーに代わってこのタスクを自動的に実行するようにガイドします。

メールを転送するときに、元の送信者と受信者のメールアドレスを自動的に削除する

としてtart、Outlookを起動します。
次に、「Alt + F11」キーボタンを押して、VBAエディターにアクセスします。
次に、次のVBAコードを「ThisOutlookSession」プロジェクトにコピーします。

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

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

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
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_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objRegExp As Object
    Dim strHTMLBody As String
 
    Forward.Display
    strHTMLBody = Forward.HTMLBody
 
    'Find email addresses in the body via Regular Expression
    Set objRegExp = CreateObject("vbscript.RegExp")
    With objRegExp
        .Pattern = "(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|""(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*"")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])"
        .IgnoreCase = True
        .Global = True
    End With
 
    'Remove email addresses
    If objRegExp.Test(strHTMLBody) Then
       Set objFoundResults = objRegExp.Execute(strHTMLBody)
       For i = 1 To objFoundResults.Count
           Forward.HTMLBody = Replace(Forward.HTMLBody, objFoundResults.Item(i - 1).Value, "")
       Next
    End If
 
    'Remove useless characters
    Forward.HTMLBody = Replace(Forward.HTMLBody, "[mailto:]", "")
    Forward.HTMLBody = Replace(Forward.HTMLBody, "()", "")
End Sub

その後、解像度tarOutlookプログラムを使用して、この新しいマクロをアクティブにします。
最終的に、あなたはショットを撮ることができます：

メールを選択または開きます。
次に、「応答」グループの「転送」ボタンをクリックします。
最後に、元の送信者と受信者の電子メールアドレスが削除された新しい転送電子メールが表示されます。

Outlookが破損した場合は落ち着いてください

Outlookで問題が発生すると、パニックに陥る可能性があります。 Outlookの破損。それでも、正直なところ、急いで心配することは、一般的にOutlookに他の多くの問題を引き起こす可能性があります。したがって、慌てる必要はありませんが、関連する場合は落ち着いてください。さらに、次のような堅牢なPST修正ツールを維持している場合 DataNumen Outlook Repair、Outlookの問題を解決するためにそれを単に使用することができます。

著者紹介：

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