Inhoudsopgave
Dit is een eenvoudig voorbeeld van hoe u een e-mail kunt verzenden vanuit Excel.
Klik hier voor een complexer voorbeeld: Verstuur werkblad per e-mail als aparte werkmap. Dit voorbeeld behandelt ook wachtwoordbeveiliging en andere veelvoorkomende problemen.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook()Application.ScreenUpdating = FalseDim Out-app als objectDim OutMail als object'Initiële variabelen maken'Stel OutApp = CreateObject ("Outlook.Application") inSet OutMail = OutApp.CreateItem (0)'E-mail'Bij fout Hervatten volgendeMet OutMail.to = "[email protected]".CC = "".BCC = "".Onderwerp = "Onderwerp".Body = "Body-tekst"'.Attachments.Add (FilePath) 'Optioneel als je een bijlage hebt'.Weergave' .Send 'Optioneel om het verzenden van e-mail te automatiseren.Eindigt metBij fout Ga naar 0Set OutMail = NietsSet OutApp = NietsApplication.ScreenUpdating = TrueEinde sub |
