Home-theater-designers
Norint siųsti el. Laiškus iš „Microsoft Excel“, reikia tik kelių paprastų scenarijų. Pridėkite šią funkciją prie savo skaičiuoklių ir tikrai padidinsite, kiek galite nuveikti naudodami „Excel“.
Mes apžvelgėme daug puikių „Excel“ makrokomandų, kurios gali atlikti tuos pačius dalykus, kuriuos gali atlikti VBA scenarijai, tačiau nereikia programavimo žinių. Tačiau yra daug pažangių dalykų, kuriuos galite padaryti tik naudodami VBA, pavyzdžiui, sukurti skaičiuoklės ataskaitą su visa kompiuterio informacija.
Ar norėtumėte žiūrėti šią mokymo programą kaip vaizdo įrašą? Mes jus aprūpinome!
Kodėl verta siųsti el. Laišką iš „Excel“?
Yra daug priežasčių, kodėl galbūt norėsite siųsti el. Laišką iš „Microsoft Excel“.
Galbūt turite darbuotojų, kurie kas savaitę atnaujina dokumentus ar skaičiuokles, ir norėtumėte gauti pranešimą el. Paštu, kada šie atnaujinimai bus atlikti. Arba galite turėti kontaktų skaičiuoklę ir norite išsiųsti jiems vieną el. Laišką vienu metu.
Tikriausiai manote, kad el. Pašto transliacijos iš „Excel“ scenarijaus sudarymas bus sudėtingas. Visai taip nėra.
Šiame straipsnyje pateikta technika naudos funkciją, kuri „Excel VBA“ buvo prieinama ilgą laiką, Bendradarbiavimo duomenų objektai (CDO).
CDO yra pranešimų siuntimo komponentas, naudojamas „Windows“ nuo pat ankstyvųjų OS kartų. Anksčiau jis buvo vadinamas CDONTS, o vėliau, atsiradus „Windows 2000“ ir „XP“, buvo pakeistas „CDO, skirtas„ Windows 2000 ““. Šis komponentas jau yra įtrauktas į jūsų VBA diegimą „Microsoft Word“ ar „Excel“ ir yra paruoštas naudoti.
Naudojant komponentą labai lengva siųsti el. Laiškus iš „Windows“ produktų naudojant VBA. Šiame pavyzdyje naudosite „Excel“ CDO komponentą, kad išsiųstumėte el. Laišką, kuris pateiks rezultatus iš konkrečios „Excel“ ląstelės.
1 žingsnis: sukurkite VBA makrokomandą
Pirmasis žingsnis yra pereiti į „Excel“ kūrėjo skirtuką.
Skirtuke „Kūrėjas“ spustelėkite Įdėti laukelyje Valdikliai, tada pasirinkite komandos mygtuką.
Nubrėžkite jį į lapą ir sukurkite jam naują makrokomandą spustelėdami Makrokomandos kūrėjo juostelėje.
Kai spustelėsite Sukurti mygtuką, bus atidarytas VBA redaktorius.
Pridėkite nuorodą į CDO biblioteką, eidami į Įrankiai > Nuorodos redaktoriuje.
Slinkite sąrašu žemyn, kol rasite „Microsoft CDO“, skirta „Windows 2000“ bibliotekai . Pažymėkite žymimąjį laukelį ir spustelėkite Gerai .
Kai spustelite Gerai , užsirašykite funkcijos, kurioje įklijuojate scenarijų, pavadinimą. Jums to prireiks vėliau.
2 veiksmas: nustatykite CDO laukus „Nuo“ ir „Į“
Norėdami tai padaryti, pirmiausia turite sukurti pašto objektus ir nustatyti visus laukus, būtinus el.
Atminkite, kad nors daugelis laukų yra neprivalomi, Nuo ir Į laukai yra privalomi.
kaip padidinti atmintį kompiuteryje
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = 'Results from Excel Spreadsheet'
strFrom = 'rdube02@gmail.com'
strTo = 'rdube02@gmail.com'
strCc = ''
strBcc = ''
strBody = 'The total results for this quarter are: ' & Str(Sheet1.Cells(2, 1))Puikus dalykas yra tai, kad galite sukurti bet kokią eilutę, kurią norite pritaikyti visą el. Laišką, ir priskirti ją strBody kintamasis.
Sujunkite pranešimo komponentus naudodami & eilutę, kad įterptumėte duomenis iš bet kurio „Microsoft Excel“ lapo tiesiai į el. laišką, kaip parodyta aukščiau.
3 veiksmas: sukonfigūruokite CDO naudoti išorinį SMTP
Kitame kodo skyriuje sukonfigūruosite CDO naudoti bet kurį išorinį SMTP serverį el.
Šis pavyzdys yra ne SSL sąranka naudojant „Gmail“. CDO gali naudoti SSL, tačiau tai nepatenka į šio straipsnio taikymo sritį. Jei jums reikia naudoti SSL, tai išplėstinis kodas „Github“ gali padėti.
Set CDO_Mail = CreateObject('CDO.Message')
On Error GoTo Error_Handling
Set CDO_Config = CreateObject('CDO.Configuration')
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 2
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') = 'smtp.gmail.com'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') = 1
.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') = 'email@website.com'
.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = 'password'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = 25
.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With4 žingsnis: Užbaikite CDO sąranką
Dabar, kai sukonfigūravote ryšį su SMTP serveriu el. Laiškams siųsti, jums tereikia užpildyti atitinkamus laukus CDO_Mail objektas , ir išduoti Siųsti komandą.
Štai kaip tai padaryti:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description '' Then MsgBox Err.DescriptionNebus jokių iššokančiųjų laukelių ar saugos įspėjimų, kurie gali atsitikti, kai naudojatės „Outlook“ pašto objektu.
CDO tiesiog sujungia el. Laišką ir naudoja jūsų SMTP serverio ryšio informaciją, kad išjungtų pranešimą. Tai lengviausias būdas įtraukti el. Paštą į „Microsoft Word“ ar „Excel“ VBA scenarijus.
Norėdami prijungti komandų mygtuką prie šio scenarijaus, eikite į kodų rengyklę ir spustelėkite 1 lapas norėdami peržiūrėti to darbalapio VBA kodą.
Įveskite funkcijos, kurioje įklijavote scenarijų, pavadinimą aukščiau.
kaip gauti „Aero“ temą „Windows 10“
Štai kaip atrodė pranešimas, kurį gavau gautuosiuose:
Pastaba : Jei gaunate klaidą, kuri nuskaito Transportui nepavyko prisijungti prie serverio , įsitikinkite, kad žemiau esančiose kodo eilutėse įvedėte teisingą vartotojo vardą, slaptažodį, SMTP serverį ir prievado numerį Su SMTP_Config .
Paimkite tai toliau ir automatizuokite visą procesą
Viskas gerai, kad vienu mygtuko paspaudimu galima siųsti el. Laiškus iš „Excel“. Tačiau galbūt norėsite šią funkciją naudoti reguliariai, tokiu atveju būtų prasminga procesą automatizuoti.
Norėdami tai padaryti, turite pakeisti makrokomandą. Eikite į „Visual Basic“ redaktorių ir nukopijuokite ir įklijuokite visą kodą, kurį sudėjome.
Toliau pasirinkite Ši darbo knyga nuo Projektas hierarchija.
Iš dviejų išskleidžiamųjų laukų kodo lango viršuje pasirinkite Darbo knyga ir pasirinkite Atviras iš išskleidžiamojo meniu Metodai.
Įklijuokite aukščiau esantį el. Pašto scenarijų į Privati antrinė darbo knyga_Atidaryti () .
Tai paleis makrokomandą, kai atidarysite „Excel“ failą.
Toliau, atidarykite Darbų planuotojas .
Naudodamiesi šiuo įrankiu, paprašysite „Windows“ automatiškai atidaryti skaičiuoklę reguliariais intervalais, tada jūsų makrokomanda bus pradėta siųsti el. Laišką.
Pasirinkite Sukurti pagrindinę užduotį ... nuo Veiksmas meniu ir pereikite prie vedlio, kol pasieksite Veiksmas ekranas.
Pasirinkite Pradėkite programą ir spustelėkite Kitas .
Naudoti Naršyti mygtuką, kad surastumėte „Microsoft Excel“ vietą savo kompiuteryje, arba nukopijuokite ir įklijuokite kelią į Programa/scenarijus laukas.
Tada įveskite „Microsoft Excel“ dokumento kelią į Pridėkite argumentų laukas.
Užbaikite vedlį ir planavimas bus atliktas.
Verta atlikti testą, suplanavus veiksmą porai minučių ateityje, o tada pataisyti užduotį, kai galėsite patvirtinti, kad ji veikia.
Pastaba : Norint užtikrinti, kad makrokomanda tinkamai veiktų, gali tekti pakoreguoti savo Pasitikėjimo centro nustatymus.
Norėdami tai padaryti, atidarykite skaičiuoklę ir eikite į Failas > Galimybės > Pasitikėjimo centras .
Iš čia spustelėkite Pasitikėjimo centro nustatymai , o kitame ekrane nustatykite radijo ratuką į Niekada nerodykite informacijos apie užblokuotą turinį .
Priverskite „Microsoft Excel“ dirbti jums
„Microsoft Excel“ yra neįtikėtinai galingas įrankis, tačiau išmokti kuo geriau iš to pasinaudoti gali būti šiek tiek bauginanti. Jei norite tikrai įvaldyti programinę įrangą, jūs turite būti patogu su VBA , ir tai nėra maža užduotis.
kaip perkelti „Windows 10“ produkto raktą
Tačiau rezultatai kalba patys už save. Turėdami šiek tiek patirties VBA srityje, netrukus galėsite priversti „Microsoft Excel“ automatiškai atlikti pagrindines užduotis, suteikdami daugiau laiko susikaupti svarbesniems reikalams.
Norint įgyti patirties naudojant VBA, reikia laiko, tačiau netrukus pamatysite savo darbo vaisius, jei sugebėsite to laikytis.
Viena puiki vieta pradėti yra mūsų autoritetas pamoka apie VBA naudojimą „Excel“ . Kai tai padarysite, šis paprastas scenarijus, skirtas el. Laiškams siųsti iš „Excel“, atrodys kaip vaikų žaidimas.
Dalintis Dalintis „Tweet“ Paštu „Canon“ prieš „Nikon“: kuris fotoaparato prekės ženklas yra geresnis?„Canon“ ir „Nikon“ yra du didžiausi pavadinimai fotoaparatų pramonėje. Tačiau kuris prekės ženklas siūlo geresnę fotoaparatų ir objektyvų seriją?
Skaityti toliau Susijusios temos- Produktyvumas
- Programavimas
- Patarimai el. Paštu
- Programavimas
- Visual Basic programavimas
- „Microsoft Excel“
- „Microsoft Office“ patarimai
Ryanas turi elektrotechnikos bakalauro laipsnį. Jis 13 metų dirbo automatikos inžinerijos srityje, 5 metus IT srityje, o dabar yra programų inžinierius. Buvęs „MakeUseOf“ vadovaujantis redaktorius, jis kalbėjo nacionalinėse duomenų vizualizavimo konferencijose ir buvo rodomas nacionalinėje televizijoje ir radijuje.
Daugiau iš Ryan DubePrenumeruokite mūsų naujienlaiškį
Prisijunkite prie mūsų naujienlaiškio, kad gautumėte techninių patarimų, apžvalgų, nemokamų el. Knygų ir išskirtinių pasiūlymų!
Norėdami užsiprenumeruoti, spustelėkite čia