Jak odeslat e-mail v aplikaci Outlook s VBA?

Aktualizováno: říjen 2023; Platí pro Microsoft Outlook 365/2019/2016

Úvod

Automatizace odesílání e-mailů pomocí VBA v aplikaci Outlook může výrazně zjednodušit pracovní procesy. V tomto článku se podíváme na kroky, jak psát makra aplikace Outlook pro automatické odesílání e-mailů.

Obsah

1. Psaní VBA pro odesílání e-mailů
2. Zkratka makra aplikace Outlook VBA
3. Možné problémy s nastavením maker VBA
4. Bonus: Odešlete e-mail z aplikace Outlook pomocí PowerShellu

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

Při psaní VBA kódu pro odesílání e-mailů v aplikaci Outlook následujeme tyto kroky:

1. Vytvoříme novou e-mailovou položku pomocí objektového modelu VBA Outlook.
2. Nastavíme důležitost zprávy, příjemce a obsah textu.
3. Zprávu zobrazíme v aplikaci Outlook.
4. Odešleme ji příjemcům.

Zde je jednoduchý kód VBA pro automatické vytváření a odesílání e-mailů:

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)
With MyEmail
    .To = "[email protected]" 
    .Importance = olImportanceHigh 
    .Subject = "Předmět zprávy"
    .Body = "Toto je tělo zprávy."
    .BodyFormat = olFormatHTML
    .Display ' Zobrazí zprávu (změňte na .Send pro přímo odeslání)
End With
' Odešlete e-mail
' MyEmail.Send ' Odkomentujte, chcete-li odeslat e-mail
End Sub

Zkratka makra aplikace Outlook VBA

Chcete-li rychle spustit makro, můžete jej přiřadit k tlačítku v aplikaci Outlook:

1. Otevřete aplikaci Microsoft Outlook.
2. Klikněte na Soubor a vyberte Možnosti.
3. Vyberte Přizpůsobit pás karet.
4. Vyberte Makra v seznamu Vybrat příkazy z.
5. Vyberte váš kód VBA a stiskněte Přidat.
6. Potvrďte kliknutím na OK.

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

Aby bylo možné spouštět makra, může být potřeba upravit nastavení aplikace Outlook. Zde je návod, jak to udělat.

Bonus: Odešlete e-mail z aplikace Outlook pomocí PowerShellu

V PowerShellu můžete použít cmdlet Send-MailMessage, avšak vyžaduje to ověření na poštovním serveru a nepodporuje moderní metody jako OAuth. Odesílání e-mailů je proto snazší, pokud máte v počítači nakonfigurovánu aplikaci Outlook.

Zde je příklad PowerShell skriptu, který odešle e-mail některým uživatelům z propojeného souboru Excel:

# otevřete soubor Excel
$ExcelObj = New-Object -comobject Excel.Application
$ExcelWorkBook = $ExcelObj.Workbooks.Open("C:\PS\user_list.xlsx")
$ExcelWorkSheet = $ExcelWorkBook.Sheets.Item("Sheet1")
# Získejte počet vyplněných řádků v souboru xlsx
$rowcount=$ExcelWorkSheet.UsedRange.Rows.Count
# Projděte všechny řádky ve sloupci 1, začněte od druhého řádku
for($i=2;$i -le $rowcount;$i++){
    $useremail = $ExcelWorkSheet.Columns.Item(1).Rows.Item($i).Text
    ...
    $email.Send()
}
$ExcelWorkBook.close($true)

Tento skript předpokládá, že máte spuštěnou aplikaci Outlook a generuje předmět a tělo e-mailu pro každou e-mailovou adresu příjemce v souboru XLSX.