Lang L: none (table-of-contents)
See on lihtne näide sellest, kuidas Excelist e -kirja saata.
Keerukama näite saamiseks klõpsake siin: Saatke tööleht e -posti teel eraldi töövihikuna. See näide käsitleb ka paroolikaitset ja muid levinumaid probleeme.
| 12345678910111213141516171819202122232425262728 | Alampostitööraamat ()Application.ScreenUpdating = ValeDim OutApp objektinaDim OutMail kui objekt"Looge esialgsed muutujadSet OutApp = CreateObject ("Outlook.Application")Määra OutMail = OutApp.CreateItem (0)'E -postVea korral Jätka järgmistKoos OutMailiga.to = "[email protected]".CC = "".BCC = "".Subject = "Teema".Body = "Keha tekst"'.Attachments.Add (FilePath)' Valikuline, kui teil on manus.Ekraan'. Saada' Valikuline e -kirjade saatmise automatiseerimiseks.LõpetaViga GoTo 0Set OutMail = Mitte midagiSet OutApp = Mitte midagiApplication.ScreenUpdating = TõsiEnd Sub |
