在Outlook中撰寫郵件時，如何防止將附件發送給密件抄送和抄送收件人？

Author: Xiaoyang Last Modified: 2025-08-06

眾所周知，當發送帶有附件的郵件時，“收件人”、“抄送”或“密件抄送”欄位中的所有收件人都會收到附件。然而，一些用戶希望僅將附件發送給“收件人”，而讓“抄送”和“密件抄送”的收件人只收到不帶附件的消息。您該如何在Outlook中解決這個問題呢？

使用VBA代碼撰寫郵件時防止將附件發送給密件抄送和抄送收件人

使用VBA代碼撰寫郵件時防止將附件發送給密件抄送和抄送收件人

實際上，Outlook並未提供處理此任務的選項，但以下VBA代碼可以幫助您，請按照以下步驟操作：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，雙擊 Project1(VbaProject.OTM) 窗格中的 ThisOutlookSession 以打開模組，然後將以下代碼複製並粘貼到空白模組中。

VBA代碼：防止將附件發送給密件抄送和抄送收件人：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xNewMail As Outlook.MailItem
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
With xNewMail
    .CC = xMailItem.CC
    .BCC = xMailItem.BCC
    .Subject = xMailItem.Subject
    .HTMLBody = xMailItem.HTMLBody
    .Send
End With
xMailItem.CC = ""
xMailItem.BCC = ""
End Sub