提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何根據Outlook中的收件人自動更改簽名?

默認情況下,Outlook具有內置功能,用戶可以在通過不同的電子郵件帳戶發送電子郵件時自動更改簽名。 但除此之外,我將在此向您展示在Outlook的“收件人”字段中根據不同收件人自動更改簽名的方法。

使用VBA代碼自動更改基於收件人的簽名


始終使用Outlook中的默認電子郵件帳戶回復電子郵件:

如果您想在Outlook中使用默認電子郵件帳戶回復電子郵件,請執行 始終以默認帳戶回复 選項 Kutools for Outlook 會幫你一個忙 查看截圖:

Kutools for Outlook:比40更方便的Outlook加載項,可以在45天免費試用。 下載並免費試用現在!


使用VBA代碼自動更改基於收件人的簽名

在Outlook中發送電子郵件時,請按照以下步驟將不同的簽名應用於相應的收件人。

1。 首先,您需要在Outlook中禁用自動附加簽名功能。 請點擊 文件 > 選項 打開 Outlook選項 窗口。

2。 在裡面 Outlook選項 窗口,選擇 郵件 在左側窗格中,然後單擊 簽名 按鈕在 撰寫郵件 部分。 看截圖:

3。 在裡面 簽名和文具 對話框,轉到 選擇默認簽名 下的部分 電子郵件簽名 選項卡,選擇中的電子郵件帳戶 電子郵件帳戶 下拉列表,然後選擇 (無) 來自 新訊息 - 回复/轉發 下拉列表。 重複這些步驟,直到所有電子郵件帳戶都設置為 (無)。 然後點擊 OK 按鈕。

注意:您還可以在此創建所需的簽名 簽名和文具 對話框。

4。 點擊 OK 按鈕返回時 Outlook選項 窗口。

5。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

6。 在裡面 Microsoft Visual Basic for Applications 窗口,雙擊 ThisOutlookSession 在左側窗格中打開代碼窗口,並將VBA代碼下方的副本放入窗口。 查看截圖:

VBA代碼:根據Outlook中的收件人自動更改簽名

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
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 xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

筆記:

1。 在VBA代碼中,請替換“電子郵件地址1 / 2 / 3 / 4“使用收件人的某些電子郵件地址。

2。 “aaa.htm“”bbb.htm“和”ccc.htm“是您將發送給相應收件人的指定簽名。

3。 在這種情況下,簽名“AAA“將被發送到”電子郵件地址1“,簽名”BBB“將被發送到”電子郵件地址2“和”電子郵件地址3,和“電子郵件地址4“將收到嵌入簽名的電子郵件”CCC“。 請根據您的需要進行更改。

7。 然後點擊 工具 > 參考參考項目 對話框。 在對話框中,請檢查 Microsoft腳本運行時 選項,然後單擊 OK 按鈕,看截圖:

8。 按 其他 + Q 鍵關閉 Microsoft Visual Basic for Applications 窗口。

從現在開始,在撰寫電子郵件並點擊“發送”按鈕後,相應的簽名將根據“收件人”字段中收件人的電子郵件地址自動插入電子郵件正文的末尾。

如果要在Outlook中創建/回复/轉發新電子郵件時將時間戳作為簽名插入電子郵件正文中,則可以啟用 創建新郵件,回复郵件和轉發郵件時添加日期簽名 選項 Kutools for Outlook 實現它。 查看截圖:

Kutools for Outlook:比40更方便的Outlook加載項,可以在45天免費試用。 下載並免費試用現在!



Kutools for Outlook

超過100高級功能的Outlook 2010,2013,2016,2019和365

屏幕截圖kutools for outlook tiny for banner 201812

更多功能 | 免費下載 | 只有$ 39.00數百個函數

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.