Šī apmācība parādīs, kā nosūtīt e -pastus no Excel, izmantojot Gmail, izmantojot VBA.
Microsoft CDO atsauces pievienošana
Lai ļautu programmai Excel sūtīt e -pastu, izmantojot Gmail, vispirms Excel projektam jāpievieno CDO atsauču bibliotēka.
VBA redaktorā noklikšķiniet uz Rīki, atsauces.
Atrodiet Microsoft CDO atsauci un noklikšķiniet uz Labi.
E -pasta sūtīšana, izmantojot GMail
Lai nosūtītu e -pastu no Excel, izmantojot Gmail, vispirms ir jādeklarē CDO objekts (Dim gMail kā CDO. Ziņojums).
Otrkārt, jums savā kodā ir jākonfigurē ziņojuma SSL autentifikācija. Tas nozīmē, ka jums ir jāiestata SMTP serveris un porta informācija, lai jūsu e -pasts tiktu pareizi nosūtīts, kā arī jāiestata lietotājvārds un parole.
Tālāk esošajā koda fragmentā tas ir nepieciešams Excel funkcijas sākumā. Jums ir nepieciešams e -pasta adresāts (strTo) un temats (strSubject), taču kopija un e -pasta pamatteksts var būt neobligāti mainīgie.
| 12345678910111213141516171819202122232425262728 | Funkcija CreateEmail (strTo kā virkne, strSubject kā virkne, neobligāta strCC kā virkne, neobligāta strBody kā virkne)"izveidot CDO objektuDim gMail Kā CDO. ZiņojumsIestatīt gMail = New CDO.Message'Iespējot SSL autentifikācijugMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Patiesa'Padarīt SMTP autentifikāciju iespējotu = true (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1Iestatiet SMTP servera un porta detaļasgMail.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'Šeit iestatiet savu Gmail konta lietotājvārdu un paroligMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Atjauniniet konfigurācijas laukusgMail.Configuration.Fields.Update |
Kad tas ir izdarīts, varat izveidot savu e -pastu un pabeigt funkciju.
| 123456789 | iestatiet e -pasta rekvizītus un nosūtāmo failuAr gMail .Subject = "Rakstīt tēmu šeit".From = "[email protected]".To = strTo.TextBody = strBodyBeigt ar', lai nosūtītu pastugMail.SūtītBeigu funkcija |
Pēc tam varat izsaukt savu funkciju, izmantojot šādu kodu
| 1234567 | Sub SendEmail"izveidojiet e -pasta pamattekstuDim strText kā virknestrText = "Labrīt. Cerams, ka jums viss ir kārtībā - šis ir testa e -pasts"aizpildiet funkcijas argumentus - atstājiet CC tukšu, tāpēc ievietojiet komatu kā vietturiCreateEmail ("[email protected]", "Pārbaudes e -pasts", strText)Beigu apakš |
Darbgrāmatas sūtīšana, izmantojot GMail
Lai nosūtītu darbgrāmatu kā pielikumu, izmantojot GMail, varat izveidot līdzīgu funkciju, kā aprakstīts iepriekš, ar dažiem papildinājumiem.
Lai atlasītu darbgrāmatu, jums jāpievieno kods, un pēc tam e -pastam jāpievieno atlasītais fails.
Mēs izmantosim Microsoft Office FileDialog komandu, lai atlasītu nosūtāmo failu, un pēc tam izmantojiet AddAttachment e -pasta īpašums, lai pievienotu failu kā pielikumu.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | Funkcija SendWorkbook (strTo kā virkne, strSubject kā virkne, neobligāta strCC kā virkne, neobligāta strBody kā virkne) kā BūlaIet uz kļūdu:"izveidot CDO objektuDim gMail Kā CDO. ZiņojumsSet gMail = New CDO.Message'Iespējot SSL autentifikācijugMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Patiesa'Padarīt SMTP autentifikāciju iespējotu = true (1)gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1Iestatiet SMTP servera un porta detaļasgMail.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'Šeit iestatiet savu Gmail konta lietotājvārdu un paroligMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"'Atjauniniet konfigurācijas laukusgMail.Configuration.Fields.Update'atlasiet nosūtāmo failu ar Microsoft faila dialoglodziņuDim strFileToSend kā virkneDim dlgFile kā FileDialogDim strItem Kā variantsDim nDlgResult As LongIestatiet dlgFile = Application.FileDialog (msoFileDialogFilePicker)filtrs tikai Excel un csv failiemdlgFile.Filters.Add "Excel faili", " *.csv; *.xls; *.xlsx; *.xlsm"nDlgResult = dlgFile.RādītJa nDlgResult = -1 TadJa dlgFile.SelectedItems.Count> 0 TadPar katru strItem In dlgFile.SelectedItemsstrFileToSend = strItemNākamā sadaļaBeigas JaBeigas Jaiestatiet e -pasta rekvizītus un nosūtāmo failuAr gMail.Subject = "Rakstīt tēmu šeit".From = "[email protected]".To = strTo.TextBody = strBody"pievienot izvēlēto failu kā pielikumu.AddAttachment strFileToSendBeigt ar', lai nosūtītu pastugMail.SūtītSendWorkbook = TrueIziet funkcijaeh:SendWorkbook = NepareiziBeigu funkcija |
Ja konfigurācijas ports 25 nedarbojas, varat saņemt kļūdu - “Transportam neizdevās izveidot savienojumu ar serveri” Mainiet portu uz 25 un mēģiniet vēlreiz.
Iepriekš minēto funkciju var izsaukt, izmantojot tālāk norādīto procedūru.
| 123456789101112131415 | Sub SendMail ()Dim strTo Kā virkneDim strSubject kā virkneDim strBody kā virkne'aizpildīt mainīgosstrTo = "[email protected]"strSubject = "Lūdzu, pievienojiet finanšu failu"strBody = "šeit ir kāds teksts e -pasta pamattekstam"'zvaniet funkcijai, lai nosūtītu e -pastuJa SendWorkbook (strTo, strSubject,, strBody) = true, tadMsgbox "E -pasta izveides panākumi"CitādiMsgbox "Neizdevās izveidot e -pastu!"Beigt, jaBeigu apakš |
Jums tiks lūgts izvēlēties failu, kuru vēlaties nosūtīt. Šis kods ir paredzēts tikai Excel failiem, jo filtrs ir “*.csv; *.xls; *.xlsx; *.xlsm ” - tomēr šo kodu varat izmantot arī programmā Word un attiecīgi mainīt filtru.
Atlasiet failu un noklikšķiniet uz Atvērt. Koda palaišana var aizņemt kādu laiku - ja e -pasts ir veiksmīgi nosūtīts, jūs saņemsit šādu ziņojumu.
