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