Indholdsfortegnelse
Dette er et enkelt eksempel på, hvordan du sender en e -mail fra Excel.
Klik her for et mere komplekst eksempel: Send regneark på e -mail som en separat projektmappe. Dette eksempel omhandler også adgangskodebeskyttelse og andre almindelige problemer.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalskDim OutApp som objektDim OutMail som objekt'Opret indledende variablerIndstil OutApp = CreateObject ("Outlook.Application")Indstil OutMail = OutApp.CreateItem (0)'E -mailVed fejl Genoptag næsteMed OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Emne".Body = "Brødtekst"'.Attachments.Add (FilePath)' Valgfrit, hvis du har en vedhæftet fil.Skærm'.Send' Valgfrit til at automatisere afsendelse af e -mail.Afslut medVed fejl GoTo 0Set OutMail = IntetIndstil OutApp = IntetApplication.ScreenUpdating = TrueAfslut Sub |
