跳到主要内容

在Outlook中撰写电子邮件时,如何防止向CC和BCC收件人发送附件?

作者:晓阳 最后修改时间:2018-05-03

众所周知,在发送带有附件的电子邮件时,“收件人”,“抄送”或“密件抄送”字段中的所有收件人都将获得附件。 但是,某些用户只希望将附件发送给“收件人”收件人,而“ CC”和“ BCC”收件人则只收到没有附件的邮件。 您如何在Outlook中解决这项工作?

使用VBA代码编写电子邮件时,防止向CC和BCC收件人发送附件


使用VBA代码编写电子邮件时,防止向CC和BCC收件人发送附件

实际上,Outlook没有提供处理此任务的选项,但是,以下VBA代码可以帮您一个忙,请这样做:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 来自 Project1(VbaProject.OTM) 窗格以打开模式,然后将以下代码复制并粘贴到空白模块中。

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

不带附件的doc cc 1

3。 然后保存并关闭代码窗口。

4。 从现在开始,当发送带有附件的电子邮件时,只有“收件人”字段中的收件人可以接收附件,而CC和BCC中的收件人只能获得不带附件的邮件。


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations