Wie kann man eine automatische Antwort mit der Original-E-Mail-Nachricht in Outlook einrichten?

Normalerweise fügt Outlook beim Erstellen einer Regel für automatische Abwesenheitsantworten die ursprüngliche Nachricht nicht in den Textkörper ein. Wie können Sie dennoch automatisch auf E-Mails antworten – und dabei die Originalnachricht beibehalten? In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie diese Aufgabe in Outlook so schnell wie möglich erledigen können.

Automatische Antwort E-Mails mit Originalnachricht in Outlook mithilfe eines VBA-Codes

---

Automatische Antwort E-Mails mit Originalnachricht in Outlook mithilfe eines VBA-Codes

Die herkömmliche Outlook-Regel kann Ihnen bei dieser Aufgabe nicht weiterhelfen – doch mit dem folgenden VBA-Code erledigen Sie sie schnell und mühelos. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatische Antwort E-Mails mit Originalnachricht:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. Schließen Sie dann das Code-Fenster und speichern Sie Ihre Änderungen. Starten Sie Outlook anschließend neu, damit der VBA-Code wirksam wird. Sobald Sie nun E-Mails erhalten, sendet Outlook automatisch eine automatische Antwort mit der Originalnachricht – wie im folgenden Screenshot dargestellt: