加载中…outlook启用宏_默认暗送\密送\bcc
(2014-04-23 10:52:45)
标签：
windowsoutlook暗送密送启用宏 |
分类： Windows |
这个需要用到宏的，具体步骤如下：
1、在Outlook里面键入ALT+F11打开VBA编辑器；
2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)\Microsoft
Office Outlook
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
strBcc = "xxx@xxx.com"
#这里写入你的邮箱地址
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
End If
Set objRecip = Nothing
End Sub
4、根据需要按照我上面代码中的注释增删BCC收件人地址；
5、键入CTRL+S保存，再键入ALT+Q退出VBA编辑器返回Outlook主界面；
6、选择菜单“文件-选项-信任中心--信任中心设置--宏设置”；
7、选择“为所有宏提供通知”或者“启用所有宏”（建议选择前者）；
8、重新启动Outlook，看到提示是否否用宏，选择启用。
9、再次按ALT+F11 会提示是否启用宏，点击启用宏，这个时候就可以了，发送邮件测试一下；
现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。
喜欢
0
赠金笔