在 Outlook 中使用“全部回复”时如何将除原始发件人以外的所有收件人自动移动到“抄送”字段

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

某些用户在 Outlook 中使用“全部回复”时，总是将除原始发件人之外的所有收件人移至“抄送”字段。 本文将介绍一种用 Outlook VBA 自动移动的方法。

在 Outlook 中使用“全部回复”时自动将除原始发件人以外的所有收件人移至“抄送”字段默认情况下，当您选择“全部回复”来回复一封邮件时，原来在“收件人”栏中的所有收件人仍将放在回复邮件的“收件人”栏中。 然而，许多用户希望将所有收件人移动到“抄送”字段，而“收件人”字段中只有原始发件人。 针对这个需求，这里公开一段VBA代码，可以自动实现。

自动将除原始发件人以外的所有收件人移至“全部回复”中的“抄送”字段

  1. 首先，启动您的 Outlook 程序。
  2. 然后在 Outlook 主窗口中，按“Alt + F11”键按钮。
  3. 接下来您将进入 Outlook VBA 编辑器。
  4. 随后，您应该找到并打开“ThisOutlookSession”项目。
  5. 稍后您需要将以下 VBA 代码复制并粘贴到该项目窗口中。
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

VBA 代码 - 使用“全部回复”时自动将除原始发件人以外的所有收件人移至“抄送”字段

  1. 之后，您应该对该宏进行签名，然后更改您的 Outlook 宏设置以允许数字签名的宏。
  2. 最终你可以重新tar在 Outlook 中激活新的 VBA 项目。
  3. 从现在开始，每次使用“全部回复”回复邮件时，您都会看到所有收件人都已移至“抄送”字段，而“收件人”字段中只有原始发件人。

在 PST 腐败的情况下不要恐慌

如果您的 PST 文件包含大量您的宝贵数据，例如客户信息等，一旦您的 PST 文件损坏，您一定会担心。 但是，如果您最近备份了文件，就永远不会惊慌失措。 备份将使您能够取回您的 损坏的外观 轻松轻松地获取数据。 但是如果没有这样的备份，你仍然可以使用强大的恢复工具，比如 DataNumen Outlook Repair.

作者简介：

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

立即分享：

评论被关闭。