Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

如何在 Outlook 發郵件時實現自動密送?

在Outlook 發送郵件時,如果總是需要發送給另外一個收件人,但又不想讓其他收件人知道這個收件人的存在,你可以密送給這個收件人。通常添加密送收件人時,你需要先顯示密送欄,然後在密送欄裡添加這個收件人。本篇文章將介紹如何在 Outlook裡發送郵件時自動密送給同一個收件人。

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

arrow blue right bubble運行 VBA 實現默認自動密送

你可以運行下面VBA代碼在將發送的郵件裡自動添加指定的收件人。詳見以下步驟:

1. 在鍵盤上同時按Alt 和 F11鍵打開Microsoft Visual Basic for Applications視窗。

2. 在工程資源管理器窗格裡按兩下ThisOutlookSession,然後將下面的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 = "SomeEmailAddress@domain.com"
     
    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

注意:請將上述代碼裡的SomeEmailAddress@domain.com更改為你需要密送的郵箱位址。

3. 保存VBA代碼並且關閉Microsoft Visual Basic for Applications視窗。

你以後在Outlook裡發送郵件時,上述VBA代碼裡指定的郵箱位址都會自動添加為密件收件人。


arrow blue right bubble使用 Kutools for Outlook快速實現自動密送

上面的VBA代碼對於初學者來說還是有難度的,也比較麻煩。這裡推薦一個使用起來既簡便又快速的工具:Kutools for Outlook。它能幫你在Outlook裡快速創建自動密送規則,在你發送的郵件裡自動添加指定的密件收件人。

Kutools for Outlook - 讓你在 Outlook 裡的工作更簡單、更快捷!批量保存/壓縮附件、高級列印、自動答覆\轉發\攔截垃圾郵件、刪除重複項,等等……

安裝Kutools for Outlook後,請按如下步驟進行設置:

1. 點擊Kutools > 自動抄送密送 > 開啟 (或管理),見下圖:

2. 在管理自動抄送密送對話方塊裡,點擊新建按鈕。見下圖:

3. 自動抄送密送對話方塊打開,在規則名稱文字方塊中輸入新規則名稱,在過濾操作部分勾選適應於所有正要發送的郵件選項,然後點擊收件人按鈕。

4. 在選擇姓名對話方塊中,你可以在密件副本文字方塊裡輸入需要密送的郵箱位址,或者從上面的連絡人列表裡選擇收件人後點擊密件副本按鈕,最後點擊確定按鈕。見下圖:

5. 返回到自動抄送密送對話方塊後你可以看到所有指定的密送郵箱位址已添加到抄送密送收件人清單方塊裡,點擊確定按鈕保存設置。之後點擊管理自動抄送密送對話方塊裡的確定按鈕完成設置。見下圖:

自動密送規則創建成功。所創建的自動密送規則對Outlook裡的所有郵箱帳戶都有效。此後,你在Outlook裡發送郵件時,這些郵件就會自動密送給所指定收件人。

注意:

1. 自動抄送密送功能支援創建自動抄送規則。
2. 自動抄送密送功能還能同時遵循多個規則。
3. 請點擊Kutools > 自動抄送密送 > 啟用停用所有規則。你還可以在管理自動抄送密送對話方塊裡取消勾選部分規則達到停用這些規則的目的。

點擊下載 Kutools for Outlook, 45天無限制免費試用!

 

Recommended Productivity Tools

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools for Outlook - More than 100 Advanced Functions for Outlook, Improve 70% Efficiency For you

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Forward multiple emails individually with one-click, and auto forward by rules.
  • Auto CC/BCC every sending email and easy for customizing rules, and auto reply without requiring exchange server.
  • Powerful junk emails filter, remove duplicate emails, reply with attachment, bunch of one-click operations, and so on...
  • 60-day unlimited free trial. 60-day money back guarantee. 2 years free upgrade and support. Buy once, use forever.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.