Sisällysluettelo
Tämä on yksinkertainen esimerkki sähköpostin lähettämisestä Excelistä.
Napsauta tätä saadaksesi monimutkaisemman esimerkin: Lähetä laskentataulukko sähköpostitse erillisenä työkirjana. Tässä esimerkissä käsitellään myös salasanasuojausta ja muita yleisiä ongelmia.
| 12345678910111213141516171819202122232425262728 | Aliposti_työkirja ()Application.ScreenUpdating = VääräDim OutApp objektinaDim OutMail objektina'Luo alkumuuttujiaAseta OutApp = CreateObject ("Outlook.Application")Aseta OutMail = OutApp.CreateItem (0)'SähköpostiVirhe Jatka seuraavaksiOutMailin kanssa.to = "[email protected]".CC = "".BCC = "".Subject = "Aihe".Body = "Runoteksti"'.Attachments.Add (FilePath)' Valinnainen, jos sinulla on liite.Näyttö'.Lähetä' Valinnainen, jos haluat automatisoida sähköpostin lähettämisen.LopetaVirhe GoTo 0Set OutMail = Ei mitäänSet OutApp = Ei mitäänApplication.ScreenUpdating = TottaEnd Sub |
