在 Outlook 中回复所有人时如何自动将自己包含为收件人

展望解决方案 2025 年 9 月 29 日
立即分享：

您是否经常希望回复所有人，包括您自己作为收件人？ 如果您总是手动添加自己的电子邮件地址，那会很麻烦。 这篇文章将教你如何让它自动化。

也许您在 Outlook 中配置了多个电子邮件帐户。 因此，也许为了日后检查方便，当您回复所有收件人的邮件时，不妨将您的另一个电子邮件地址也作为收件人。 假设你经常有这个需求，如果你总是手动添加自己的电子邮件帐户，那将是很繁琐的。 针对这个问题，在这里我们将向您介绍一种解决方法以及一种通过 Outlook VBA 的快速方法。

解决方法：创建 Outlook 规则

  1. 首先，启动 Outlook 应用程序，然后在“邮件”选项卡下的“移动”组中单击“规则”按钮。然后从下拉列表中选择“管理规则和通知”。
  2. 然后在弹出窗口中，点击“新建规则”按钮。
  3. 接下来选择“对我发送的消息应用规则”并点击“下一步”。
  4. 之后，您应该选择“在主题中包含特定的词”，点击“特定词”链接，然后添加“RE”。主题中有 RE
  5. 添加并单击“下一步”后，您应该指定操作。 选择“CC the message to people or public group”，点击“people or public group”链接并在“To”字段中输入您自己的电子邮件地址。抄送给自己的消息
  6. 最后您可以单击“下一步”并像往常一样完成规则设置。

但是，此解决方法不会自动将您自己的电子邮件地址添加为回复电子邮件中的一个收件人。 它将创建另一封新电子邮件并将您添加到“抄送”字段中并发送出去。 此外，它无法识别收件人的数量并识别它是否是回复所有电子邮件。 为了解决此解决方法的弱点，这里是通过 Outlook VBA 的实际方法。

回复所有人时使用 VBA 自动包含自己

  1. 首先，启动 Outlook，然后按“Alt + F11”键。
  2. 然后在弹出的“Visual Basic”窗口中，打开“ThisOutlookSession”项目，将下面的VBA代码复制粘贴进去。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Recip As Recipient
    Dim MyAddr As String
 
    'Replace with your own email address
    MyAddr = "youremailaddress@datanumen.com"
 
    If InStr(Item.Subject, "RE") > 0 Then
       If Item.Recipients.Count > 1 Then
          If MsgBox("Reply All Including Yourself?", vbYesNo + vbQuestion) = vbYes Then
             Set Recip = Item.Recipients.Add(MyAddr)
             'To CC, replace "olTo" with "olCC"
             'To BCC, replace "olTo" with "olBCC"
             Recip.Type = olTo
             Recip.Resolve
          End If
       End If
    End If
End Sub

VBA 代码 - 回复所有人时自动将您自己作为收件人

  1. 之后，您应该签署此代码并更改宏设置以仅允许数字签名的宏。
  2. 最后，你可以试试看。 当您回复所有收件人并单击“发送”按钮时，您将收到 Outlook 提示，如下图所示。 如果您点击“是”，Outlook 将自动添加您自己的电子邮件地址。展望提示

妥善保管您的 Outlook PST 文件

由于 Outlook PST 文件的漏洞，您应该提防它周围的所有潜在风险。 例如，您应该保持文件较小，因为过大的 PST 文件更容易损坏。 另外，你应该得到一个恒星 损坏的 PST 文件修复工具，当您遭受意外的 PST 文件损坏时，它将为您提供帮助。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复腐败 SQL Server db 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。