Jak odeslat e-mail v aplikaci Outlook s VBA?

Aktualizováno: srpen 2021; Platí pro Microsoft Outlook 365/2019/2016

Zde je poznámka, kterou jsme dostali od čtenáře.

Děkujeme za vaši velmi užitečnou pomoc s kódováním aplikace Outlook. Zajímalo by mě, jestli můžete sdílet nějaký kód, který pomůže automatizovat odesílání e-mailů v aplikaci Outlook? Vím, že existuje několik způsobů, jak posílat opakující se zprávy, ale konkrétně mě zajímá použití VBA pro tento úkol.

děkuji za otázku. Zdá se, že automatické odesílání e-mailů patří mezi nejužitečnější a nejoblíbenější úkoly, které můžete automatizovat pomocí VBA. Přečtěte si další podrobnosti a jednoduchý skript, který vám pomůže začít zde.

Psaní VBA pro odesílání e-mailů aplikace Outlook

V poměrně jednoduchém příkladu níže pokryjeme následující kroky:

1. Nejprve použijeme objektový model VBA Outlook k vytvoření nové e-mailové položky.
2. Poté budeme pokračovat a nastavíme důležitost zprávy, příjemce (oddělené středníkem) a styl a obsah hlavního textu.
3. Poté zprávu zobrazíme ve vaší aplikaci Microsoft Outlook.
4. Nakonec budeme pokračovat a odešleme jej příjemcům.

Zde je jednoduchý kód VBA pro automatické vytváření a odesílání jednoduchých e-mailů. Všimněte si, že tento skript můžete snadno vylepšit tak, aby zahrnoval přílohy souborů, úkoly atd., ale začněme velmi základním skriptem.

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

Zkratka makra aplikace Outlook VBA

Možná se budete chtít podívat na přidružení kódu VBA, který jste právě napsali, k příkazovému tlačítku v Outlooku. To vám umožní jej snadno spustit ze zástupce umístěného na pásu karet aplikace Outlook.

Postup:

1. Nejprve pokračujte a otevřete Microsoft Outlook.
2. Klepněte na Soubor a poté vyberte Možnosti
3. Nyní pokračujte a vyberte Přizpůsobit pás karet.
4. V části Přizpůsobit pás karet si všimnete seznamu Vybrat příkazy z.
5. Vyberte Makra
6. Poté vyberte svůj nově vytvořený kód VBA, v našem případě by název měl být SendMail.
7. Poté stiskněte Přidat a poté OK. Volitelně můžete svému makru přiřadit ikonu.
8. Vaše makro bude k dispozici na panelu nástrojů Rychlý přístup v levé horní části aplikace Outlook.

Možné problémy s nastavením maker VBA

Aby bylo možné spouštět makra, může být nutné vyladit nastavení maker aplikace Outlook. Pokud ano, zde je návod, jak to udělat.