Onko sinulla koskaan ollut tarvetta lähettää sähköpostia Excel VBA: sta useisiin sähköpostitunnuksiin Excel -taulukossa? Haluatko oppia lähettämään sähköpostiviestejä Excelistä avaamatta Outlookia? Tässä artikkelissa kerrotaan, miten voit automatisoida Outlookin ja lähettää useita sähköpostiviestejä liitteiden avulla Excelistä yhdellä napsautuksella pitäen ihmiset myös kopiossa ja piilokopiossa.
Lopulta voit myös ladata tiedoston, jotta voit lähettää miehiä välittömästi satoihin tunnuksiin. Tiedosto sisältää makron sähköpostin lähettämiseen Excelistä.
Kuinka lähettää sähköpostia Excelistä?
Jos haluat lähettää sähköpostia Excelistä, sinun on ymmärrettävä nämä VBA -katkelmat.
Tärkeä: Sinulla on oltava Outlook -sovelluksessa määritetty sähköposti.
Avaa VB Editor painamalla F11.
- Lisää viittaus Outlook -objektikirjastoon:
-
-
- Siirry valikosta Työkalut ja napsauta Viitteet.
-
-
- Etsi Microsoft 16.0 -objektikirjasto. Versio voi olla erilainen. Excel 2016: ssa se on 16,0. Valitse se. Ja napsauta OK.
-
- Luo viittauksia Outlook -sovellukseen ja -sähköpostiin: Jotta voimme käyttää Microsoft Outlookin ominaisuuksia, meidän on luotava sen objekti.
Dim outApp Outlook.Sovellus 'Tämä luo viittauksen Outlook -objektiin. Dim outApp As Outlook.MailItem 'Tämä luo viitteen MailItemiin.
-
- Alusta viitteet: Yllä olevat viitteet on alustettava:
Set outApp = Uusi Outlook.Application Set outMail = outApp.CreateItem (0)
-
- Sähköpostin lähettäminen outMail -objektin avulla: Alla olevat rivit määrittävät kohdetiedoston tunnuksen, cc, bcc, aihe, body, liite ja lähetyskomennon.
OutMail .To = "abcd.mail.com" 'Pakollinen. Tässä määrität kohdepostin tunnuksen… cc = "cc.mail.com" 'valinnainen. Cc -postitunnus, jos haluat… BCC = "bcc.mail.com" 'valinnainen. Piilokopion postitunnus, jos haluat… Aihe = subj 'pitäisi olla. Hieronta postilaatikossa… Keho = viesti 'valinnainen. Hieronta postilaatikossa… Liitteet. Lisää "C: /exceltip.com \ test.xlsx" 'valinnainen. Täydellinen liitteen nimi… Lähetä 'Pakollinen, jos haluat lähettää sähköpostia Excelistä. Jos haluat nähdä sähköpostin Outlookissa, käytä .Display -menetelmää. Lopeta
Se siitä. Kaikki mitä tarvitset lähettääksesi sähköpostia Excelistä VBA: n avulla.
Katsotaanpa nyt esimerkkiä, joka lähettää sähköpostin jokaiselle Excel -sarakkeen sähköpostitunnukselle erikseen.
Skenaario:
Kuvittele, että sinulle toimitetaan Excel -taulukko, joka sisältää 100 sähköpostitunnusta, ja sinun on lähetettävä sähköposti jokaiselle sähköpostitunnukselle erikseen. Ei vain tämä, sinun on liitettävä myös kohteita. Tämä kestää useita tunteja, jos teet sen manuaalisesti. Joten automatisoidaan tämä sähköpostitehtävä Excel VBA: ssa.
Tässä minulla on nämä tiedot. Sarakkeessa C, jonka otsikko on "Lähetä viesti", on useita sähköpostitunnuksia. Minun on lähetettävä sähköposti tämän sarakkeen jokaiseen sähköpostitunnukseen.
Tätä varten olen luonut sarakkeita Aihe, Hieronta, vartalo, CC ja BCC.
"Lähetä sähköpostia osoitteeseen" -välilehdessä ei saa olla tyhjää solua. Kaikissa muissa sarakkeissa voi olla tyhjiä soluja. Jos haluat
useita sähköpostiosoitteita kohteeseen kirjoita sitten sähköpostitunnukset pilkuilla tähän sarakkeeseen. Varmista, että sähköpostitunnukset ovat kelvollisia.
Jos haluat lähettää liitteitä. Kirjoita kyseisten tiedostojen osoitteet liitetiedostoon.
Kirjoita aihe Aihe -sarakkeeseen.
Hieronta Massage Body -sarakkeessa.
Jos haluat pitää jonkun kopiona, kirjoita hänen sähköpostiosoitteensa CC -sarakkeeseen. Sama BCC: lle. käytä pilkkua useille sähköpostitunnuksille.
Voit nyt lähettää sähköpostiviestejä jokaiseen sarakkeen sähköpostitunnukseen seuraavasti.
- Avaa VBA Editor Excelissä painamalla Alt+F11.
- Lisää viittaus Outlook -objektiin noudattamalla aiemmin kerrottuja vaiheita.
- Kopioi alla oleva koodi uudessa moduulissa.
'*** *** Outlook -sähköpostisi on määritettävä järjestelmän Outlook -sovellukseen ***' '*** lisää viittaus outook -objektikirjastoon työkalujen viitteistä *** Sub BulkMail () Application.ScreenUpdating = False ThisWorkbook.Activate' Viittausten luominen Outlookin Application- ja MailItem -objekteihin Dim outApp As Outlook.Application Dim outMail As Outlook.MailItem 'Muuttujan luominen eri postilähetysten arvojen säilyttämiseksi Dim sendTo, subj, atchmnt, msg, ccTo, bccTo As String Dim lstRow Long "Omat tiedot ovat taulukolla" Exceltip.com ", jolla voi olla mikä tahansa arkin nimi. ThisWorkbook.Sheets ("Exceltip.com"). Aktivoi 'Saada viimeinen rivi, joka sisältää sähköpostitunnuksen sarakkeessa 3. lstRow = Solut (Rows.Count, 3) .End (xlUp) .Row' Muuttuja pitää kaikki sähköpostitunnukset Dim rng Asetusalueena rng = Range ("C2: C" & lstRow) "Outlook -objektin alustaminen päästäkseen sen ominaisuuksiin Set outApp = New Outlook.Application On Error GoTo cleanup" käsittelemään kaikki virheet objektin luomisen aikana. 'Kierrä iteroida jokaisen rivin läpi, pidä sähköpostin tiedot muuttujina ja lähetä' sähköpostiviesti jokaiseen sähköpostitunnukseen. Jokaiselle solulle In rng sendTo = Range (cell.Address). Offset (0, 0) .Arvo2 subj = Range (cell.Address). Offset (0, 1) .Arvo2 & "-MS" msg = Range (solu. Osoite. Siirto (0, 4). Arvo2 päällä Virhe Jatka seuraavaksi "antaaksesi virheen alla olevan objektin luomisen aikana Set outMail = outApp.CreateItem (0)" Postin kirjoittaminen ja lähettäminen uudessa postissa OutMail .To = sendTo .cc = ccTo .BCC = bccTo .Body = msg .Subject = subj .Attachments.Add atchmnt .Lähetä 'tämä sähköpostiviesti ilman ilmoitusta. Jos haluat nähdä sähköpostin ennen lähettämistä, käytä .Display -menetelmää. Lopeta On Ongelmalla GoTo 0 'Korjaa aiemmin tallennetut virheet Set outMail = Nothing' nullifying outmail object for next mail Next cell 'silmukka lopettaa cleanup:' vapauttaa kaikki luodut objektit Set outApp = Nothing Application.ScreenUpdating = True Application.ScreenUpdating = True End Sub
Yllä oleva koodi lähettää sähköpostiviestejä jokaiselle sähköpostitunnukselle "lähetä sähköpostiosoite" -sarakkeen riville. Nyt voit suorittaa tämän koodin suorittamalla sen suoraan täältä. Tai voit lisätä luvun tai painikkeen työkirjaasi ja määrittää tämän makron kyseiselle objektille. Käytän muotoja, koska ne ovat muokattavissa. Tehdä niin, noudata alla olevia ohjeita.
-
- Siirry Lisää -välilehdelle.
- Kuva -ryhmästä löydät muotoja, napsauta suosikkimuotasi.
-
- Vedä ja pudota se arkille.
- Kaunista jos haluat.
- Napsauta sitä hiiren kakkospainikkeella. Napsauta Määritä makro.
-
- Valitse BulkMail -makro luettelosta.
- Poistu muokkaustilasta.
Nyt kun napsautat tätä objektia, makro suoritetaan ja lähettää sähköpostiviestejä. Tarkista lähetetyt sähköpostit varmistaaksesi.
Voit ladata Excel Mail Sender -tiedoston täältä.
Jaa Excel -taulukko useisiin tiedostoihin sarakkeen perusteella VBA: n avulla | Jos haluat jakaa laskentataulukon useisiin tiedostoihin sarakkeen arvojen perusteella, sinun on suodattettava se kopioimalla ja liittämällä se uuteen tiedostoon.
Tietojen suodattaminen Excelissä VBA: n avulla | Tietojen suodattaminen VBA: n avulla on helppoa. Nämä yksinkertaiset koodirivit suodattavat tiedot annettujen ehtojen perusteella.
Poista varoitusviestit käytöstä VBA: n avulla Microsoft Excel 2016 | Suorittaessaan useita tehtäviä, kuten tiedostojen avaamista ja sulkemista, Excel näyttää varoitusviestit, jotta et menetä tietoja. Ne keskeyttävät käynnissä olevan koodin. Niiden välttämiseksi
Kuinka selata arkkeja Excelissä VBA: n avulla | Jos haluat edetä edestakaisin kahdella tai useammalla arkilla, meidän on kierrettävä ne läpi. Useiden arkkien selaamiseen käytämme…
7 Esimerkkejä silmukoista Microsoft Excel VBA: ssa | For -silmukka on eniten käytetty silmukkatekniikka millä tahansa kielellä. Excel VBA ei ole poikkeus.
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi | Nopeuta tehtävääsi. Nämä 50 pikanäppäintä tekevät työskentelystäsi entistä nopeampaa Excelissä.
VLOOKUP -toiminnon käyttäminen Excelissä | Tämä on yksi eniten käytetyistä ja suosituimmista Excel -toiminnoista, jota käytetään arvon etsimiseen eri alueilta ja arkeilta.
COUNTIF -toiminnon käyttäminen Excelissä | Laske arvot olosuhteilla käyttämällä tätä hämmästyttävää toimintoa. Sinun ei tarvitse suodattaa tietojasi tietyn arvon laskemiseksi. Laskutoiminto on välttämätön kojelaudan valmistelemiseksi.
SUMIF -toiminnon käyttäminen Excelissä | Tämä on toinen kojelaudan olennainen toiminto. Tämä auttaa sinua laskemaan yhteen arvot tietyissä olosuhteissa.