Hoe automatisch antwoorden met een origineel e-mailbericht in Outlook?
Normaal gesproken, wanneer we een regel maken om automatisch te vertrouwen op de e-mail die niet op kantoor is, wordt het oorspronkelijke bericht in de hoofdtekst niet opgenomen. Hoe kon u de e-mails met het originele bericht in Outlook automatisch vertrouwen? In dit artikel zal ik het hebben over een VBA-code om u te helpen deze taak zo snel mogelijk af te ronden in Outlook.
Antwoord automatisch e-mails met origineel bericht in Outlook met VBA-code
Antwoord automatisch e-mails met origineel bericht in Outlook met VBA-code
De normale Outlook-regel kan u niet helpen om de klus te klaren, maar met de volgende VBA-code kunt u dit snel en gemakkelijk voltooien. Doe alstublieft als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSession van de Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: e-mails automatisch beantwoorden 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 vervolgens het codevenster op en sluit het, sluit of start Outlook opnieuw om de VBA-code van kracht te laten worden. Wanneer u nu e-mails ontvangt, ontvangt Outlook een automatisch antwoord met het originele bericht zoals weergegeven in de volgende schermafbeelding:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.