Outlook 2013始终添加密送-VBA版

需求是这样的,我有多台电脑,而且经常需要查看我自己发出去的邮件,外加最近重装系统比较频繁,所以我希望由我发出的邮件都能够自动的密送到一个邮箱中做备份。

Mac下的Outlook 2011能够很方便的设置始终密送给某一个地址,Windows版本的一直未找到如何设置(也许是我太笨了),Google之后找到以下解决方案:

1.在Outlook唤起的状态下,按Alt+F11键,呼出宏编辑器

2.依次点开左侧资源浏览器中的Project1 -> Microsoft 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
     
        Set oRecipient = oItem.Recipients.Add("需要密送的邮件地址")
        oRecipient.Type = Outlook.olBCC
     
        
        oItem.Recipients.ResolveAll
        oItem.Save
        Set oRecipient = Nothing
        Set oItem = Nothing
    End Sub

4.保存并关闭宏编辑器

5.依次点击Outlook的文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 宏设置 -> 勾选“启用所有宏(不推荐;可能运行危险代码)”

6.点击确认后退出

然后就是每次正常发送邮件,妈妈再也不用担心我忘记哪台电脑发送的邮件啦……