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 > 自动抄送密送 > 启用停用所有规则。你还可以在管理自动抄送密送对话框里取消勾选部分规则达到停用这些规则的目的。

 

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.