在 Outlook 中,如何防止抄送(CC)和密送(BCC)收件人接收附件?
众所周知,当发送带有附件的邮件时,“收件人”(To)、“抄送”(CC)和“密送”(BCC)字段中的所有收件人都会收到附件。但有些用户希望附件仅发送给“收件人”字段中的地址,而抄送和密送的收件人只收到邮件正文,不包含附件。在 Outlook 中该如何实现?
使用 VBA 代码在撰写邮件时防止抄送(CC)和密送(BCC)收件人收到附件
使用 VBA 代码在撰写邮件时防止抄送(CC)和密送(BCC)收件人收到附件
实际上,Outlook 没有提供直接实现该需求的选项,但您可以借助以下 VBA 代码来操作,请按如下步骤操作:
1. 按住 ALT + F11 键,即可打开 Microsoft Visual Basic for Applications 窗口。
2. 在 Microsoft Visual Basic for Applications 窗口中,双击 Project 1(VbaProject.OTM) 窗格下的 ThisOutlookSession,打开代码界面,然后将以下代码复制粘贴到空白模块中。
VBA 代码:防止抄送(CC)和密送(BCC)收件人收到附件:
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

3. 保存并关闭代码窗口。
4. 从现在开始,发送带有附件的邮件时,只有“收件人”字段中的收件人会收到附件,抄送和密送的收件人仅能收到正文内容,不包含附件。
最佳办公效率工具
体验全新 Kutools for Outlook,畅享 100+ 强大功能!立即点击下载,不容错过!
🤖KUTOOLS AI:采用先进 AI 技术,轻松处理邮件,涵盖回复、摘要、优化、扩展、翻译及撰写等功能。
📧 邮件自动化:自动答复(支持 POP 和 IMAP)/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发(高级规则)/自动添加称呼/自动将多收件人邮件拆分为单独信息……
📨 邮件管理:撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……
📁 附件增强:批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……
🌟 界面魔法:😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……
👍 一键精彩功能:带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……
👩🏼🤝👩🏻 联系人与日历:批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……
在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言!
一键解锁 Kutools for Outlook,告别等待,立即下载,让效率倍增!


🚀 一键下载 — 即可获取全部 Office 加载项
强烈推荐:Kutools for Office(5 合 1)
一键下载五个安装包,即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载!
- ✅ 一键便捷:只需一次操作,即可下载全部五个安装包。
- 🚀 轻松应对各类 Office 任务:随时按需安装所需插件,助您高效办公,不容错过!
- 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint