Hoe een e-mail verzenden in Outlook met VBA?

Bijgewerkt: augustus 2021; Van toepassing op Microsoft Outlook 365 / 2019 / 2016

Hier is een opmerking die we kregen van een lezer.

Bedankt voor uw zeer nuttige hulp bij het coderen van Outlook. Ik vraag me af of je wat code kunt delen om het verzenden van een e-mail in Outlook te automatiseren? Ik weet dat er verschillende manieren zijn om terugkerende berichten te verzenden, maar ik ben specifiek geïnteresseerd in het gebruik van VBA voor deze taak.

Bedankt voor de vraag. Het automatisch verzenden van e-mails lijkt een van de handigste en meest populaire taken te zijn die u kunt automatiseren met VBA. Lees verder voor meer details en een eenvoudig script om hier aan de slag te gaan.

VBA schrijven voor het verzenden van Outlook-e-mails

In het vrij eenvoudige voorbeeld hieronder behandelen we de volgende stappen:

1. Allereerst gebruiken we het VBA Outlook-objectmodel om een ​​nieuw e-mailitem te maken.
2. Daarna gaan we verder en stellen het belang van het bericht, de ontvangers (gescheiden door puntkomma's) en de stijl en inhoud van de hoofdtekst in.
3. Vervolgens tonen we het bericht in uw Microsoft Outlook-toepassing.
4. Als laatste gaan we verder en sturen het naar de ontvangers.

Hier is de eenvoudige VBA-code om automatisch eenvoudige e-mails te maken en te verzenden. Merk op dat je dit script gemakkelijk moet verbeteren om bestandsbijlagen, taken enz. op te nemen, maar laten we beginnen met een heel eenvoudig script.

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail
.To = ""
.Importance = olImportanceHigh
.Subject = ""
.Body = ""
.BodyFormat = olFormatHTML
.Display
End With

'I purposely commented the next line, uncomment it by removing the "'" sign to send your email.
' MyEmail.Send
End Sub

Outlook VBA-macrosnelkoppeling

Misschien wilt u kijken naar het koppelen van de VBA-code die u zojuist hebt geschreven met een opdrachtknop in Outlook. Hiermee kunt u het eenvoudig starten via een snelkoppeling in het Outlook-lint.

Hier is hoe dat te doen:

1. Ga eerst door en open Microsoft Outlook.
2. Druk op Bestand en selecteer vervolgens Opties
3. Ga nu door en selecteer Lint aanpassen.
4. In het gedeelte Lint aanpassen ziet u de keuzelijst Kies opdrachten uit.
5. Selecteer macro's
6. Selecteer vervolgens uw nieuw gemaakte VBA-code, in ons geval moet de naam SendMail zijn.
7. Druk vervolgens op Toevoegen en vervolgens op OK. Optioneel wilt u misschien een pictogram aan uw macro toewijzen.
8. Uw macro is beschikbaar in de werkbalk Snelle toegang in de linkerbovenhoek van uw Outlook-toepassing.

Mogelijke problemen met VBA-macro-instellingen

Uw Outlook-macro-instellingen moeten mogelijk worden aangepast om macro's uit te voeren. Zo ja, dan kunt u dat als volgt doen.