Sadržaj
Ovo je jednostavan primjer slanja e -pošte iz programa Excel.
Kliknite ovdje za složeniji primjer: Pošaljite radni list e -poštom kao zasebnu radnu knjigu. Ovaj primjer također se bavi zaštitom lozinkom i drugim uobičajenim problemima.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = NetačnoZatamnite OutApp kao objektZatamnjivanje pošte kao objekta'Stvorite početne varijablePostavi OutApp = CreateObject ("Outlook.Application")Postavi OutMail = OutApp.CreateItem (0)'E -poštaUključeno Slijedi nastavak greškeUz OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Predmet".Body = "Tekst tijela"'.Attachments.Add (FilePath)' Nije obavezno ako imate privitak.Prikaz'.Send' Opcionalno za automatiziranje slanja e -pošte.Završi sUključeno Greška Idi na 0Postavi OutMail = NištaPostavite OutApp = NištaApplication.ScreenUpdating = IstinaKraj podm |
