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.点击确认后退出
然后就是每次正常发送邮件,妈妈再也不用担心我忘记哪台电脑发送的邮件啦……