如何在 Outlook 中批量回复多封内容相同的邮件

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

许多用户要求一种解决方案，使他们能够在 Outlook 中批量回复多封选定的内容相同的电子邮件。 虽然 Outlook 没有提供这样的功能，但您仍然可以通过一段 VBA 代码来实现它。

我听过很多用户抱怨Outlook没有支持他们一次给多封邮件发送相同回复的功能。 当他们选择多封电子邮件时，“回复”和“全部回复”操作都会变成灰色——被禁用。 针对这个问题，下面分享一个实现这个功能的方法。

在 Outlook 中批量回复多封内容相同的邮件

批量回复多封内容相同的邮件

  1. 首先，start 您的 Outlook 程序。
  2. 然后，您需要创建一个模板回复，您希望将其用于回复多封电子邮件。
  • 首先，创建一个新电子邮件。
  • 然后，根据您要回复的内容撰写此电子邮件。
  • 接下来，单击“文件”并选择“另存为”选项。
  • 稍后，在新的“另存为”对话框中，输入名称并在“另存为类型”框中选择“Outlook 模板”。
  • 最后，点击“确定”按钮。保存模板
  1. 接下来，您可以关闭电子邮件而不保存更改。
  2. 随后，您应该按“Alt + F11”键按钮。
  3. 之后，将显示 Outlook VBA 编辑器窗口。
  4. 现在，您应该找到并打开“ThisOutlookSession”项目并将以下 VBA 代码复制到其中。
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

VBA代码 - 批量回复多封内容相同的邮件

  1. 最后，您可以关闭当前窗口并尝试使用此宏。
  • 首先，在邮件列表中选择多封邮件。
  • 然后，右键单击它们。
  • 接下来，在上下文菜单中选择并点击“相同回复”选项。在上下文菜单中选择“相同回复”
  • 然后，您将需要指定用于回复的模板。指定模板
  • 输入姓名并点击“确定”后，相同的回复将发送到这些选定的电子邮件。

前景容易腐败

作为 Outlook 的普通用户，我遇到过各种各样的错误。 因此，我采取了各种措施来保护我的 Outlook 数据。 但是，由于Outlook容易损坏，崩溃难以预料，我不得不时刻做好准备。 例如，为了尽快抢救我的数据，我随身准备了一个非常棒的恢复工具—— DataNumen Outlook Repair。 它能够 修复Outlook 文件没有任何大惊小怪。

作者简介：

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

立即分享：

评论被关闭。