Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 ThisOutlookSession 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:


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.