跳到主要內容

如何自動密送您在Outlook中發送的所有電子郵件?

發送電子郵件時,如果您有永久的秘密收件人,但又不想讓其他收件人看到他或她的地址,則應使用密件抄送功能。 但是,當我們需要密件抄送時,我們必須手動顯示“密件抄送”字段並為其選擇一個聯繫人。 為避免這些手動操作,下面的文章將向您展示如何修改Outlook,以便在發送的所有電子郵件中自動密件抄送電子郵件地址。


使用VBA在Outlook中使用默認自動密件抄送

您可以在VBA代碼下面應用,以在Outlook中配置自動密件抄送規則。 請執行以下操作:

1。 按 其他 + F11 同時按下鍵以打開“ Microsoft Visual Basic for Applications”窗口。

2。 雙擊 本次展望會議在“項目”窗格中,然後將以下VBA代碼粘貼到打開的窗口中。 參見下面的截圖:

VBA代碼:發送所有電子郵件時自動密送

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = ""
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

注意: 請替換 "" 在上面的代碼中,您將使用密件抄送的電子郵件地址。

3。 保存VBA代碼,然後關閉“ Microsoft Visual Basic for Applications”窗口。

從現在開始,您無需在“密件抄送”字段中填寫地址。 當您從Outlook發送電子郵件時,隨著VBA代碼的執行,它將自動密送給所需的收件人。


通過使用Kutools for Outlook在Outlook中自動密件抄送

上面的VBA代碼對於我們初學者來說有些困難和麻煩,這是一個簡單快捷的工具-Kutools 對於Outlook 來幫助您自動密送所有在Outlook中發送的電子郵件或指定電子郵件。

Kutools for Outlook:終極 Outlook 工具包,包含 100 多個方便的工具。 免費試用 60 天,無任何限制,不用擔心!   閱讀更多...   立即開始免費試用!

安裝Kutools for Outlook後,請執行以下操作:

1。 點擊 庫工具 > 自動CC / BCC > 規則管理員,請參見屏幕截圖:

2。 在 自動CC / BCC管理器 對話框,單擊 全新 按鈕。

3。 在“規則嚮導”中,指定過濾條件。 就我而言,我在 身體裡有特定的單詞 選項,然後單擊帶下劃線的文本 具體詞 編輯它。

4。 在“文本包含”對話框中,單擊 全新 按鈕添加新單詞。

5。 在“搜索文本”對話框中,在 新搜尋文字 框,單擊 加入 按鈕,然後單擊 OK 按鈕。
保養竅門:要同時添加多個單詞,您需要在 新搜尋文字 框並單擊 加入 按鈕,然後重複此操作以逐個添加其他單詞,最後單擊 OK 按鈕。

6。 現在,它返回到“文本包含”對話框。 如有必要,可以繼續單擊 全新 按鈕添加所需的其他單詞,然後單擊確定按鈕保存這些單詞。
提示:如果您在同一“搜索文本”框中同時添加多個單詞,則這些單詞之間的關係為““。如果您通過單擊 全新 按鈕,這些詞之間的關係是OR".

7。 然後返回“規則嚮導”,根據需要指定其他條件,然後單擊 下一頁 按鈕。

8。 在第二個“規則嚮導”中,指定例外或根據需要不檢查任何例外,然後單擊 下一頁 按鈕。

9。 在第三個“規則嚮導”中,請在 規則名稱 框中,在 規則說明 框,單擊 接受者 按鈕以添加抄送或密件抄送收件人,在 設置規則選項 部分,然後單擊 OK 按鈕。

10。 在Auto CC / BCC管理器中,確保已選中新的Cc / Bcc規則,然後按一下OK按鈕以關閉對話框。

11。 繼續在Outlook主界面中單擊Kutools> CC / BCC>啟用自動CC / BCC以啟用規則。

然後點擊 OK 在彈出的重新確認對話框中單擊按鈕。

到目前為止,密件抄送規則已經創建,當您發送電子郵件時,同一封郵件將同時發送給密件抄送收件人。

筆記:
(1)使用此功能,您可以設置始終 CC 規則。
(2)您可以使用此工具根據需要創建多個規則。
(3)如果要關閉規則,可以單擊 啟用自動CC / BCC,並且所有規則均無效。 您也可以取消選中規則名稱 自動CC / BCC管理器 對話框以禁用某些指定的規則。


相關文章:

如何自動在Outlook中自動抄送自己?


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
Hi guys, I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd. Is anyone able to check that I have it constructed correctly please? ******* Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Msg As Outlook.MailItem Dim onsMapi As Outlook.NameSpace Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String If Item.Subject = "Ref" Then strBcc = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" End If Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
This comment was minimized by the moderator on the site
If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to: [quote]If Item.Subject = "ref" then strBcc = ""[/quote] Personally, I would also add an [else strBcc = ""] just to cover your bases. Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try: [quote]If instr(Item.Subject,"ref",1) 0[/quote] The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer"). If you want all emails with subjects that start with "ref" with anything following it, then you can use the following: [quote]If instr(Item.Subject,"ref",1) = 1[/quote] This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations