Outlookで同じコンテンツを含む複数の電子メールをバッチ返信する方法

Outlookソリューション 2025 年 9 月 29 日

多くのユーザーは、Outlookで同じ内容の複数の選択した電子メールにバッチ返信できるソリューションを求めています。 Outlookはそのような機能を提供していませんが、VBAコードを使用してそれを実現できます。

Outlookには、一度に複数の電子メールに同じ返信を送信することをサポートする機能がないという不満を多くのユーザーが聞いています。複数のメールを選択すると、「返信」と「すべて返信」の両方のアクションがグレー表示になり、無効になります。この問題を見て、以下、この機能を実現する方法を共有します。

同じ内容の複数のメールをバッチ返信する

そもそも、starOutlookプログラム。
次に、複数の電子メールへの返信に使用するテンプレート返信を作成する必要があります。

まず、新しいメールを作成します。
次に、返信したい内容に基づいてこのメールを作成します。
次に、「ファイル」をクリックし、「名前を付けて保存」オプションを選択します。
その後、新しい[名前を付けて保存]ダイアログボックスで名前を入力し、[ファイルの種類]ボックスで[Outlookテンプレート]を選択します。
最後に「OK」ボタンを押します。

次に、変更を保存せずにメールを閉じることができます。
その後、「Alt + F11」キーボタンを押す必要があります。
その後、OutlookVBAエディタウィンドウが表示されます。
ここで、「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

最後に、現在のウィンドウを閉じて、このマクロを試すことができます。

まず、メールリストで複数のメールを選択します。
次に、それらを右クリックします。
次に、コンテキストメニューで[同じ返信]オプションを選択して押します。
次に、返信に使用するテンプレートを指定する必要があります。
名前を入力して「OK」を押すと、これらの選択したメールに同じ返信が送信されます。

Outlookは破損しやすい

Outlookの常連ユーザーとして、私はさまざまなエラーに見舞われてきました。そのため、Outlookのデータを保護するためにさまざまな対策を講じています。ただし、Outlookは損傷を受けやすく、クラッシュを予測するのが難しいため、常に準備をしなければなりません。たとえば、データをできるだけ早く救済するために、私は驚くべき回復ツールを手元に置いてきました– DataNumen Outlook Repair。できます Outlookを修正する大騒ぎせずにファイル。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLの破損と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com