Turinys
Tai paprastas pavyzdys, kaip siųsti el. Laišką iš „Excel“.
Spustelėkite čia, jei norite gauti sudėtingesnį pavyzdį: Siųsti darbalapį el. Paštu kaip atskirą darbaknygę. Šis pavyzdys taip pat susijęs su slaptažodžio apsauga ir kitomis įprastomis problemomis.
| 12345678910111213141516171819202122232425262728 | Pašto_ darbo knyga ()Application.ScreenUpdating = Netiesa„Dim OutApp“ kaip objektas„Dim OutMail“ kaip objektas„Sukurkite pradinius kintamuosiusSet OutApp = CreateObject ("Outlook.Application")Nustatyti „OutMail“ = „OutApp.CreateItem“ (0)'El. PaštasDėl klaidos Tęsti toliauSu „OutMail“.to = "[email protected]".CC = "".BCC = "".Subject = "Tema".Body = "Kūno tekstas"'.Attachments.Add (FilePath)' Neprivaloma, jei turite priedą.Ekrane'.Siųsti' Pasirenkama automatizuoti el. Laiškų siuntimą.Pabaiga suKlaida „GoTo 0“„Set OutMail“ = nieko„Set OutApp“ = niekoApplication.ScreenUpdating = TiesaPabaiga Sub |
