Ši pamoka parodys, kaip siųsti el. Laiškus iš „Excel“ per „Gmail“ naudojant VBA.
„Microsoft CDO“ nuorodos pridėjimas
Norėdami leisti „Excel“ siųsti el. Laiškus per „Gmail“, pirmiausia turite pridėti CDO nuorodų biblioteką prie „Excel“ projekto.
VBA redaktoriuje spustelėkite Įrankiai, nuorodos.
Ieškokite „Microsoft CDO Reference“ ir spustelėkite Gerai.
Laiško siuntimas per GMail
Norėdami išsiųsti el. Laišką iš „Excel“ per „Gmail“, pirmiausia turite deklaruoti CDO objektą (Dim gMail kaip CDO.Message).
Antra, turėsite sukonfigūruoti pranešimo SSL autentifikavimą savo kode. Tai reiškia, kad jums reikia nustatyti SMTP serverį ir prievado informaciją, kad jūsų el. Paštas būtų tinkamai persiųstas, taip pat nustatyti vartotojo vardą ir slaptažodį.
Žemiau esančiame kodo fragmente to jums reikia „Excel“ funkcijos pradžioje. Jums reikia el. Pašto gavėjo (strTo) ir temos (strSubject), tačiau el. Laiško kopija ir turinys gali būti pasirenkami kintamieji.
| 12345678910111213141516171819202122232425262728 | Funkcija CreateEmail (strTo As String, strSubject As String, Neprivaloma strCC kaip String, Neprivaloma strBody As String)"sukurkite CDO objektąDim gMail Kaip CDO.MessageNustatyti gMail = Naujas CDO.Message„Įgalinti SSL autentifikavimągMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = TiesaĮjungti SMTP autentifikavimą = tiesa (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1„Nustatykite SMTP serverio ir prievado informacijągMail.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„Čia nustatykite savo„ Gmail “paskyros vartotojo vardą ir slaptažodįgMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"„Atnaujinkite konfigūracijos laukusgMail.Configuration.Fields.Atnaujinti |
Kai tai bus padaryta, galite sukurti savo el. Paštą ir užbaigti funkciją.
| 123456789 | nustatykite el. pašto ypatybes ir failą, kurį norite siųstiSu gMail .Subject = "Rašyti temą čia".From = "[email protected]".To = strTo.TextBody = strBodyPabaiga su'siųsti laiškągMail.SiųstiPabaigos funkcija |
Tada galite iškviesti savo funkciją naudodami šį kodą
| 1234567 | Sub SendEmail“sukurkite el. laiško turinį„Dim strText“ kaip eilutėstrText = "Labas rytas. Tikiuosi, kad viskas gerai - tai bandomasis el. laiškas"„užpildykite funkcijos argumentus - palikite CC tuščią, todėl kablelį padėkite kaip vietos rezervavimo ženklą„CreateEmail“ („[email protected]“, „Bandomasis el. Paštas“, „strText“)Pabaiga sub |
Darbo knygelės siuntimas per GMail
Norėdami siųsti darbaknygę kaip priedą per „GMail“, galite sukurti panašią funkciją, kaip nurodyta aukščiau, su keliais papildymais.
Norėdami pasirinkti darbaknygę, turite pridėti kodą, tada prie pasirinkto failo pridėti el.
Mes naudosime „Microsoft Office“ „FileDialog“ komandą, kad pasirinktumėte siunčiamą failą, tada naudokite Pridėti priedą el. laiško ypatybė pridėti failą kaip priedą.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | Funkcija „SendWorkbook“ (strĮvyko klaida:“sukurkite CDO objektąDim gMail Kaip CDO.MessageNustatyti gMail = Naujas CDO.Message„Įgalinti SSL autentifikavimągMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = TiesaĮjungti SMTP autentifikavimą = tiesa (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1„Nustatykite SMTP serverio ir prievado informacijągMail.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„Čia nustatykite savo„ Gmail “paskyros vartotojo vardą ir slaptažodįgMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"„Atnaujinkite konfigūracijos laukusgMail.Configuration.Fields.Atnaujinti“pasirinkite failą, kurį norite siųsti, naudodami„ Microsoft “failo dialogo langąSumažinti strFileToSend kaip eilutęDim dlgFile kaip FileDialogDim strItem As VariantDim nDlgResult As LongNustatykite dlgFile = Application.FileDialog (msoFileDialogFilePicker)„tik„ Excel “ir csv failų filtrasdlgFile.Filters.Add "Excel Files", " *.csv; *.xls; *.xlsx; *.xlsm"nDlgResult = dlgFile.ShowJei nDlgResult = -1 TadaJei dlgFile.SelectedItems.Count> 0 TadaKiekvienai strltem dlgFile.SelectedItemsstrFileToSend = strItemKitas strPabaiga JeiPabaiga Jeinustatykite el. pašto ypatybes ir failą, kurį norite siųstiSu „gMail“.Subject = "Rašyti temą čia".From = "[email protected]".To = strTo.TextBody = strBody“pridėkite pasirinktą failą kaip priedą.AddAttachment strFileToSendPabaiga su'siųsti laiškągMail.SiųstiSendWorkbook = TiesaIšėjimo funkcijaeh:SendWorkbook = NetiesaPabaigos funkcija |
Jei 25 konfigūracijos prievadas neveikia, galite gauti klaidą - „Transportui nepavyko prisijungti prie serverio“ Pakeiskite prievadą į 25 ir bandykite dar kartą.
Aukščiau pateiktą funkciją galima iškviesti naudojant toliau nurodytą procedūrą.
| 123456789101112131415 | Sub SendMail ()Pritemdyti kaip eilutęApšviesti strSubject kaip eilutęDim strBody As String“užpildyti kintamuosiusstrTo = "[email protected]"strSubject = "Finansinį failą rasite pridėtą"strBody = "čia yra tam tikras tekstas, skirtas el. laiško turiniui""skambinkite į funkciją, kad išsiųstumėte el. laiškąJei „SendWorkbook“ (strTo, strSubject,, strBody) = tiesa tada„Msgbox“ „El. Laiško kūrimo sėkmė“KitasMsgbox "Nepavyko sukurti el. Laiško!"Baigti, jeiPabaiga Sub |
Jūsų bus paprašyta pasirinkti failą, kurį norite siųsti. Šis kodas taikomas tik „Excel“ failams, nes filtras yra „*.csv; *.xls; *.xlsx; *.xlsm “ - tačiau šį kodą taip pat galite naudoti„ Word “ir atitinkamai pakeisti filtrą.
Pasirinkite failą ir spustelėkite Atidaryti. Kodo paleidimas gali užtrukti - jei laiškas sėkmingai išsiųstas, gausite šį pranešimą.
