Cum se trimite un e-mail în Outlook cu VBA?

Actualizat: august 2021; Aplicabil pentru Microsoft Outlook 365 / 2019 / 2016

Iată o notă pe care am primit-o de la un cititor.

Vă mulțumim pentru ajutorul foarte util pentru codificare Outlook. Mă întreb dacă puteți partaja un cod pentru a ajuta la automatizarea trimiterii unui e-mail în Outlook? Știu că există mai multe moduri de a trimite mesaje recurente, dar sunt interesat în mod special să folosesc VBA pentru această sarcină.

Multumesc pentru intrebare. Trimiterea automată de e-mailuri pare să fie printre cele mai utile și populare sarcini pe care le puteți automatiza folosind VBA. Citiți mai multe detalii și un script simplu pentru a începe aici.

Scrierea VBA pentru trimiterea de e-mailuri Outlook

În exemplul destul de simplu de mai jos, vom acoperi următorii pași:

1. În primul rând, vom folosi modelul obiect VBA Outlook pentru a crea un nou articol de e-mail.
2. Apoi vom continua și vom stabili importanța mesajului, destinatarii (separați prin punct și virgulă) și stilul și conținutul textului.
3. Apoi vom afișa mesajul în aplicația dvs. Microsoft Outlook.
4. În sfârșit, vom continua și o vom trimite destinatarilor.

Iată codul VBA simplu pentru a crea și a trimite automat e-mailuri simple. Rețineți că trebuie să îmbunătățiți cu ușurință acest script pentru a include fișiere atașate, sarcini etc., dar să începem cu un script foarte simplu.

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

Comandă rapidă macro Outlook VBA

Poate doriți să analizați asocierea codului VBA pe care tocmai l-ați scris cu un buton de comandă în Outlook. Acest lucru vă va permite să-l lansați cu ușurință dintr-o comandă rapidă plasată în Panglica Outlook.

Iată cum să faci asta:

1. Mai întâi, mergeți mai departe și deschideți Microsoft Outlook.
2. Apăsați pe Fișier, apoi selectați Opțiuni
3. Acum mergeți mai departe și selectați Personalizare panglică.
4. În secțiunea Personalizare panglică, veți observa caseta de listă Alegeți comenzi din.
5. Selectați Macro-uri
6. Apoi Selectați codul VBA nou creat, în cazul nostru numele ar trebui să fie SendMail.
7. Apoi apăsați Adăugare și apoi OK. Opțional, ați putea dori să atribuiți o pictogramă macrocomenzii dvs.
8. Macro-ul dvs. va fi disponibil în bara de instrumente Acces rapid din partea stângă sus a aplicației Outlook.

Probleme posibile cu setările macro VBA

Este posibil ca setările pentru macrocomenzi Outlook să fie reglate pentru a rula macrocomenzi. Dacă da, iată cum să faci asta.