Kun sinun on lähetettävä massasähköpostia suurelle joukolle ihmisiä, tarvitset automatisoidun prosessin, joka pystyy hoitamaan toistuvat tehtävät nopeasti. Luomalla Excel tiedosto, jossa on sähköpostiluettelo, on yleisin tapa lähettää massasähköposteja. Tässä opetusohjelmassa näytämme siis, miten lähetät sähköpostia tiedostosta Excel listan automaattisesti suurelle määrälle ihmisiä.

Lataa harjoituskirja

Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.

2 kätevää lähestymistapaa sähköpostin lähettämiseen Excel-luettelosta

Olemme liittäneet alla olevaan kuvaan tietosarjan, jossa on joidenkin henkilöiden nimet sekä heidän sähköpostiosoitteensa ja rekisteröintinumeronsa. Alkaen osoitteesta Excel listalle, meidän on lähetettävä sähköpostia jokaiselle yksilölle. Tätä varten käytämme Microsoft Wordin yhdistelmäsähköposti toiminto , jota seuraa VBA koodi, jolla lähetetään sähköposteja olemassa olevan listan halutuille henkilöille.

1. Sovelletaan sähköpostin yhdistämistoimintoa useiden sähköpostien lähettämiseen Excel-luettelosta.

⇒ Vaihe 1: Avaa uusi Word-tiedosto

• Avaa tyhjä Sana asiakirja.
• Napsauta Postitukset välilehti.
• Vuodesta Valitse vastaanottajat vaihtoehto, valitse Käytä olemassa olevaa luetteloa vaihtoehto.

⇒ Vaihe 2: Yhdistä Excel-luettelo Word-tiedostoon

• Valitse Excel tiedostoon, jossa olet luonut luettelon, ja klikkaa sitten kohtaa Avaa avataksesi tiedoston.

• Valitse arkin numero, johon olet kirjoittanut luettelon.
• Napsauta sitten OK .

⇒ Vaihe 3: Lisää kentät

• Vuodesta Postitukset vaihtoehtoa, napsauta Lisää sulautuskenttä vaihtoehto syöttääksesi kentät, jotka haluat lisätä.
• Aseta ensin Nimi kenttä klikkaamalla sitä ja haluamassasi paikassa yleistä postia.

• Kuten alla olevassa kuvassa näkyy, kun olet lisännyt tiedoston Nimi kenttä, se näkyy jokaisen henkilön nimen muuttujana.

• Samoin aseta Reg kenttää haluamaasi kohtaan tekstiviestissä.

• Näin ollen se näkyy alla olevan kuvan mukaisesti.

⇒ Vaihe 4: Tarkista esikatselun tulokset

• Napsauta Tulosten esikatselu nähdäksesi lopullisen esikatselun ennen sähköpostin lähettämistä.
• Alla olevassa kuvakaappauksessa näkyy, miltä esimerkkisähköposti näyttää.

⇒ Vaihe 5: Yhdistä sähköpostit

• Jos haluat yhdistää sähköpostit, napsauta painiketta Viimeistely & Yhdistäminen vaihtoehto.
• Avaa Yhdistä sähköpostiin Valitse laatikko Lähetä sähköpostiviestejä vaihtoehto.

• Valitse To-ruutuun Sähköposti vaihtoehto.
• Kirjoita haluamasi otsikko kenttään Aihealue laatikko.
• Sähköpostin muoto on HTML oletusarvoisesti, joten sitä ei tarvitse muuttaa.
• Napsauta Lähetä tietueet -vaihtoehdossa Kaikki .
• Klikkaa lopuksi OK lähettää sähköpostiviestejä useille vastaanottajille samanaikaisesti.

• Näin ollen kaikki sähköpostiviestit lähetetään liitetyn sähköpostisi kautta. Outlook Tarkista Outlook lähetetään -vaihtoehdolla voit vahvistaa, että sähköpostit on lähetetty.

• Kun avaat lähetetyn sähköpostin, huomaat, että jokainen kenttä on täytetty tietyn henkilön tiedoilla.

Lue lisää: Kuinka lähettää sähköpostia automaattisesti, kun ehto täyttyy Excelissä

