Ako poslať e-mail v programe Outlook s VBA?

Aktualizované: august 2021; Platí pre Microsoft Outlook 365/2019/2016

Tu je poznámka, ktorú sme dostali od čitateľa.

Ďakujeme za vašu veľmi užitočnú pomoc s kódovaním programu Outlook. Zaujímalo by ma, či môžete zdieľať nejaký kód, ktorý pomôže automatizovať odosielanie e-mailov v programe Outlook? Viem, že existuje niekoľko spôsobov, ako posielať opakujúce sa správy, ale konkrétne ma zaujíma použitie VBA pre túto úlohu.

dakujem za otazku. Zdá sa, že automatické odosielanie e-mailov patrí medzi najužitočnejšie a najobľúbenejšie úlohy, ktoré môžete automatizovať pomocou VBA. Prečítajte si ďalšie podrobnosti a jednoduchý skript, ktorý vám pomôže začať tu.

Písanie VBA na odosielanie e-mailov programu Outlook

V pomerne jednoduchom príklade nižšie pokryjeme nasledujúce kroky:

1. Najprv použijeme objektový model VBA Outlook na vytvorenie novej e-mailovej položky.
2. Potom budeme pokračovať a nastavíme dôležitosť správy, príjemcov (oddelených bodkočiarkami) a štýl a obsah hlavného textu.
3. Potom správu zobrazíme vo vašej aplikácii Microsoft Outlook.
4. Nakoniec pokračujeme a pošleme to príjemcom.

Tu je jednoduchý kód VBA na automatické vytváranie a odosielanie jednoduchých e-mailov. Všimnite si, že tento skript môžete jednoducho vylepšiť tak, aby obsahoval prílohy súborov, úlohy atď., ale začnime s veľmi jednoduchým 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

Skratka makra Outlook VBA

Možno by ste sa chceli pozrieť na priradenie kódu VBA, ktorý ste práve napísali, k príkazovému tlačidlu v programe Outlook. To vám umožní jednoducho ho spustiť zo skratky umiestnenej na páse s nástrojmi programu Outlook.

Postup:

1. Najprv pokračujte a otvorte Microsoft Outlook.
2. Kliknite na Súbor a potom vyberte Možnosti
3. Teraz pokračujte a vyberte položku Prispôsobiť pásku.
4. V časti Prispôsobiť pás s nástrojmi si všimnete zoznam Vybrať príkazy z.
5. Vyberte možnosť Makrá
6. Potom vyberte svoj novovytvorený kód VBA, v našom prípade by mal byť názov SendMail.
7. Potom stlačte Pridať a potom OK. Voliteľne možno budete chcieť k makru priradiť ikonu.
8. Vaše makro bude dostupné na paneli s nástrojmi Rýchly prístup v ľavej hornej časti aplikácie Outlook.

Možné problémy s nastaveniami makra VBA

Ak chcete spustiť makrá, možno bude potrebné vyladiť nastavenia makier programu Outlook. Ak áno, tu je návod, ako to urobiť.