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實現自動添加密送的方法-親測有效
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
怎樣將PPT文件轉換爲Word文檔精美ppt模板下載
bmgjnj
2019-02-23 00:41:40
實現與 Outlook Web Access 的更改密碼功能
lingping
2019-02-23 14:05:54
HOW TO:在圖形用戶介面中查看和轉移 FSMO 角色
lingping
2019-02-23 14:05:54
如何將 .nk2 文件導入至 Outlook 2010
lingping
2019-02-23 14:05:54
誰說菜鳥不會數據分析(工具篇)出來啦
daoran123457
2019-02-23 13:48:41
WinPcap中獲取設備列表的實驗報告
乘風來
2019-02-23 13:00:59
ssential Diagram for Windows FormsC#/winForm類似visio的拓撲圖節點連線控件免費下載
bokezyyx
2019-02-23 00:42:19
Exchange系列—自簽名證書續訂
好棋
2019-02-23 00:40:28
如何[破解]觀看加密受保護的視頻文件
lichenjing9
2019-02-23 14:06:52
加密、解密的原理及Openssl創建CA和ssh的基礎應用
shang61511
2019-02-23 14:02:01
用CRC32加密密碼
OnlyOpera
2019-02-23 13:37:36
ios下使用rsa算法與php進行加解密通訊
techforlcl
2019-02-23 00:33:03
Android面試常見問題
謝老大
2019-02-23 00:31:48
神器來襲——不是你不想要(職場必備),而是你不知道
IT技術***
2019-02-23 14:06:18
Exchange Server 2010 POP3&IMAP設置詳解
lingping
2019-02-23 14:05:54