Samanlaisia lukemia

• Muokattavan Excel-taulukon lähettäminen sähköpostitse (3 nopeaa menetelmää)
• [Ratkaistu]: Jaa työkirja ei näy Excelissä (helpoilla ohjeilla)
• Lähetä muistutussähköposti automaattisesti Excel-taulukosta VBA:n avulla
• Kuinka nähdä, kuka on jaetussa Excel-tiedostossa (nopeilla vaiheilla)?
• Kuinka ottaa työkirjan jakaminen käyttöön Excelissä

2. Suorita VBA-koodi, jolla lähetetään sähköpostiviestejä alueen valinnasta.

Siunauksella VBA , voit luoda ohjelman, jolla voit lähettää sähköposteja osoitteesta Excel listaa, jossa on mieluiten valittu alue. Tee tehtävä alla esitettyjen ohjeiden mukaisesti.

⇒ Vaihe 1: Luo moduuli

• Avaa VBA-makro , paina Alt + F11 .
• Napsauta Lisää välilehti.
• Valitse Moduuli vaihtoehdon luodaksesi Moduuli .

⇒ Vaihe 2: Liitä VBA-koodit

• Uudessa Moduuli , liitä seuraava VBA-koodi .

 #If VBA7 And Win64 Then 'Ptr:tä käytetään vaihtamaan 32-bittisen käyttöjärjestelmän 64-bittiseksi Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Muuttujien ilmoittaminen DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Valitse alueen valinta adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Luo Input box alueen valintaa varten Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Sovelletaan If-ehtoa määrittämään sarakkeiden numerot operaatiota varten If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Näytetään tulos msg-ruutuun, jos ehto ei täyty MsgBox "Virhe alueen valinnassa, vahvista", , "ExcelWIKI" Exit Sub End If 'Sovelletaan For-silmukkaa suorittamaan operaatio kullakin rivillä yksitellen For k = 1 To xIntRg.Rows.Count' Kerää sähköpostiosoite ja aseta muuttujaan xMailAdd = xIntRg.Cells(k, 2) ' Anna sähköpostin aihe xRegCode = "ExcelWIKI Registration No." ' Kirjoita sähköpostin runko xBody = "" ' Lisää nimet muuttujalla xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Here is your ExcelWIKI Registration No. " ' ' InsertRekisteröintinumero muuttujalla xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Olemme todella iloisia, että vierailet sivustollamme, jatka tukeaksesi meitä." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Määrittele välilyönnit (heksadesimaaliluvulla) xRegCode = Sovellus.TaulukkolaskentaFunktio.Korvaa(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Määritä korvattavaksi välilyönnit(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Luo URL-linkki xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Aloita sähköpostin lähettäminen linkin avulla ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' kolmen sekunnin väli näppäinpainallusten lähettämiselle Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Vaihe 3: Suorita ohjelma

• Paina F5 ohjelman suorittamiseksi.
• Valitse alue syöttöruudussa.
• Klikkaa OK lähettää sähköposteja.

• Tämän seurauksena sähköpostien lähetyksen esikatselukuvat tulevat näkyviin, kuten alla olevassa kuvassa näkyy.

• Lopuksi voit tarkistaa lähetetyt sähköpostit vahvistusta varten.

Lue lisää: Kuinka lähettää sähköpostia, jos ehdot täyttyvät Excelissä (3 helppoa menetelmää)

Päätelmä

Toivottavasti tämä artikkeli on antanut sinulle opetusohjelma siitä, miten lähettää massasähköposteja päässä Excel listaa. Kaikki nämä menettelyt pitäisi oppia ja soveltaa tietokokonaisuuteesi. Tutustu harjoitustyökirjaan ja testaa nämä taidot. Olemme motivoituneita tekemään tällaisia opetusohjelmia teidän arvokkaan tukenne ansiosta.

Ota yhteyttä, jos sinulla on kysyttävää, ja jätä kommentteja alla olevaan osioon.

Me, jotka olemme Exceldemy tiimi, vastaa aina kyselyihinne.

Pysy kanssamme ja jatka oppimista.