Hvordan sende en e-post i Outlook med VBA?

Oppdatert: august 2021; Gjelder for Microsoft Outlook 365 / 2019 / 2016

Her er et notat vi fikk fra en leser.

Takk for din svært nyttige Outlook-kodingshjelp. Jeg lurer på om du kan dele noen kode for å automatisere sending av e-post i Outlook? Jeg vet at det er flere måter å sende tilbakevendende meldinger på, men jeg er spesielt interessert i å bruke VBA til denne oppgaven.

Takk for spørsmålet. Automatisk sending av e-poster ser ut til å være blant de mest nyttige og populære oppgavene du kan automatisere ved hjelp av VBA. Les videre for flere detaljer og et enkelt skript for å komme i gang her.

Skrive VBA for å sende Outlook-e-post

I det ganske enkle eksemplet nedenfor dekker vi følgende trinn:

1. Først og fremst bruker vi VBA Outlook-objektmodellen til å lage et nytt e-postelement.
2. Deretter går vi videre og angir meldingens betydning, mottakere (atskilt med semikolon) og brødtekststil og innhold.
3. Deretter viser vi meldingen i Microsoft Outlook-applikasjonen din.
4. Til slutt går vi videre og sender den til mottakerne.

Her er den enkle VBA-koden for automatisk å opprette og sende enkle e-poster. Merk at du enkelt skal forbedre dette skriptet til å inkludere filvedlegg, oppgaver etc', men la oss starte med et veldig grunnleggende skript.

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 snarvei

Du vil kanskje se på å knytte VBA-koden du nettopp skrev med en kommandoknapp i Outlook. Dette lar deg enkelt starte den fra en snarvei plassert i Outlook-båndet.

Slik gjør du det:

1. Først, gå videre og åpne Microsoft Outlook.
2. Trykk på Fil og velg deretter Alternativer
3. Gå nå videre og velg Tilpass bånd.
4. I Tilpass bånd-delen vil du legge merke til listen Velg kommandoer fra.
5. Velg Makroer
6. Velg deretter din nyopprettede VBA-kode, i vårt tilfelle skal navnet være SendMail.
7. Trykk deretter på Legg til og deretter OK. Eventuelt vil du kanskje tilordne et ikon til makroen.
8. Makroen din vil være tilgjengelig i hurtigtilgangsverktøylinjen øverst til venstre i Outlook-programmet.

Mulige problemer med VBA-makroinnstillinger

Outlook-makroinnstillingene dine må kanskje justeres for å kjøre makroer. I så fall, her er hvordan du gjør det.