[Outlook] outlook如何實現自動CC和BCC郵件發送

由於需要在不同機器上發送郵件，最終發送的郵件會在不同的機器上，最終導致郵件丟失，以后想找也找不回來，故在網上搜索一翻，找到解決辦法。

1. 實現自動CC郵件發送：

方法：使用outlook的配置規則

優點：方法簡單

缺點：發出去的郵件別人可以看到CC里面的人

開工：

a. HOME->Rules->Manage Rules & Alerts->New Rule，選擇Apply rule on messages I send：

b. 填寫相應賬號：

c. 填寫CC賬號，

d. 點擊Finish，完成設置，發送一封郵件試試，果然成功，但是不好之處在於，cc里面顯示着自己的名字，這樣好像有點不好，繼續嘗試其他方法

2. 實現自動BCC郵件發送：

方法：使用宏編程實現，其實很簡單，根本不需要我們懂編程，呵呵

優點：能達到我想要的效果

缺點：暫時沒想到

開工：

a. 打開outlook->ALT + F11，出現如下界面，雙擊打開ThisOutlookSession，進入編輯界面：

b. 將以下代碼貼入編輯區域：

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 = "[e-mail]"
    
    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

c. 保存(CTRL+S)后，關閉該窗口，打開outlook->FILE->Options->Trust Center->Trust Center Settings，進行如下設置：

d. 設置完成之后，大功告成，重新啟動outlook，會有個提示是否啟用宏，選擇是即可，趕緊嘗試一下，發送一封郵件，哇哈成功~！

備注：

以上兩種辦法在2013和2010上均嘗試成功。

參考連接：

http://www.crazycen.com/windows/1432.html

http://jingyan.baidu.com/article/6dad5075ad0c4ca123e36ef3.html