Hoe kunt u automatisch antwoorden met het originele e-mailbericht in Outlook?

Normaal gesproken bevat een automatische afwezigheidsreactie in Outlook het originele bericht niet in de hoofdtekst. Hoe kunt u er dan voor zorgen dat uw automatische reactie wél het originele e-mailbericht meeneemt? In dit artikel bespreek ik een VBA-code waarmee u deze taak razendsnel uitvoert in Outlook.

Automatisch antwoord e-mails met origineel bericht in Outlook met VBA-code

---

Automatisch antwoord e-mails met origineel bericht in Outlook met VBA-code

De standaard Outlook-regel biedt hier geen ondersteuning voor, maar met de volgende VBA-code lost u dit snel en eenvoudig op. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Automatisch antwoord e-mails met origineel bericht:

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. Sluit vervolgens het codevenster met Opslaan en sluiten, en sluit Outlook af of start het opnieuw om de VBA-code te activeren. Vanaf nu verzendt Outlook automatisch een automatisch antwoord — inclusief het originele bericht — zodra u e-mails ontvangt, zoals in de volgende schermafbeelding wordt weergegeven: