Kako poslati e-poštu u Outlooku s VBA?

Ažurirano: kolovoz 2021.; Primjenjivo na Microsoft Outlook 365 / 2019 / 2016

Evo bilješke koju smo dobili od čitatelja.

Hvala na vrlo korisnoj pomoći za kodiranje u Outlooku. Zanima me možete li podijeliti neki kod za automatizaciju slanja e-pošte u Outlooku? Znam da postoji nekoliko načina za slanje ponavljajućih poruka, ali posebno sam zainteresiran za korištenje VBA za moj ovaj zadatak.

Hvala na pitanju. Čini se da je automatsko slanje e-pošte među najkorisnijim i najpopularnijim zadacima koje možete automatizirati pomoću VBA. Ovdje čitajte za više detalja i jednostavnu skriptu za početak.

Pisanje VBA za slanje Outlook e-pošte

U prilično jednostavnom primjeru u nastavku pokriti ćemo sljedeće korake:

1. Prvo ćemo koristiti VBA Outlook objektni model za stvaranje nove stavke e-pošte.
2. Zatim ćemo nastaviti i postaviti važnost poruke, primatelje (odvojene točkom i zarezom) te stil i sadržaj teksta.
3. Zatim ćemo prikazati poruku u vašoj aplikaciji Microsoft Outlook.
4. Na kraju ćemo ga poslati primateljima.

Evo jednostavnog VBA koda za automatsko stvaranje i slanje jednostavnih e-poruka. Imajte na umu da ovu skriptu trebate jednostavno poboljšati kako biste uključili privitke datoteka, zadatke itd.', ali počnimo s vrlo osnovnom skriptom.

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 makro prečac

Možda biste željeli provjeriti povezivanje VBA koda koji ste upravo napisali s naredbenim gumbom u Outlooku. To će vam omogućiti da ga jednostavno pokrenete s prečaca smještenog na Outlook vrpci.

Evo kako to učiniti:

1. Prvo otvorite Microsoft Outlook.
2. Pritisnite Datoteka, a zatim odaberite Opcije
3. Sada samo naprijed i odaberite Prilagodi vrpcu.
4. U odjeljku Prilagodba vrpce primijetit ćete okvir s popisom Odaberi naredbe.
5. Odaberite Macros
6. Zatim odaberite svoj novostvoreni VBA kod, u našem slučaju naziv bi trebao biti SendMail.
7. Zatim pritisnite Dodaj, a zatim OK. Po želji možete htjeti dodijeliti ikonu svojoj makronaredbi.
8. Vaša makronaredba će biti dostupna na alatnoj traci za brzi pristup u gornjoj lijevoj strani vaše Outlook aplikacije.

Mogući problemi s postavkama VBA makronaredbi

Vaše postavke makronaredbe Outlooka možda će biti potrebno podesiti da biste mogli pokrenuti makronaredbe. Ako je tako, evo kako to učiniti.