巧用宏命令VBA代码简单实现 Outlook 2013 发送邮件自动密送功能 - 无忧启动论坛

无忧启动论坛

标题:

作者:

时间:

标题:

OFFICE 2013 已经发行有一段时间了，全新的Office 2013界面确实让人耳目一新，新版本用起来感觉不错，速度快了，更加漂亮了，也不乏增添新不少新的功能。但小编最新在使用Office Outlook 2013 遇到一点点小尴尬，居然没有在Outlook中找到设置邮件自动密送功能。

通过宏命令VBA代码实现邮件密送功能
1）在Outlook里面键入Alt+F11打开VBA编辑器；
2）激活左边的工程面板，展开并双击上面的“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”；
3）将下面的代码粘贴到右边打开的编辑区里面去(替换dome@pcfox.com.cn),然后保存退出即可：

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 = "dome@pcfox.com.cn"
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，看到提示是否否用宏，选择启用。
6）现在，新建邮件中虽然看不到密送收件人，但是发出去的每一封邮件都会自动抄送给了代码中设置的那些BCC收件人了。

Office Outlook 2013确实改进了不少新的功能，但就这么一个小小密送功能却一直没有增加，这个功能确实对经常发邮件的白领来说很实用，希望下一次看到Outlook 2014或Outlook 2015时能增加这个功能。另外，如果不喜欢实用宏代码的朋友你也可以使用收费的插件Auto BCC / CC for Microsoft Outlook，使用方法就不多说了！

本文出自：http://www.pcfox.com.cn/outlook-2013-bcc-mail.html

欢迎光临无忧启动论坛 (http://wuyou.net/)