Obsah
Toto je jednoduchý príklad odoslania e -mailu z programu Excel.
Kliknutím sem získate komplexnejší príklad: Odoslať pracovný list e -mailom ako samostatný zošit. Tento príklad sa zaoberá aj ochranou heslom a ďalšími bežnými problémami.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalseDim OutApp ako objektDim OutMail ako objekt'Vytvorte počiatočné premennéSet OutApp = CreateObject ("Outlook.Application")Set OutMail = OutApp.CreateItem (0)'E -mailPri chybe Pokračovať ďalejS OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Predmet".Body = "Text tela"„.Attachments.Add (FilePath)“ Voliteľné, ak máte prílohu.Displej'. Odoslať' Voliteľné na automatizáciu odosielania e -mailov.Ukončiť sPri chybe GoTo 0Set OutMail = NičSet OutApp = NičApplication.ScreenUpdating = TrueKoniec pod |
