如何設置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("user1@server1.com")

oRecipient.Type = Outlook.olBCC

Set oRecipient = oItem.Recipients.Add("user2@server2.com")

oRecipient.Type = Outlook.olBCC

Set oRecipient = oItem.Recipients.Add("user3@server3.com")

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!


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM