Outlook发送邮件自动添加BCC

 Outlook发送邮件自动添加BCC

本文主要讲述如何自动添加BCC到outlook的收件人中，本文有在outlook2003和outlook2010中验证过可使用，如下举例的贴图以2010为准。

一、 outlook默认没有显示宏的相关信息，因此须要进行设置。具体以下所示：

如上图所示，依次选择文件à选项，把开发工具这个菜单显示出来，勾选上以后点击肯定保存。

二、 修改宏的安全级别

在第一步完成之后，从新打开outlook，此时能够在顶部看到开发工具，按照上图中所示，找到宏安全性，点击后按照我的的需求设定好。个人定义以下所示：

为全部宏提供通知的意思就是说当遇到有宏的时候，会提示你是否要启用，若是嫌麻烦能够选择启用全部宏，不过这样子可能会带来其余风险。最安全的就是第一个，不提供通知，禁用全部宏，这个是默认选项，可是若是选择这个的话，本文所要达到的目的也就没办法实现了。

三、 设定自动添加的BCC人员的邮件地址。

仍是按照上图中所示，点击开发工具，不过此次不是点宏安全性了，点击旁边的Visual Basic，按照下图中所示输入代码：

PS：代码复制以下

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 = "somebody@126.com"

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

完成以后保存所作修改，关闭outlook后从新打开，此时outlook会提示是否启用，点击启用便可。

若须要测试，只需写一封邮件，添加好收件者以后直接送出，而后再去BCC的邮箱便可看到该邮件。

通过测试，这段代码只能够BCC一个邮箱地址，若是有多个的话就不适用了。

下面这段代码跟上面那段代码的功能是同样的，一样是能够实现BCC的功能，只不过比较简洁，我我的比较喜欢

 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)   

    Dim oItem As MailItem

    Dim oRecipient As Recipient

    Set oItem = Item

    ' 在这里参考以下代码根据须要增删BCC收件人

    Set oRecipient = oItem.Recipients.Add("kenxie@hkinventory.com")

    oRecipient.Type = Outlook.olBCC

    oItem.Recipients.ResolveAll

    oItem.Save

    Set oRecipient = Nothing  

    Set oItem = Nothing

End Sub