Outlook發送郵件自動添加BCC
本文主要講述如何自動添加BCC到outlook的收件人中，本文有在outlook2003和outlook2010中驗證過可以使用，以下舉例的貼圖以2010為准。
1、 outlook默認沒有顯示宏的相關信息，所以需要進行設置。具體如下所示：
如上圖所示，依次選擇文件à選項，把開發工具這個菜單顯示出來，勾選上之后點擊確定保存。
2、 修改宏的安全級別
在第一步完成以后，重新打開outlook，此時可以在頂部看到開發工具，按照上圖中所示，找到宏安全性，點擊后按照個人的需求設定好。我的定義如下所示：
為所有宏提供通知的意思就是說當遇到有宏的時候，會提示你是否要啟用，如果嫌麻煩可以選擇啟用所有宏，不過這樣子可能會帶來其他風險。最安全的就是第一個，不提供通知，禁用所有宏，這個是默認選項，但是如果選擇這個的話，本文所要達到的目的也就沒辦法實現了。
3、 設定自動添加的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一個郵箱地址，如果有多個的話就不適用了。