巧用宏命令VBA代码简单实现 Outlook 2013 发送邮件自动密送功能

真水ying

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),然后保存退出即可：

1. 
   
2. Private Sub Application_ItemSend(ByVal Item As Object, _
   
3. Cancel As Boolean)
   
4. Dim objRecip As Recipient
   
5. Dim strMsg As String
   
6. Dim res As Integer
   
7. Dim strBcc As String
   
8. On Error Resume Next
   
9. ' #### USER OPTIONS ####
   
10. ' address for Bcc -- must be SMTP address or resolvable
    
11. ' to a name in the address book
    
12. strBcc = "dome@pcfox.com.cn"
    
13. Set objRecip = Item.Recipients.Add(strBcc)
    
14. objRecip.Type = olBCC
    
15. If Not objRecip.Resolve Then
    
16. strMsg = "Could not resolve the Bcc recipient. " & _
    
17. "Do you want still to send the message?"
    
18. res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
    
19. "Could Not Resolve Bcc Recipient")
    
20. If res = vbNo Then
    
21. Cancel = True
    
22. End If
    
23. End If
    
24. Set objRecip = Nothing
    
25. End Sub
    
26. 
    

复制代码

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