如何設置outlook實現自動祕密抄送郵件的功能?

很多朋友會發現雖然在家裏同步了公司的郵箱可以正常收發郵件,可是每當使用家裏的outlook發送相關郵件的時候,在公司的郵箱裏找不到相關的發件記錄,只能同步收件箱,而不能同步發件箱應該是比較讓人困擾的問題,美的是outlook有個很好的功能,那就是祕密抄送,在收件人不知道的情況下,祕密的抄送郵件。功能確實不錯,可是每次只能手動操作,而非系統自動,在自動化如此發達的現代,這種情況是不能一而再再而三的出現的,那麼現在就分享一個好的方法,通過outlook的後臺設置實現發送郵件時自動祕密抄送郵件的功能吧!


自動祕密抄送郵件是需要用到宏的,具體方法如下:
1、在Outlook裏面鍵入ALT+F11打開VBA編輯器;
2、鍵入CTRL+R激活左邊的那個工程面板,展開並雙擊上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 對象\ThisOutlookSession”;
3、將以下代碼粘貼到右邊打開的編輯區裏面去:
Option Explicit
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("[email protected]")
    oRecipient.Type = Outlook.olBCC
    Set oRecipient = oItem.Recipients.Add("[email protected]")
    oRecipient.Type = Outlook.olBCC
    Set oRecipient = oItem.Recipients.Add("[email protected]")
    oRecipient.Type = Outlook.olBCC
  
    oItem.Recipients.ResolveAll
    oItem.Save
    Set oRecipient = Nothing
    Set oItem = Nothing
End Sub
4、根據需要按照我代碼中的註釋增刪BCC收件人地址;
5、鍵入CTRL+S保存,再鍵入ALT+Q退出VBA編輯器返回Outlook主界面;
6、選擇菜單“工具-信任中心”,在彈出窗口中選擇“宏安全性”;
7、選擇“爲所有宏提供警告”或者“不執行宏安全性檢查”(建議選擇前者);
8、重新啓動Outlook,看到提示是否否用宏,選擇啓用。
9、發封測試郵件,測試是否設置成功。


以上方法基本適用於office2007,2010等,so easy!

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章