Hur skickar jag ett e-postmeddelande i Outlook med VBA?

Uppdaterad: augusti 2021; Gäller Microsoft Outlook 365/2019/2016

Här är en anteckning vi fick från en läsare.

Tack för din mycket användbara Outlook-kodningshjälp. Jag undrar om du kan dela med dig av någon kod för att hjälpa till att automatisera att skicka ett e-postmeddelande i Outlook? Jag vet att det finns flera sätt att skicka återkommande meddelanden men jag är speciellt intresserad av att använda VBA för min denna uppgift.

Tack för frågan. Att automatiskt skicka e-postmeddelanden verkar vara bland de mest användbara och populära uppgifterna du kan automatisera med VBA. Läs vidare för mer information och ett enkelt manus för att komma igång här.

Skriver VBA för att skicka Outlook-e-post

I det ganska enkla exemplet nedan kommer vi att täcka följande steg:

1. Först och främst använder vi VBA Outlook-objektmodellen för att skapa ett nytt e-postobjekt.
2. Sedan går vi vidare och ställer in meddelandets betydelse, mottagare (separerade med semikolon) och brödtextstil och innehåll.
3. Sedan visar vi meddelandet i ditt Microsoft Outlook-program.
4. Sist går vi vidare och skickar det till mottagarna.

Här är den enkla VBA-koden för att automatiskt skapa och skicka enkla e-postmeddelanden. Observera att du enkelt ska förbättra det här skriptet till att inkludera filbilagor, uppgifter etc', men låt oss börja med ett mycket grundläggande 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 genväg

Du kanske vill undersöka att associera VBA-koden du just skrev med en kommandoknapp i Outlook. Detta gör att du enkelt kan starta den från en genväg placerad i Outlook-bandet.

Så här gör du det:

1. Gå först vidare och öppna Microsoft Outlook.
2. Tryck på Arkiv och välj sedan Alternativ
3. Gå nu vidare och välj Anpassa menyfliksområdet.
4. I avsnittet Anpassa menyfliksområdet ser du listrutan Välj kommandon från.
5. Välj makron
6. Välj sedan din nyskapade VBA-kod, i vårt fall ska namnet vara SendMail.
7. Tryck sedan på Lägg till och sedan på OK. Alternativt kanske du vill tilldela en ikon till ditt makro.
8. Ditt makro kommer att vara tillgängligt i verktygsfältet Snabbåtkomst i den övre vänstra sidan av ditt Outlook-program.

Möjliga problem med VBA-makroinställningar

Dina makroinställningar i Outlook kan behöva justeras för att kunna köra makron. Om så är fallet, så här gör du det.