KutoolsforOffice — 一套方案,五大工具。事半功倍。

在 Outlook 中,如何防止抄送(CC)和密送(BCC)收件人接收附件?

作者Xiaoyang修改日期

众所周知,当发送带有附件的邮件时,“收件人”(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
无附件抄送示例 1

3. 保存并关闭代码窗口。

4. 从现在开始,发送带有附件的邮件时,只有“收件人”字段中的收件人会收到附件,抄送和密送的收件人仅能收到正文内容,不包含附件。


最佳办公效率工具

体验全新 Kutools for Outlook,畅享 100+ 强大功能!立即点击下载,不容错过!

🤖KUTOOLS AI采用先进 AI 技术,轻松处理邮件,涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化自动答复(支持 POP 和 IMAP)/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发(高级规则)/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言!

一键解锁 Kutools for Outlook,告别等待,立即下载,让效率倍增!

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐:Kutools for Office(5 合 1)

一键下载五个安装包,即可同时获得 Kutools for Excel、Outlook、Word、PowerPointOffice Tab Pro立即点击下载!

  • 一键便捷:只需一次操作,即可下载全部五个安装包。
  • 🚀 轻松应对各类 Office 任务:随时按需安装所需插件,助您高效办公,不容错过!
  • 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint