Turinys
Kai reikia siųsti masinį el. laišką didelei grupei žmonių, jums reikia automatizuoto proceso, kuris galėtų greitai atlikti pasikartojančias užduotis. "Excel" failas su el. laiškų sąrašu yra dažniausias būdas siųsti masinius el. laiškus. Taigi šioje pamokoje parodysime, kaip siųsti el. laiškus iš "Excel" sąrašą automatiškai daugybei žmonių.
Atsisiųsti praktikos sąsiuvinį
Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.
Siųsti el. paštu.xlsm2 patogūs el. pašto siuntimo iš "Excel" sąrašo būdai
Toliau pateiktame paveikslėlyje pateikiame duomenų rinkinį su kai kurių žmonių vardais, taip pat jų el. pašto adresais ir registracijos numeriais. Iš "Excel" sąrašą, turime išsiųsti el. laiškus kiekvienam asmeniui. Norėdami tai padaryti, naudosime "Microsoft Word" "Mail Merge funkcija , po kurio seka VBA kodą, kad galėtumėte siųsti el. laiškus pageidaujamiems asmenims iš esamo sąrašo.
1. Taikyti "Mail Merge" funkciją keliems el. laiškams siųsti iš "Excel" sąrašo
⇒ 1 žingsnis: atidarykite naują "Word" failą
- Atidarykite tuščią Žodis dokumentas.
- Spustelėkite Pašto pranešimai skirtukas.
- Iš Pasirinkite gavėjus parinktį, pasirinkite Naudokite esamą sąrašą galimybė.
⇒ 2 veiksmas: susiekite "Excel" sąrašą su "Word" failu
- Pasirinkite "Excel" failą, kuriame sukūrėte sąrašą, ir spustelėkite Atviras atidaryti failą.
- Pasirinkite lapo, kuriame įrašėte sąrašą, numerį.
- Tada spustelėkite GERAI .
⇒ 3 veiksmas: įterpti laukus
- Iš Pašto pranešimai parinktį, spustelėkite Įterpti sujungimo lauką parinktį ir įveskite norimus įterpti laukus.
- Pirmiausia įdėkite Pavadinimas lauką spustelėdami ant jo ir pageidaujamoje bendrojo pašto vietoje.
- Kaip parodyta paveikslėlyje toliau, pridėjus Pavadinimas laukas bus rodomas kaip kiekvieno asmens vardo kintamasis.
- Panašiai padėkite Reg lauką, kur tik norite, teksto žinutėje.
- Todėl jis atrodys taip, kaip pavaizduota toliau.
⇒ 4 veiksmas: patikrinkite peržiūros rezultatus
- Spustelėkite Peržiūros rezultatai kad prieš išsiųsdami el. laišką pamatytumėte galutinę peržiūrą.
- Toliau pateiktoje ekrano nuotraukoje parodyta, kaip atrodys el. laiško pavyzdys.
⇒ 5 veiksmas: Sujungti el. laiškus
- Norėdami sujungti el. laiškus, spustelėkite Baigti & antspaudas; Sujungti galimybė.
- Norėdami atidaryti Sujungti su el. paštu langelį, pasirinkite Siųsti el. pašto pranešimus galimybė.
- Laukelyje Kam pasirinkite El. paštas galimybė.
- Įveskite pageidaujamą temos eilutę į Temos eilutė dėžutė.
- Laiško formatas bus toks. HTML pagal numatytuosius nustatymus, todėl jums nereikia jos keisti.
- Parinktyje Siųsti įrašus spustelėkite Visi .
- Galiausiai spustelėkite GERAI siųsti el. laiškus keliems gavėjams vienu metu.
- Todėl visi el. laiškai bus siunčiami per jūsų susietą "Outlook" Patikrinkite savo "Outlook" išsiųsta parinktis, kad patvirtintumėte, jog el. laiškai buvo išsiųsti.
- Atidarę išsiųstą el. laišką pastebėsite, kad kiekviename lauke įrašyta konkretaus asmens informacija.
Skaityti daugiau: Kaip automatiškai siųsti el. laišką, kai "Excel" įvykdyta sąlyga
Panašūs skaitiniai
- Kaip siųsti redaguojamą "Excel" skaičiuoklę el. paštu (3 greiti metodai)
- [Išspręsta]: "Excel" nerodomas bendrinis sąsiuvinis (su paprastais žingsniais)
- Automatinis priminimo el. laiško siuntimas iš "Excel" darbalapio naudojant VBA
- Kaip sužinoti, kas yra bendrinamame "Excel" faile (greiti žingsniai)
- Kaip įgalinti bendrinti darbaknygę "Excel" programoje
2. Paleiskite VBA kodą, kad išsiųstumėte el. laiškus iš pasirinkto diapazono
Su palaiminimu VBA , galite sukurti programą, kuri siųstų el. laiškus iš "Excel" sąrašą su pageidautinu diapazono pasirinkimu. Atlikdami užduotį atlikite toliau nurodytus veiksmus.
⇒ 1 žingsnis: sukurti modulį
- Norėdami atidaryti VBA makrokomandos , paspauskite Alt + F11 .
- Spustelėkite Įdėkite skirtukas.
- Pasirinkite Modulis parinktį sukurti Modulis .
⇒ 2 žingsnis: įklijuokite VBA kodus
- Naujajame Modulis , įklijuokite šiuos įrašus VBA kodas .
#If VBA7 And Win64 Then 'Ptr naudojamas pakeisti 32 bitų operacinę sistemą į 64 bitų 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 #Else #End If Sub SendExcelListEMail() 'Declare the variables 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 'Pasirinkite diapazoną pasirinkite adresą xSelectTxt = ActiveWindow.RangeSelection.Address 'Sukurti įvesties langą diapazono pasirinkimui Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Taikyti If sąlygą, kad būtų nurodyti operacijos stulpelių numeriai If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Parodyti rezultatą msg langelyje, jei neįvykdyta sąlyga MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Taikyti For ciklą, kad operacija būtų vykdoma kiekvienoje eilutėje atskirai For k = 1 To xIntRg.Rows.Count' Surinkite el. pašto adresą ir nustatykite į kintamąjį xMailAdd = xIntRg.Cells(k, 2) ' Suteikite el. pašto temą xRegCode = "ExcelWIKI Registracijos Nr." ' Įveskite el. pašto kūną xBody = "" ' Įterpkite vardus su kintamuoju xIntRg xBody = xBody & "Sveikinimai " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Čia yra jūsų ExcelWIKI registracijos Nr. " ' ĮterpkiteRegistracijos Nr. su kintamuoju xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Mes tikrai džiaugiamės, kad lankotės mūsų svetainėje, palaikykite mus." & vbCrLf xBody = xBody & "ExcelWIKI komanda" ' Apibrėžti tarpus su (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Nurodykite, kad reikia pakeisti vežimėlio grąžinimą(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Sukurkite URL Nuoroda xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Naudokite nuorodą, kad pradėtumėte siųsti el. laišką ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' trijų sekundžių intervalas klavišų paspaudimams siųsti Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 
⇒ 3 veiksmas: paleiskite programą
- Paspauskite F5 paleisti programą.
- Pasirinkite įvesties langelio intervalą.
- Spustelėkite GERAI siųsti el. laiškus.
- Todėl bus rodomos siunčiamų el. laiškų peržiūros, kaip parodyta toliau pateiktame paveikslėlyje.
- Galiausiai galite patikrinti išsiųstus el. laiškus, kad gautumėte patvirtinimą.
Skaityti daugiau: Kaip siųsti el. laišką, jei "Excel" įvykdytos sąlygos (3 paprasti metodai)
Išvada
Tikiuosi, kad šiame straipsnyje rasite vadovėlį, kaip siųsti masinius el. laiškus iš "Excel" sąrašas. Visas šias procedūras reikėtų išmokti ir pritaikyti savo duomenų rinkiniui. Peržiūrėkite praktinio darbo sąsiuvinį ir išbandykite šiuos įgūdžius. Jūsų vertingas palaikymas mus motyvuoja ir toliau rengti tokius vadovėlius kaip šis.
Jei turite klausimų, susisiekite su mumis. Taip pat nedvejodami palikite komentarų toliau esančiame skyriuje.
Mes, Exceldemy Komanda visada reaguoja į jūsų užklausas.
Būkite su mumis ir toliau mokykitės.
