Ahoj, obracím se na Vás s prosbou o radu jak funkčně odeslat e-mail přes VBA prostřednictvím Outlooku.
Využívám tento kód

Sub ExcelOutlookPriloha()

    'Tools / References / Microsoft Outlook x.x Object Library

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
   
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
   
        'adresát
        .To = "nekdo@nekde.cz"
       
        'kopie pro
        .CC = "schranka@email.com"
       
        'skrytá kopie pro
        .BCC = "info@firma.org"
       
        'předmět zprávy
        .Subject = "Předmět zprávy"
       
        'text zprávy
        .Body = "1. řádek zprávy" & Chr(13) & "2. druhý řádek zprávy"
       
        'aktivní (uložený) sešit jako příloha
        .Attachments.Add ActiveWorkbook.FullName
       
        'jiná příloha
        .Attachments.Add ActiveWorkbook.Path & "\soubor.txt"
       
        'zobrazení okna se zprávou (není nutné)
        .Display
       
        'odeslání zprávy
        '.Send
       
    End With
   
    'uvolnění z paměti
    Set OutMail = Nothing
    Set OutApp = Nothing
   
End Sub

Čerpáno z TÉTO STRÁNKY

Problém, kterého sem si všimnul až po nějaké době je, že email se neodešle ihned při kliknutí na tlačítko odeslat (v okně Outlooku nová zpráva), ale uloží se do konceptů. K odeslání dochází až tehdy pokud se klasicky otevře Outlook.

Nechat proběhnout kód aby vytvořil zprávu a poté ještě znovu nahodit Outlook aby došlo k faktickému odeslání jaksi postrádá smysl. Věděl by někdo jak z toho ven.

PS: jedná se o office 2007