跳到主要内容

如何自动密送您在Outlook中发送的所有电子邮件?

发送电子邮件时,如果您有永久的秘密收件人,但又不想其他收件人看到他或她的地址,则应使用密件抄送功能。 但是,当我们需要密件抄送时,我们必须手动显示“密件抄送”字段并为其选择一个联系人。 为避免这些手动操作,下面的文章将向您展示如何修改Outlook,以便在发送的所有电子邮件中自动密件抄送电子邮件地址。


使用VBA在Outlook中使用默认自动密件抄送

您可以在VBA代码下面应用,以在Outlook中配置自动密件抄送规则。 请执行以下操作:

1。 按 其他 + F11 同时按下两个键可以打开“ Microsoft Visual Basic for Applications”窗口。

2。 双击 本次展望会议在“项目”窗格中,然后将以下VBA代码粘贴到打开的窗口中。 请参见下面的屏幕截图:

VBA代码:发送所有电子邮件时自动密送

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = ""
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

请注意: 请替换 "" 在上面的代码中,您将使用密件抄送的电子邮件地址。

3。 保存VBA代码并关闭“ Microsoft Visual Basic for Applications”窗口。

从现在开始,您无需在“密件抄送”字段中填写地址。 当您从Outlook发送电子邮件时,随着VBA代码的执行,它将自动密送给所需的收件人。


使用 Kutools for Outlook 在 Outlook 中自动密件抄送

上面的VBA代码对于我们初学者来说有些困难和麻烦,这是一个简单快捷的工具-Kutools 对于Outlook 来帮助您自动密送所有在Outlook中发送的电子邮件或指定电子邮件。

Kutools for Outlook:终极 Outlook 工具包,包含 100 多个方便的工具。 免费试用 60 天,无任何限制,不用担心!   阅读更多    立即开始免费试用!

安装 Kutools for Outlook 后,请执行以下操作:

1。 点击 库工具 > 自动CC / BCC > 规则管理员,请参见屏幕截图:

2。 在 自动CC / BCC管理器 对话框,单击 全新 按钮。

3。 在“规则向导”中,指定过滤条件。 就我而言,我在 身体里有特定的单词 选项,然后单击带下划线的文本 具体词 编辑它。

4。 在“文本包含”对话框中,单击 全新 按钮添加新单词。

5。 在“搜索文本”对话框中,在 新搜寻文字 框,单击 地址 按钮,然后单击 OK 按钮。
Tips:要同时添加多个单词,您需要在 新搜寻文字 框并单击 地址 按钮,然后重复此操作以逐个添加其他单词,最后单击 OK 按钮。

6。 现在,它返回到“文本包含”对话框。 如有必要,可以继续单击 全新 按钮添加所需的其他单词,然后单击确定按钮保存这些单词。
提示:如果您在同一“搜索文本”框中同时添加多个单词,则这些单词之间的关系为“AND“。如果您通过单击 全新 按钮,这些词之间的关系是OR".

7。 然后返回“规则向导”,根据需要指定其他条件,然后单击 下一页 按钮。

8。 在第二个“规则向导”中,指定例外或根据需要不检查任何例外,然后单击 下一页 按钮。

9。 在第三个“规则向导”中,请在 规则名称 框中,在 规则说明 框,单击 接受者 按钮以添加抄送或密件抄送收件人,在 设置规则选项 部分,然后单击 OK 按钮。

10。 在“自动CC /密件抄送管理器”中,确保已选中新的“抄送/密件抄送”规则,然后点按“确定”按钮以关闭对话框。

11。 继续在Outlook主界面中单击Kutools> CC / BCC>启用自动CC / BCC以启用规则。

然后点击 OK 弹出的重新确认对话框中的按钮。

到目前为止,密件抄送规则已经创建,当您发送电子邮件时,同一封邮件将同时发送给密件抄送收件人。

:
(1)使用此功能,您可以设置始终 CC 规则。
(2)您可以使用此工具根据需要创建多个规则。
(3)如果要关闭规则,可以单击 启用自动CC / BCC,并且所有规则均无效。 您也可以取消选中规则名称 自动CC / BCC管理器 对话框以禁用某些指定的规则。


相关文章:

如何自动在Outlook中自动抄送自己?


最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

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

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

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

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

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

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

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

超过 100特点 等待您的探索! 单击此处了解更多。

了解更多       免费下载      购买
 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
Hi guys, I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd. Is anyone able to check that I have it constructed correctly please? ******* Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Msg As Outlook.MailItem Dim onsMapi As Outlook.NameSpace Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String If Item.Subject = "Ref" Then strBcc = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" End If Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
This comment was minimized by the moderator on the site
If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to: [quote]If Item.Subject = "ref" then strBcc = ""[/quote] Personally, I would also add an [else strBcc = ""] just to cover your bases. Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try: [quote]If instr(Item.Subject,"ref",1) 0[/quote] The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer"). If you want all emails with subjects that start with "ref" with anything following it, then you can use the following: [quote]If instr(Item.Subject,"ref",1) = 1[/quote] This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations