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

標籤：style   blog   http   color   io   使用   ar   for   2014   

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

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 = "[email protected]"        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 = NothingEnd 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

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