So stapeln Sie mehrere E-Mails mit demselben Inhalt in Ihrem Outlook

Viele Benutzer fragen nach einer Lösung, mit der sie mehrere ausgewählte E-Mails mit demselben Inhalt in Outlook stapelweise beantworten können. Obwohl Outlook eine solche Funktion nicht bietet, können Sie sie dennoch über einen Teil des VBA-Codes erreichen.

Ich habe eine große Anzahl von Benutzern gehört, die sich darüber beschwert haben, dass Outlook keine Funktion hat, die sie dabei unterstützt, dieselbe Antwort auf mehrere E-Mails gleichzeitig zu senden. Wenn sie mehrere E-Mails auswählen, werden die Aktionen "Antworten" und "Alle antworten" ausgegraut - deaktiviert. Wenn wir uns dieses Problem ansehen, werden wir im Folgenden eine Methode zur Realisierung dieser Funktion vorstellen.

Stapelantwort Mehrere E-Mails mit demselben Inhalt

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Anschließend müssen Sie eine Vorlagenantwort erstellen, die Sie zum Beantworten mehrerer E-Mails verwenden möchten.

• Erstellen Sie zunächst eine neue E-Mail.
• Verfassen Sie dann diese E-Mail basierend auf dem, was Sie beantworten möchten.
• Klicken Sie anschließend auf "Datei" und wählen Sie die Option "Speichern unter".
• Geben Sie später im neuen Dialogfeld "Speichern unter" einen Namen ein und wählen Sie "Outlook-Vorlage" im Feld "Dateityp" aus.
• Zuletzt klicken Sie auf "OK".

3. Als Nächstes können Sie die E-Mail schließen, ohne Änderungen zu speichern.
4. Anschließend sollten Sie die Tasten „Alt + F11“ drücken.
5. Danach wird das Outlook VBA-Editorfenster angezeigt.
6. Nun sollten Sie das Projekt "ThisOutlookSession" suchen und öffnen und den folgenden VBA-Code darin kopieren.

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

7. Schließlich können Sie das aktuelle Fenster schließen und dieses Makro ausprobieren.

• Wählen Sie zunächst mehrere E-Mails in der Mailingliste aus.
• Klicken Sie dann mit der rechten Maustaste darauf.
• Wählen Sie anschließend im Kontextmenü die Option "Gleiche Antwort" und klicken Sie darauf.
• Anschließend müssen Sie die Vorlage angeben, die für die Antwort verwendet wird.
• Nachdem Sie den Namen eingegeben und auf "OK" geklickt haben, wird dieselbe Antwort an diese ausgewählten E-Mails gesendet.

Ausblick ist anfällig für Korruption

Als regelmäßiger Benutzer von Outlook war ich einer Reihe von Fehlern ausgesetzt. Daher habe ich verschiedene Maßnahmen ergriffen, um meine Outlook-Daten zu schützen. Aufgrund der Tatsache, dass Outlook anfällig für Beschädigungen ist und ein Absturz schwer vorherzusagen ist, muss ich mich die ganze Zeit darauf vorbereiten. Um beispielsweise meine Daten so schnell wie möglich zu retten, habe ich ein bemerkenswertes Wiederherstellungstool bereitgehalten - DataNumen Outlook Repair. Es ist in der Lage Outlook reparieren Datei ohne viel Aufhebens.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Korruption und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX