Kazalo
To je preprost primer pošiljanja e -pošte iz Excela.
Kliknite tukaj za bolj zapleten primer: Pošljite delovni list po e -pošti kot ločen delovni zvezek. Ta primer obravnava tudi zaščito z geslom in druga pogosta vprašanja.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = NapačnoZatemni OutApp kot objektZatemni poštno pošto kot objekt'Ustvari začetne spremenljivkeNastavi OutApp = CreateObject ("Outlook.Application")Nastavi OutMail = OutApp.CreateItem (0)'E-naslovOn Napaka Nadaljuj NaprejZ OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Zadeva".Body = "Telo besedila"'.Attachments.Add (FilePath)' Izbirno, če imate prilogo.Zaslon'. Pošlji' Izbirno za avtomatiziranje pošiljanja e -pošte.Končaj sPri napaki Pojdi na 0Nastavi OutMail = NičNastavi OutApp = NičApplication.ScreenUpdating = ResEnd Sub |
