Outlookで受信者に基づいて署名を自動的に変更するにはどうすればよいですか？

作者: シルヴィア最終更新日：2024年09月13日

既定では、Outlookには、ユーザーがさまざまな電子メールアカウントを介して電子メールを送信するときに署名を自動的に変更するための組み込み関数があります。ただし、それ以外にも、Outlookの[宛先]フィールドで、さまざまな受信者に基づいて署名を自動的に変更する方法を紹介します。

VBAコードを使用して受信者に基づいて署名を自動的に変更する

VBAコードを使用して受信者に基づいて署名を自動的に変更する

Outlookで電子メールを送信するときに、対応する受信者に異なる署名を適用するには、以下の手順に従ってください。

1.まず、Outlookの自動添付署名機能を無効にする必要があります。クリックしてください File > オプション を開く Outlookのオプション 窓。

2。の中に Outlookのオプション ウィンドウ、選択 Mail 左側のペインで、をクリックします署名ボタンの メッセージを作成する セクション。スクリーンショットを参照してください：

3。の中に 署名と文具 ダイアログボックスで デフォルトの署名を選択 セクションの下に 電子メールの署名 タブで、でメールアカウントを選択します メールアカウント ドロップダウンリストをクリックして、 （なし） 新しいメッセージ • 返信/転送 ドロップダウンリスト。すべてのメールアカウントがに設定されるまで、これらの手順を繰り返します （なし）。次に、 OK

Note：これで必要な署名を作成することもできます 署名と文具 ダイアログボックス。

4。クリック OK 戻るときのボタン Outlookのオプション 窓。

5。プレス他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

6。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 左側のペインで[コード]ウィンドウを開き、VBAコードの下をウィンドウにコピーします。スクリーンショットを参照してください：

VBAコード：Outlookの受信者に基づいて署名を自動的に変更します

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
    If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
        xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
    Else
        xRcpAddress = xRecipient.AddressEntry.Address
    End If
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
            Exit For
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
            Exit For
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
            Exit For
    End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
    xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    With xDoc.Application.Selection.Find
        .ClearFormatting
        .Text = xFindStr
        .Execute Forward:=True
    End With
    With xDoc.Application.Selection
        .MoveLeft wdCharacter, 2
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
Else
    With xDoc.Application.Selection
        .EndKey Unit:=wdStory, Extend:=wdMove
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub

ノート:

1) VBAコードで、「メールアドレス1/2/3/4受信者の特定の電子メールアドレスと関連付けます。
2）。「」ああ.htm""bbb.htm"と"ccc.htm"は、対応する受信者に送信する指定された署名です。
3) この場合、署名は「単4「」は「」に送信されますメールアドレス1"、サイン "BBB「」は「」に送信されますメールアドレス2"と"メールアドレス3"、および「メールアドレス4「署名が埋め込まれたメールを受信します」CCC必要に応じて変更してください。
4）。電子メールに複数の受信者がいる場合、コードは最初の受信者のみを考慮します。この場合、他の受信者は最初の受信者と同じ署名の電子メールを受信します。

7。次に、をクリックします ツール > 参考情報 参考資料-プロジェクト ダイアログボックス。ダイアログで、両方を確認してください MicrosoftWordオブジェクトライブラリ と Microsoftスクリプトランタイム オプションをクリックし、をクリックします OK ボタン、スクリーンショットを参照してください：

8。プレス他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

今後、メールを作成して[送信]ボタンを押すと、[宛先]フィールドの受信者のメールアドレスに基づいて、対応する署名がメール本文の最後に自動的に挿入されます。

Outlookで新しい電子メールを作成/返信/転送するときに、署名としてタイムスタンプを電子メール本文に挿入する場合は、 新規作成時に日付署名を追加し、返信してメールを転送する のオプション Kutools for Outlook それを達成するために。スクリーンショットを参照してください：
今すぐダウンロードしてお試しください (30 日間の無料トライアル)

VBA コードを使用して受信者に基づいて署名を自動的に変更する