首页 > 软件 > 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 = “*** 因为隐私原因删除电子邮件地址 ***

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

保存退出即可

4)选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”,选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者);
5)重新启动Outlook,看到提示是否否用宏,选择启用。

5)操作完成以后,新建邮件中虽然看不到密送收件人,但是发出去的每一封邮件都会自动抄送给了代码中设置的那些BCC收件人了。

 

关于以上描述的两个问题解答

1、以上代码需要在全部为英文状态,举个例子英文状态下双引号””和逗号,  VS中文状态双引号“”和逗号,不会代码的你可能看不出来有什么不同。

2、将【** 因为隐私原因删除电子邮件地址 ***】修改为你需要密送的邮箱地址。

 

以下教程未写完,请不要在看了。

1、在outlook2016‘文件’下找到规则和通知。

OutLook2016发送邮件时默认密送到指定邮箱 - 第1张  | 和美视界|和美世界

 

2、在“规则和通知”对话框中,单击 [新建规则] 按钮打开 “规则向导” 对话框。

在此单击选中“对我发送的邮件应用规则”,并单击“下一步”:OutLook2016发送邮件时默认密送到指定邮箱 - 第2张  | 和美视界|和美世界

 

 

最后编辑:
作者:和美视界
此站的管理员,有什么问题,大家可以发送邮件至gaofu@yeah.net进行联系。也可以就项目管理和信息技术等相关问题在文章中评论进行交流。

留下一个回复