✅ VBA Slanje e -pošte iz programa Excel putem Gmaila

Sadržaj

Dodavanje Microsoft CDO reference
Slanje e -pošte putem GMaila
Slanje radne knjige putem GMaila

Ovaj će vam vodič pokazati kako slati e -poštu iz Excela putem Gmaila koristeći VBA.

Dodavanje Microsoft CDO reference

Da biste Excelu omogućili slanje e -pošte putem Gmaila, najprije morate dodati biblioteku referenci CDO -a u svoj Excel projekt.

U VBA Editoru kliknite Alati, Reference.

Potražite Microsoft CDO Reference i kliknite U redu.

Slanje e -pošte putem GMaila

Za slanje e -pošte iz Excela putem Gmaila najprije morate deklarirati CDO objekt (Zatamnite gMail kao CDO.Poruku).

Drugo, trebali biste konfigurirati SSL provjeru autentičnosti za svoju poruku u svom kodu. To znači da morate postaviti SMTP poslužitelj i detalje o portu kako bi vaša e -pošta ispravno prolazila, kao i postaviti korisničko ime i lozinku.

U donjem isječku koda to je ono što vam treba na početku Excel funkcije. Trebate primatelja e -pošte (strTo) i predmet (strSubject), ali CC i tijelo e -pošte mogu biti izborne varijable.

12345678910111213141516171819202122232425262728

Funkcija CreateEmail (strTo kao niz, strSubject kao niz, izborni strCC kao niz, izborno strBody kao niz)'stvoriti CDO objektZatamnite gMail kao CDO.PorukuPostavite gMail = Novi CDO.Poruka'Omogući provjeru autentičnosti SSL -agMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Istina'Omogući SMTP provjeru autentičnosti omogućeno = točno (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'Postavite pojedinosti o SMTP poslužitelju i priključkugMail.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'Ovdje postavite svoje korisničko ime i lozinku za svoj gmail račungMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Ažurirajte konfiguracijska poljagMail.Configuration.Fields.Update

Nakon što to učinite, možete stvoriti svoju e -poštu i dovršiti funkciju.

123456789

'postavite svojstva e -pošte i datoteku za slanjePomoću gMail .Subject = "Ovdje napišite temu".From = "[email protected]".To = strTo.TextBody = strBodyZavrši s'za slanje poštegMail.PošaljiteZavršna funkcija

Zatim možete pozvati svoju funkciju sa sljedećim kodom

1234567

Sub SendEmail'stvoriti tijelo e -pošteZatamnite strText kao nizstrText = "Dobro jutro. Nadam se da ste dobro - ovo je probna poruka"'popunite argumente funkcije - ostavite CC prazan pa stavite zarez kao rezervirano mjestoCreateEmail ("[email protected]", "Testna e -pošta",, strText)Kraj pod

Slanje radne knjige putem GMaila

Da biste poslali radnu knjigu kao privitak putem GMaila, možete stvoriti funkciju sličnu gornjoj s nekoliko dodataka.

Morate dodati kôd za odabir radne knjige, a zatim morate priložiti odabranu datoteku e -pošti.

Koristit ćemo Microsoft Office FileDialog naredbu za odabir datoteke za slanje, a zatim upotrijebite Dodaj privitak svojstvo e -pošte za dodavanje datoteke kao privitak.

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364

Funkcija SendWorkbook (strTo As String, strSubject As String, Optional strCC As String, Optional strBody As String) Kao BooleanNa grešku idi eh:'stvoriti CDO objektZatamnite gMail kao CDO.PorukuPostavite gMail = Novi CDO.Poruka'Omogući provjeru autentičnosti SSL -agMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Istina'Omogući SMTP provjeru autentičnosti omogućeno = točno (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'Postavite pojedinosti o SMTP poslužitelju i priključkugMail.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'Ovdje postavite svoje korisničko ime i lozinku za svoj gmail račungMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Ažurirajte konfiguracijska poljagMail.Configuration.Fields.Update'odaberite datoteku za slanje s dijaloškim okvirom za datoteku microsoftDim strFileToSend As StringDim dlgFile As FileDialogDim strItem As VariantDim nDlgResult As LongPostavi dlgFile = Application.FileDialog (msoFileDialogFilePicker)'filter samo za excel i csv datotekedlgFile.Filters.Dodajte "Excel datoteke", " *.csv; *.xls; *.xlsx; *.xlsm"nDlgResult = dlgFile.ShowAko je nDlgResult = -1 TadaAko je dlgFile.SelectedItems.Count> 0 ZatimZa svaku strItem u dlgFile.SelectedItemsstrFileToSend = strItemSljedeća stavka strZavrši akoZavrši ako'postavite svojstva e -pošte i datoteku za slanjeUz gMail.Subject = "Ovdje napišite temu".From = "[email protected]".To = strTo.TextBody = strBody'dodati odabranu datoteku kao privitak.DodajDodatak strFileToSendZavrši s'za slanje poštegMail.PošaljiteSendWorkbook = IstinaIzlazna funkcijaEh:SendWorkbook = NetačnoZavršna funkcija

Ako konfiguracijski priključak 25 ne radi, mogli biste dobiti pogrešku - "Transport se nije uspio povezati s poslužiteljem" Promijenite port na 25 i pokušajte ponovo.

Gornja funkcija se može pozvati pomoću donje procedure.

123456789101112131415

Sub SendMail ()Dim strTo As StringDim strSubject As StringDim strBody Kao String'popunjavaju varijablestrTo = "[email protected]"strSubject = "U prilogu pronađite financijsku datoteku"strBody = "neki tekst ide ovdje za tijelo e -pošte"'pozovite funkciju za slanje e -pošteAko je SendWorkbook (strTo, strSubject,, strBody) = istina tadaMsgbox "Uspješno kreiranje e -pošte"DrugoMsgbox "Kreiranje e -pošte nije uspjelo!"Završi akoKraj podm

Od vas će se tražiti da odaberete datoteku koju želite poslati. Ovaj kôd ograničen je na Excel datoteke jer je filter “*.csv; *.xls; *.xlsx; *.xlsm ” - međutim, ovaj kôd možete koristiti i u programu Word te prema tome izmijeniti svoj filtar.