在Outlook中撰写邮件时，如何防止将附件发送给抄送和密件抄送收件人？

Author: Xiaoyang Last Modified: 2025-07-31

众所周知，在“收件人”、“抄送”或“密件抄送”字段中的所有收件人都会在发送带有附件的邮件时收到附件。然而，有些用户希望仅将附件发送给“收件人”，而“抄送”和“密件抄送”的收件人只收到不带附件的消息。那么，如何在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