Tämä opetusohjelma näyttää, kuinka voit lähettää sähköpostiviestejä Excelistä Gmailin kautta VBA: n avulla.
Microsoftin CDO -viitteen lisääminen
Jotta Excel voi lähettää sähköpostia Gmailin kautta, sinun on ensin lisättävä CDO -viitekirjasto Excel -projektiin.
Napsauta VBA -editorissa Työkalut, viitteet.
Etsi Microsoft CDO Reference ja napsauta OK.
Sähköpostin lähettäminen GMailin kautta
Jos haluat lähettää sähköpostiviestin Excelistä Gmailin kautta, sinun on ensin ilmoitettava CDO -objekti (Himmennä gMail CDO -viestinä).
Toiseksi sinun on määritettävä SSL -todennus viestillesi koodissasi. Tämä tarkoittaa, että sinun on määritettävä SMTP -palvelin ja portin tiedot, jotta sähköpostisi kulkee oikein, sekä määritettävä käyttäjänimesi ja salasanasi.
Alla olevassa koodinpätkässä tätä tarvitset Excel -toiminnon alussa. Tarvitset sähköpostin vastaanottajan (strTo) ja aiheen (strSubject), mutta kopio ja sähköpostin runko voivat olla valinnaisia muuttujia.
| 12345678910111213141516171819202122232425262728 | Funktio CreateEmail (strTo As String, strSubject As String, Optional strCC String, Optional strBody As String)'luo CDO -objektiHimmennä gMail CDO -viestinäAseta gMail = Uusi CDO.Message'Ota SSL -todennus käyttööngMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Totta'Ota SMTP -todennus käyttöön = tosi (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'Aseta SMTP -palvelimen ja portin tiedotgMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'Aseta käyttäjätunnuksesi ja salasanasi omalle Gmail -tilillesi täällägMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Päivitä kokoonpanokentätgMail.Configuration.Fields.Päivitä |
Kun tämä on tehty, voit luoda sähköpostisi ja suorittaa toiminnon loppuun.
| 123456789 | 'Aseta sähköpostin ominaisuudet ja lähetettävä tiedostoGMail .Subject = "Kirjoita aihe tähän".From = "[email protected]".To = strTo.TextBody = strBodyLopeta'lähettää postiagMail.LähetäLopeta toiminto |
Voit soittaa toimintoosi seuraavalla koodilla
| 1234567 | Sub SendEmail'luo sähköpostin runkoHimmennä strText merkkijononastrText = "Hyvää huomenta. Toivottavasti voit hyvin - tämä on testisähköposti"'täytä funktion argumentit - jätä CC tyhjäksi, joten laita pilkku paikkamerkkiksiCreateEmail ("[email protected]", "Test Email",, strText)Lopeta alaosa |
Työkirjan lähettäminen GMailin kautta
Jos haluat lähettää työkirjan liitteenä GMailin kautta, voit luoda yllä olevan kaltaisen funktion muutamilla lisäyksillä.
Sinun on lisättävä koodi työkirjan valitsemiseksi ja liitettävä sitten valittu tiedosto sähköpostiin.
Käytämme Microsoft Officea FileDialog valitse lähetettävä tiedosto ja käytä sitten Lisää LIITE sähköpostin ominaisuus lisätä tiedosto liitteeksi.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | Toiminto SendWorkbook (strTo As String, strSubject As String, Optional strCC String, Optional strBody As String) BooleaninaVirheestä tuli:'luo CDO -objektiHimmennä gMail CDO -viestinäAseta gMail = Uusi CDO.Message'Ota SSL -todennus käyttööngMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Totta'Ota SMTP -todennus käyttöön = tosi (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'Aseta SMTP -palvelimen ja portin tiedotgMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'Aseta käyttäjätunnuksesi ja salasanasi omalle Gmail -tilillesi täällägMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Päivitä kokoonpanokentätgMail.Configuration.Fields.Päivitä'valitse lähetettävä tiedosto Microsoftin tiedosto -valintaikkunan avullaHimmennä strFileToSend merkkijononaDim dlgFile FileDialoginaDim strItem VaihtoehtonaDim nDlgResult as LongAseta dlgFile = Application.FileDialog (msoFileDialogFilePicker)'suodatin vain excel- ja csv -tiedostoilledlgFile.Filters.Add "Excel Files", " *.csv; *.xls; *.xlsx; *.xlsm"nDlgResult = dlgFile.ShowJos nDlgResult = -1 SittenJos dlgFile.SelectedItems.Count> 0 SittenJokaiselle strItem -tiedostolle dlgFile.SelectedItemsstrFileToSend = strItemSeuraava vaiheLoppu JosLoppu Jos'Aseta sähköpostin ominaisuudet ja lähetettävä tiedostoGMailin kanssa.Subject = "Kirjoita aihe tähän".From = "[email protected]".To = strTo.TextBody = strBody'lisää valittu tiedosto liitteeksi.AddAttachment strFileToSendLopeta'lähettää postiagMail.LähetäSendWorkbook = TottaLopeta toimintoeh:SendWorkbook = VääräLopeta toiminto |
Jos määritysportti 25 ei toimi, saatat saada virheilmoituksen - "Kuljetus ei onnistunut muodostamaan yhteyttä palvelimeen" Vaihda portiksi 25 ja yritä uudelleen.
Yllä oleva toiminto voidaan kutsua alla olevan menettelyn mukaisesti.
| 123456789101112131415 | Sub SendMail ()Himmennä merkkijonoksiDim strSubject merkkijononaDim strBody As merkkijono'täyttää muuttujatstrTo = "jon.seppä@gmail.com"strSubject = "Löydät rahoitustiedoston liitteenä"strBody = "Jotkut tekstit tulevat tähän sähköpostin runkoon"'Lähetä toiminto sähköpostitse soittamalla toimintoonJos SendWorkbook (strTo, strSubject,, strBody) = tosi sittenViestiviesti "Sähköpostin luominen onnistui"MuuViesti "Sähköpostin luominen epäonnistui!"Loppu JosEnd Sub |
Sinua pyydetään valitsemaan lähetettävä tiedosto. Tämä koodi on rajoitettu Excel -tiedostoihin, koska suodatin on “*.csv; *.xls; *.xlsx; *.xlsm ” - voit kuitenkin käyttää tätä koodia myös Wordissa ja muokata suodatinta vastaavasti.
Valitse tiedosto ja napsauta Avaa. Koodin suorittaminen voi kestää jonkin aikaa - jos sähköpostisi lähetys onnistui, saat seuraavan viestin.
