很多朋友會發現雖然在家里同步了公司的郵箱可以正常收發郵件,可是每當使用家里的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!