1)在Outlook裏面鍵入Alt+F11打開VBA編輯器;
2)激活左邊的工程面板,展開並雙擊上面的“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
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收件人地址;保存,退出VBA編輯器,返回Outlook主界面;
5)選擇菜單“工具-信任中心”,在彈出窗口中選擇“宏安全性”,選擇“爲所有宏提供警告”或者“不執行宏安全性檢查”(建議選擇前者);
6)重新啓動Outlook,看到提示是否否用宏,選擇啓用。
7)現在,新建郵件中雖然看不到密送收件人,但是發出去的每一封郵件都會自動抄送給了代碼中設置的那些BCC收件人了。
Outlook2010實現自動添加密送的方法-親測有效
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.