Innholdsfortegnelse
Dette er et enkelt eksempel på hvordan du sender en e -post fra Excel.
Klikk her for et mer komplekst eksempel: Send regneark på e -post som en egen arbeidsbok. Dette eksemplet omhandler også passordbeskyttelse og andre vanlige problemer.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalskDim OutApp som objektDim OutMail som objekt'Lag innledende variablerSett OutApp = CreateObject ("Outlook.Application")Angi OutMail = OutApp.CreateItem (0)'E -postVed feil Fortsett nesteMed OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Emne".Body = "Brødtekst"'.Attachments.Add (FilePath)' Valgfritt hvis du har et vedlegg.Vise'.Sende' Valgfritt for å automatisere sending av e -post.Slutt medVed feil GoTo 0Set OutMail = NothingSett OutApp = IngentingApplication.ScreenUpdating = TrueSlutt Sub |
