Hoe automatisch te antwoorden met het originele e-mailbericht in Outlook?
Normaal gesproken, wanneer we een regel maken om automatisch te reageren op e-mails bij afwezigheid, wordt het originele bericht in de berichttekst niet meegenomen. Hoe kun je automatisch reageren op e-mails inclusief het originele bericht in Outlook? In dit artikel zal ik het hebben over een VBA-code die je helpt deze taak zo snel mogelijk in Outlook uit te voeren.
Automatisch antwoorden op e-mails met origineel bericht in Outlook met VBA-code
Automatisch antwoorden op e-mails met origineel bericht in Outlook met VBA-code
De normale Outlook-regel kan je niet helpen met deze taak, maar met de volgende VBA-code kun je dit snel en gemakkelijk afhandelen. Doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Dubbelklik in het Microsoft Visual Basic for Applications-venster 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 antwoorden op 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. Sla daarna het codevenster op en sluit het, sluit Outlook af of herstart het om de VBA-code actief te maken. Nu, wanneer je e-mails ontvangt, zal Outlook automatisch een antwoord versturen met het originele bericht zoals in de onderstaande schermafbeelding te zien is:
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
