如何在Outlook中自動為所有外發郵件附加名片？

Author: Xiaoyang Last Modified: 2025-08-06

在某些情況下，您可能希望為所有外發郵件發送您的vCard，這樣收件人可以快速輕鬆地將您的信息保存在他們的通訊簿中。在Outlook中，您可以使用以下方法盡快解決這個問題。

通過創建簽名自動為所有外發郵件附加名片

通過使用VBA代碼自動為所有外發郵件附加名片

通過創建簽名自動為所有外發郵件附加名片

通常，您可以創建一個vCard簽名，然後始終打開該簽名。請按以下步驟操作：

1. 創建一封新郵件，在新郵件窗口中，點擊插入 > 簽名，參見截圖：

the steps of attaching business card for all outgoing messages automatically by creating signature

2. 在彈出的「簽名和稿紙」對話框中，在電子郵件簽名標籤下，點擊新建按鈕，並為此新簽名輸入名稱，參見截圖：

3. 然後，點擊確定關閉新建簽名對話框，從選擇要編輯的簽名列表框中選擇這個新簽名名稱，然後點擊名片，參見截圖：

4. 在 插入名片對話框中，從 查找位置下拉列表中選擇聯繫人文件夾，然後在下面的列表框中選擇指定的名片，參見截圖：

5. 然後，點擊確定關閉此對話框，返回到簽名和稿紙對話框，繼續選擇新的簽名名稱，然後從電子郵件帳戶下拉列表中指定您要自動添加此簽名的電子郵件帳戶。然後，從新郵件下拉列表中選擇新創建的簽名名稱。

注意：如果您想在每次回覆和轉寄時添加vCard，請在回覆/轉寄列表中選擇帶有vCard的新簽名名稱。

6. 完成設置後，請點擊確定按鈕。從現在開始，當您創建新郵件時，指定的名片將被插入到郵件正文中並同時作為附件添加，參見截圖：

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！）免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
增強內容：自動優化您的郵件文字以提高清晰度和影響力。
輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
智能擴展：通過上下文感知建議來拓展您的思路。
摘要生成：即時獲取長郵件的簡潔概述。
全球觸及：輕鬆將您的郵件翻譯成任何語言。

此功能支援：

智能郵件回覆
優化的內容
基於關鍵字的草稿
智能內容擴展
郵件摘要生成
多語言翻譯

最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧

通過使用VBA代碼自動為所有外發郵件附加名片

為了為所有外發郵件附加名片，您可以將名片保存為vcf文件，然後應用VBA代碼將其作為附件自動附加。請按照以下步驟操作：

1. 轉到聯繫人窗格，選擇您想要作為名片發送的聯繫人。

2. 然後，點擊文件 > 另存為，在另存為窗口中，指定放置該卡片的位置，然後在文件名文本框中輸入名稱，並從保存類型下拉列表中選擇vCard文件，參見截圖：

the steps of attaching business card for all outgoing messages automatically by using VBA code

3. 然後，按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

4. 然後，雙擊Project-Project1窗格中的ThisOutlookSession，然後將以下代碼複製並粘貼到空白代碼窗口中：

VBA代碼：自動為所有外發郵件附加名片

Public WithEvents GInpectors As Inspectors
Private Sub Application_Startup()
  Set GInpectors = Application.Inspectors
End Sub
Private Sub GInpectors_NewInspector(ByVal Inspector As Inspector)
'Updateby ExtendOffice
Dim xMail As MailItem
Dim xSubject As String
On Error Resume Next
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set xMail = Inspector.CurrentItem
xSubject = VBA.UCase$(xMail.Subject)
If (VBA.InStr(xSubject, "RE: ") = 1) Or (VBA.InStr(xSubject, "FW: ") = 1) Then Exit Sub
With xMail
  .Attachments.Add "C:\Users\Desktop\Leonel Davis.vcf"
End With
End Sub

注意：在上述代碼中，C:\Users\Desktop\Leonel Davis.vcf是您保存的名片的文件路徑，請根據需要更改它。