Ha nagyszámú embercsoportnak kell tömeges e-mailt küldenie, akkor olyan automatizált folyamatra van szüksége, amely gyorsan képes az ismétlődő feladatok gyors kezelésére. Egy olyan Excel fájl egy e-mail listával a leggyakoribb módja a tömeges e-mail küldésnek. Ebben a bemutatóban tehát megmutatjuk, hogyan küldhetünk e-mailt a Excel listát automatikusan nagyszámú embernek.

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

2 praktikus megközelítés az Excel listából történő e-mail küldéshez

Az alábbi képen egy adatkészletet mellékeltünk néhány ember nevével, valamint e-mail címével és regisztrációs számával. A Excel listát, e-maileket kell küldenünk minden egyes személynek. Ehhez használjuk a A Microsoft Word Sorközi levelezés funkció , majd egy VBA kódot, hogy e-maileket küldjön a meglévő listáról az előnyben részesített személyeknek.

1. Alkalmazza a Mail Merge funkciót több e-mail küldésére egy Excel-listáról

⇒ 1. lépés: Új Word fájl megnyitása

• Nyisson meg egy üres Szó dokumentum.
• Kattintson a Postai küldemények tab.
• A Címzettek kiválasztása opciót, válassza a Meglévő lista használata opció.

⇒ 2. lépés: Az Excel-lista összekapcsolása a Word-fájllal

• Válassza ki a Excel fájlban, ahol létrehozta a listát, és kattintson a Nyissa meg a címet. a fájl megnyitásához.

• Válassza ki azt a lapszámot, amelyre a listát írta.
• Ezután kattintson a OK .

⇒ 3. lépés: Mezők beszúrása

• A Postai küldemények opciót, kattintson a Összevonási mező beillesztése opciót a beilleszteni kívánt mezők megadásához.
• Először is, helyezze be a Név mezőre kattintva és az általános levél kívánt pozíciójában.

• Az alábbi képen látható, hogy a Név mezőt, akkor minden személy nevének változójaként jelenik meg.

• Hasonlóképpen, helyezze a Reg mezőt a szöveges üzenetben tetszőleges helyre.

• Ezért az alábbi képen fog megjelenni.

⇒ 4. lépés: Ellenőrizze az előnézeti eredményeket

• Kattintson a Előnézet eredmények a végleges előnézet megtekintéséhez az e-mail elküldése előtt.
• Az alábbi képernyőkép mutatja, hogyan fog kinézni egy minta e-mail.

⇒ 5. lépés: E-mailek egyesítése

• Az e-mailek egyesítéséhez kattintson a Finish & Merge opció.
• Megnyitni a Összevonás e-mailbe mezőben válassza ki a Email üzenetek küldése opció.

• A To mezőben válassza ki a E-mail opció.
• Írja be a kívánt tárgysorozatot a Tárgysor doboz.
• A levélformátum a következő lesz HTML alapértelmezés szerint, így nem kell megváltoztatnia.
• A Rekordok küldése opcióban kattintson a Minden .
• Végül kattintson a OK hogy az e-maileket egyszerre több címzettnek küldje el.

• Következésképpen az összes e-mailt az Önhöz tartozó Outlook Ellenőrizze a Outlook küldött opcióval megerősítheti, hogy az e-mailek elküldésre kerültek.

• Amikor megnyit egy elküldött e-mailt, észreveheti, hogy minden mező egy adott személy adataival van kitöltve.

Bővebben: Hogyan küldhet automatikusan e-mailt, amikor az Excelben teljesül a feltétel

Hasonló olvasmányok

• Szerkeszthető Excel-táblázat küldése e-mailben (3 gyors módszer)
• [Megoldva]: A munkafüzet megosztása nem jelenik meg az Excelben (egyszerű lépésekkel)
• Emlékeztető e-mail automatikus küldése egy Excel-munkalapról a VBA használatával
• Hogyan láthatja, hogy ki van egy megosztott Excel-fájlban (gyors lépésekkel)
• Hogyan lehet engedélyezni a munkafüzet megosztását az Excelben

2. VBA kód futtatása e-mailek küldéséhez egy tartomány kiválasztásából

Az áldásokkal VBA , létrehozhat egy olyan programot, amely e-maileket küldhet egy Excel listát a tartomány előnyös kiválasztásával. Kövesse az alábbiakban vázolt lépéseket a feladat elvégzéséhez.

⇒ 1. lépés: Modul létrehozása

• Megnyitni a VBA makró , nyomja meg Alt + F11 .
• Kattintson a Beillesztés tab.
• Válassza ki a Modul opcióval létrehozhatja a Modul .

⇒ 2. lépés: VBA kódok beillesztése

• Az új Modul , illessze be a következőket VBA kód .

 #If VBA7 And Win64 Then 'A Ptr-t arra használjuk, hogy a 32 bites operációs rendszer 64 bitesre váltson 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() 'A változók deklarálása 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 'Tartomány kiválasztása select adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Input box létrehozása a tartomány kiválasztásához Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Alkalmazza az If feltételt a művelet oszlopszámainak megadásához If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Az eredmény megjelenítése egy msg boxban, ha nem teljesül a feltétel MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Alkalmazza a For loopot a művelet egyes sorokban történő futtatásához For k = 1 To xIntRg.Rows.Count.' Gyűjtsük össze az e-mail címet és állítsuk be a változóba xMailAdd = xIntRg.Cells(k, 2) ' Adjunk meg egy tárgyat az e-mailnek xRegCode = "ExcelWIKI regisztrációs szám." ' Írjuk be az e-mail testét xBody = "" ' Nevek beillesztése a változóval xIntRg xBody = xBody & "Üdvözlet " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Itt van az ExcelWIKI regisztrációs száma " ' Beillesztés.Regisztrációs szám a változóval xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Nagyon örülünk, hogy meglátogat minket, támogasson minket." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Szóközök definiálása (hexával) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Adja meg, hogy a kocsivégzéseket helyettesítse(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' URL link generálása xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Használja a linket az e-mail küldés megkezdéséhez ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' három másodperces intervallum a billentyűleütések küldéséhez Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ 3. lépés: A program futtatása

• Sajtó F5 a program futtatásához.
• Válassza ki a címet. a tartományt a beviteli mezőben.
• Kattintson a címre. OK az e-mailek küldéséhez.

• Ennek eredményeképpen megjelenik az e-mailek küldésének előnézete, ahogy az alábbi képen látható.

• Végül ellenőrizheti az elküldött e-maileket a megerősítésért.

Bővebben: Hogyan küldjön e-mailt, ha az Excelben teljesülnek a feltételek (3 egyszerű módszer)

Következtetés

Remélem, hogy ez a cikk adott Önnek egy bemutatót arról, hogyan kell tömeges e-maileket küldeni egy Excel listát. Mindezen eljárásokat meg kell tanulni és alkalmazni kell az adatállományodra. Nézd meg a gyakorló munkafüzetet, és tedd próbára ezeket a készségeket. Az értékes támogatásod miatt vagyunk motiválva, hogy továbbra is ilyen oktatóanyagokat készítsünk.

Kérjük, lépjen kapcsolatba velünk, ha bármilyen kérdése van. Továbbá, bátran hagyjon megjegyzéseket az alábbi részben.

Mi, a Exceldemy Csapat, mindig reagálnak az Ön kérdéseire.

Maradjon velünk és tanuljon tovább.