Obsah
Toto je jednoduchý příklad odeslání e -mailu z aplikace Excel.
Kliknutím sem zobrazíte složitější příklad: Odeslat list e -mailem jako samostatný sešit. Tento příklad se také zabývá ochranou heslem a dalšími běžnými problémy.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalseDim OutApp jako objektDim OutMail jako objekt`` Vytvořte počáteční proměnnéSet OutApp = CreateObject ("Outlook.Application")Set OutMail = OutApp.CreateItem (0)'E-mailemPři chybě Pokračovat DalšíS OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Předmět".Body = "Text těla"'.Attachments.Add (FilePath)' Volitelné, pokud máte přílohu.Zobrazit'. Odeslat' Volitelné pro automatizaci odesílání e -mailů.Konec sPři chybě GoTo 0Set OutMail = NicSet OutApp = NicApplication.ScreenUpdating = TrueEnd Sub |
