如何设置outlook实现自动秘密抄送邮件的功能？

最新推荐文章于 2023-06-07 10:46:18 发布

weixin_34303897

最新推荐文章于 2023-06-07 10:46:18 发布

阅读量857

点赞数

文章标签： python

原文链接：http://blog.51cto.com/sunyao/1101643

版权

很多朋友会发现虽然在家里同步了公司的邮箱可以正常收发邮件，可是每当使用家里的outlook发送相关邮件的时候，在公司的邮箱里找不到相关的发件记录，只能同步收件箱，而不能同步发件箱应该是比较让人困扰的问题，美的是outlook有个很好的功能，那就是秘密抄送，在收件人不知道的情况下，秘密的抄送邮件。功能确实不错，可是每次只能手动操作，而非系统自动，在自动化如此发达的现代，这种情况是不能一而再再而三的出现的，那么现在就分享一个好的方法，通过outlook的后台设置实现发送邮件时自动秘密抄送邮件的功能吧！

自动秘密抄送邮件是需要用到宏的，具体方法如下：
1、在Outlook里面键入ALT+F11打开VBA编辑器；
2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”；
3、将以下代码粘贴到右边打开的编辑区里面去：
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   Dim oItem As MailItem
    Dim oRecipient As Recipient
    Set oItem = Item

    ' 在这里参考如下代码根据需要增删BCC收件人
    Set oRecipient = oItem.Recipients.Add("user1@server1.com")
    oRecipient.Type = Outlook.olBCC
    Set oRecipient = oItem.Recipients.Add("user2@server2.com")
    oRecipient.Type = Outlook.olBCC
    Set oRecipient = oItem.Recipients.Add("user3@server3.com")
    oRecipient.Type = Outlook.olBCC

    oItem.Recipients.ResolveAll
    oItem.Save
    Set oRecipient = Nothing
    Set oItem = Nothing
End Sub
4、根据需要按照我代码中的注释增删BCC收件人地址；
5、键入CTRL+S保存，再键入ALT+Q退出VBA编辑器返回Outlook主界面；
6、选择菜单“工具-信任中心”，在弹出窗口中选择“宏安全性”；
7、选择“为所有宏提供警告”或者“不执行宏安全性检查”（建议选择前者）；
8、重新启动Outlook，看到提示是否否用宏，选择启用。
9、发封测试邮件，测试是否设置成功。