Ste kdaj imeli potrebo po pošiljanju e -pošte iz programa Excel VBA na več e -poštnih številk e -pošte, ki so navedene na Excelovem listu? Želite izvedeti, kako pošiljati e -pošto iz Excela, ne da bi odprli Outlook? V tem članku je opisano, kako lahko z enim klikom avtomatizirate Outlook in pošljete več e -poštnih sporočil s prilogami iz programa Excel, pri tem pa ohranite tudi osebe v kopiji in skp.
Na koncu lahko prenesete tudi datoteko, ki moške takoj pošlje na stotine ID -jev. Datoteka vsebuje makro za pošiljanje e -pošte iz Excela.
Kako poslati pošto iz Excela?
Če želite pošiljati pošto iz Excela, morate razumeti te delčke VBA.
Pomembno: V Outlookovi aplikaciji morate konfigurirati e -poštno sporočilo.
Pritisnite F11, da odprete urejevalnik VB.
- Dodajte sklic na knjižnico objektov Outlook:
-
-
- V meniju pojdite na Orodja in kliknite na Reference.
-
-
- Poiščite knjižnico objektov Microsoft 16.0. Različica je lahko drugačna. To je 16.0 v Excelu 2016. Označite. In kliknite V redu.
-
- Ustvarjanje referenc Outlookove aplikacije in pošte: Zdaj, da lahko dostopamo do funkcij programa Microsoft Outlook, moramo ustvariti njegov predmet.
Zatemni outApp kot Outlook.Application 'To bo ustvarilo sklic na objekt outlook. Zatemni OutApp kot Outlook.MailItem 'To bo ustvarilo sklic na MailItem.
-
- Inicializirajte reference: Zgornje reference se morajo inicializirati:
Set outApp = New Outlook.Application Set outMail = outApp.CreateItem (0)
-
- Pošiljanje pošte z objektom outMail: Spodnje vrstice določajo ciljni id pošte, cc, bcc, subject, body, attachment in send ukaz.
Z outMail .To = "abcd.mail.com" 'Obvezno. Tukaj določite ID ciljne pošte … cc = "cc.mail.com" 'neobvezno. ID poštne kopije, če želite … BCC = "bcc.mail.com" 'neobvezno. ID skp pošte, če želite … Subject = subj 'bi moral imeti. Masaža po pošti … Body = msg 'neobvezno. Masaža na poštnem telesu … Priloge. Dodajte "C: /exceltip.com \ test.xlsx" 'neobvezno. Popolno ime priloge … Pošlji 'Obvezno, če želite poslati pošto iz programa Excel. Če želite videti pošto v Outlooku, uporabite metodo .Display. Končaj s
To je to. Vse, kar potrebujete za pošiljanje pošte iz Excela z uporabo VBA.
Zdaj pa poglejmo primer, ki pošilja pošto na vsak e -poštni ID v stolpcu Excel posebej.
Scenarij:
Predstavljajte si, da imate na voljo Excelov list, ki vsebuje 100 e -poštnih ID -jev, in morate poslati e -poštno sporočilo na vsak e -poštni ID posebej. Ne samo to, morate priložiti tudi predmete. Če to storite ročno, bi to trajalo nekaj ur. Zato avtomatizirajmo to poštno nalogo v Excelu VBA.
Tukaj imam te podatke. V stolpcu C z naslovom "Pošlji pošto" je več e -poštnih ID -jev. Vsakemu e -poštnemu ID -ju v tem stolpcu moram poslati e -poštno sporočilo.
Za to sem ustvaril stolpce za Subject, Massage body, CC in BCC.
Polje »Pošlji pošto« ne sme imeti vmes nobene prazne celice. Vsi drugi stolpci imajo lahko prazne celice. Če želiš
več e -poštnih ID -jev do nato v ta stolpec napišite te e -poštne ID -je z vejicami. Preverite, ali so e -poštni ID -ji veljavni.
Če želite poslati priloge. Naslove teh datotek zapišite v stolpec s priponkami.
Zadevo vnesite v stolpec Zadeva.
Masaža v stolpcu Massage Body.
Če želite nekoga obdržati v cc, vnesite njegov e -poštni naslov v stolpec CC. Enako za BCC. uporabite vejico za več ID -jev e -pošte.
Če želite poslati e -poštna sporočila na vsak e -poštni ID v stolpcu, sledite tem korakom.
- Pritisnite Alt+F11, da odprete urejevalnik VBA v Excelu.
- Dodajte sklic na objekt Outlook tako, da sledite prej opisanim korakom.
- V nov modul kopirajte spodnjo kodo.
'*** V sistemu Outlook morate imeti konfigurirano e -poštno sporočilo Outlook v aplikaciji outlook ***' *** dodajte sklice na knjižnico predmetov outook iz referenc v orodjih *** Sub BulkMail () Application.ScreenUpdating = False ThisWorkbook.Activate ' Ustvarjanje sklicev na objekte aplikacij in e -poštnih elementov Outlooka Zatemni aplikacijo kot Outlook.Aplikacija Zatemni outMail kot Outlook.MailItem 'Ustvarjanje spremenljivke za shranjevanje vrednosti različnih e -poštnih predmetov Dim sendTo, subj, atchmnt, msg, ccTo, bccTo As String Dim lstRow As Long 'Moji podatki so na listu "Exceltip.com", lahko imate poljubno ime lista. ThisWorkbook.Sheets ("Exceltip.com"). Aktivirajte 'Pridobi zadnjo vrstico, ki vsebuje id e -pošte v stolpcu 3. lstRow = Cells (Rows.Count, 3) .End (xlUp) .Row' Spremenljivka za vse ID e -pošte Dim rng As Range Set rng = Range ("C2: C" & lstRow) 'inicializira Outlook objekt za dostop do njegovih funkcij Set outApp = New Outlook.Application On Error GoTo cleanup' za obravnavo kakršne koli napake med ustvarjanjem predmeta. »Ponavljajte se skozi vsako vrstico, v spremenljivkah hranite podatke v e -pošti in pošljite« e -pošto na vsak e -poštni ID. Za vsako celico In rng sendTo = Range (cell.Address) .Offset (0, 0) .Value2 subj = Range (cell.Address) .Offset (0, 1) .Value2 & "-MS" msg = Range (celica. Naslov). Odmik (0, 2). Vrednost 2 atchmnt = Obseg (celica. Naslov). Odstop (0, -1). Vrednost 2 ccTo = Obseg (celica. Naslov). Odstop (0, 3). Vrednost 2 bccTo = Razpon ( cell.Address) .Offset (0, 4) .Value2 On Error Resume Next ', da posreduje vsako napako med ustvarjanjem spodnjega predmeta Set outMail = outApp.CreateItem (0)' Pisanje in pošiljanje pošte v novi pošti z outMail .To = sendTo .cc = ccTo .BCC = bccTo .Body = msg. Če želite pred pošiljanjem videti pošto, uporabite metodo .Display. Končaj z napako pri vklopu Pojdi na 0 'Če želite očistiti kakršno koli napako, zajeto prej Set outMail = Nothing' izniči predmet pošiljke za naslednjo pošto Naslednja celica 'zanka konča čiščenje:' sprostitev vseh ustvarjenih predmetov Set outApp = Nič Application.ScreenUpdating = True Application.ScreenUpdating = True End Sub
Zgornja koda bo poslala e -poštna sporočila na vsak e -poštni ID v vrstici »pošlji pošto«. Zdaj, če želite zagnati to kodo, jo lahko zaženete neposredno od tukaj. Lahko pa v svoj delovni zvezek dodate sliko ali gumb in nato temu makru dodelite predmet. Uporabljam oblike, ker jih je mogoče prilagoditi. Narediti tako, sledite spodnjim korakom.
-
- Pojdite na zavihek Vstavi.
- V skupini Ilustracije lahko najdete oblike, kliknite svojo najljubšo obliko.
-
- Povlecite in spustite na svoj list.
- Polepšajte, če želite.
- Z desno miškino tipko kliknite nanjo. Kliknite na Dodeli makro.
-
- Na seznamu izberite makro BulkMail.
- Izhod iz načina urejanja.
Zdaj, ko kliknete ta predmet, se bo vaš makro zagnal in pošiljal e -poštna sporočila. Preverite poslano pošto, da se prepričate.
Datoteko pošiljatelja pošte Excel lahko prenesete tukaj.
Razdelite list Excel v več datotek na podlagi stolpca z uporabo VBA | Če želite razdeliti delovni list na več datotek na podlagi vrednosti stolpca, ga morate filtrirati, kopirati in prilepiti v novo datoteko.
Kako filtrirati podatke v Excelu z uporabo VBA | Filtriranje podatkov z uporabo VBA je enostavno. Te preproste vrstice kod filtrirajo podatke po danih merilih.
Izklopite opozorilna sporočila z uporabo VBA v programu Microsoft Excel 2016 | Med izvajanjem več nalog, kot je odpiranje in zapiranje datotek, Excel prikazuje opozorilna sporočila, da ne izgubite podatkov. Prekinejo delujočo kodo. Da bi se jim izognili
Kako prelistati liste v Excelu z uporabo VBA | Če se želimo vrniti naprej in nazaj na dveh ali več listih, jih moramo prečkati. Za prelistavanje več listov uporabljamo …
7 primerov For Loops v programu Microsoft Excel VBA | For zanka je najpogosteje uporabljena tehnika zanke v katerem koli jeziku. Excel VBA ni izjema.
Priljubljeni članki:
50 bližnjic v Excelu za povečanje produktivnosti | Poskrbite, da bo vaša naloga hitrejša. S temi 50 bližnjicami boste še hitreje delali v Excelu.
Kako uporabljati funkcijo VLOOKUP v Excelu | To je ena najpogosteje uporabljenih in priljubljenih funkcij programa Excel, ki se uporablja za iskanje vrednosti iz različnih obsegov in listov.
Kako uporabljati funkcijo COUNTIF v Excelu | Štejte vrednosti s pogoji s to neverjetno funkcijo. Za štetje določene vrednosti vam ni treba filtrirati podatkov. Funkcija Countif je bistvena za pripravo vaše armaturne plošče.
Kako uporabljati funkcijo SUMIF v Excelu | To je še ena bistvena funkcija armaturne plošče. To vam pomaga povzeti vrednosti za posebne pogoje.