首页 > 软件 > office > OutLook2016发送邮件时默认密送到指定邮箱
2017
11-15

OutLook2016发送邮件时默认密送到指定邮箱

以下内容,亲测可用。 不过比较适合有一定代码编写的人员,普通小白可能会测试不成功。

在OutLook 2016发送邮件的时候,可以巧设置,让每一封发出的邮件,都密送到一个指定的邮箱里,以达到备份邮件的功能。

1)在Outlook里面键入Alt+F11打开VBA编辑器;
2)激活左边的工程面板,展开并双击上面的“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”;
3)将下面的代码粘贴到右边打开的编辑区里面去:

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 = “*