Atunci când trebuie să trimiteți un e-mail în masă unui grup mare de persoane, veți avea nevoie de un proces automatizat care să poată gestiona rapid sarcinile repetitive. Crearea unei Excel cu o listă de e-mailuri este cea mai comună modalitate de a trimite e-mailuri în masă. Astfel, în acest tutorial, vă vom arăta cum să trimiteți e-mailuri dintr-un fișier Excel lista în mod automat către un număr mare de persoane.

Descărcați caietul de practică

Descărcați acest caiet de exerciții pentru a vă exercita în timp ce citiți acest articol.

2 Abordări practice pentru a trimite e-mailuri dintr-o listă Excel

Am inclus în imaginea de mai jos un set de date cu numele câtorva persoane, precum și cu e-mailurile și numerele de înregistrare. De la Excel trebuie să trimitem e-mailuri fiecărei persoane în parte. Pentru a realiza acest lucru, vom folosi Microsoft Word's Mail Merge funcția , urmată de un VBA pentru a trimite e-mailuri către persoanele preferate din lista existentă.

1. Aplicați funcția Mail Merge pentru a trimite mai multe e-mailuri dintr-o listă Excel

⇒ Pasul 1: Deschideți un nou fișier Word

• Deschideți un spațiu gol Cuvânt document.
• Faceți clic pe butonul Mailings tab.
• De la Selectați destinatarii alegeți opțiunea Utilizați o listă existentă opțiune.

⇒ Pasul 2: Conectați lista Excel la fișierul Word

• Selectați Excel în care ați creat lista și faceți clic pe Deschideți pentru a deschide fișierul.

• Selectați numărul foii pe care ați scris lista.
• Apoi, faceți clic pe OK .

⇒ Pasul 3: Introduceți câmpuri

• De la Mailings faceți clic pe opțiunea Inserare câmp de fuziune pentru a introduce câmpurile pe care doriți să le inserați.
• În primul rând, introduceți Nume făcând clic pe el și în poziția preferată a poștei generale.

• După cum se arată în imaginea de mai jos, după ce se adaugă Nume se va afișa ca variabilă a numelui fiecărei persoane.

• În mod similar, se plasează Reg oriunde doriți în mesajul text.

• Prin urmare, aceasta va apărea ca în imaginea de mai jos.

⇒ Pasul 4: Verificați rezultatele previzualizării

• Faceți clic pe butonul Rezultatele previzualizării pentru a vedea previzualizarea finală înainte de a trimite e-mailul.
• Captura de ecran de mai jos arată cum va arăta un e-mail de probă.

⇒ Pasul 5: Uniți e-mailurile

• Pentru a unifica e-mailurile, faceți clic pe butonul Terminare & Îmbinare opțiune.
• Pentru a deschide fereastra Îmbinare în e-mail selectați caseta Trimiteți mesaje de e-mail opțiune.

• În caseta Către, selectați Email opțiune.
• Introduceți un subiect pe care îl preferați în câmpul Linia de subiect cutie.
• Formatul mailului va fi HTML în mod implicit, așa că nu este nevoie să o modificați.
• În opțiunea Send Records (Trimitere înregistrări), faceți clic pe Toate .
• În cele din urmă, faceți clic pe OK pentru a trimite e-mailurile către mai mulți destinatari în același timp.

• În consecință, toate e-mailurile vor fi trimise prin intermediul aplicației dvs. asociate. Outlook Verifică-ți Outlook pentru a confirma că e-mailurile au fost trimise.

• Când deschideți un e-mail trimis, veți observa că fiecare câmp este completat cu informațiile unei anumite persoane.

Citește mai mult: Cum să trimiteți automat un e-mail atunci când se îndeplinește o condiție în Excel

Lecturi similare

• Cum să trimiteți o foaie de calcul Excel editabilă prin e-mail (3 metode rapide)
• [Rezolvat]: Share Workbook nu se afișează în Excel (cu pași simpli)
• Trimiterea automată a unui e-mail de atenționare dintr-o foaie de lucru Excel utilizând VBA
• Cum să vedeți cine se află într-un fișier Excel partajat (cu pași rapizi)
• Cum se activează partajarea unui registru de lucru în Excel

2. Executați un cod VBA pentru a trimite e-mailuri din selectarea unui interval

Cu binecuvântarea lui VBA , puteți crea un program care să trimită e-mailuri de la un Excel Urmați pașii descriși mai jos pentru a îndeplini această sarcină.

⇒ Pasul 1: Creați un modul

• Pentru a deschide fereastra Macro VBA , apăsați Alt + F11 .
• Faceți clic pe butonul Introduceți tab.
• Selectați Modul pentru a crea o opțiune Modul .

⇒ Pasul 2: Lipiți codurile VBA

• În noul Modul , lipiți următoarele Cod VBA .

 #If VBA7 And Win64 Then 'Ptr este folosit pentru a schimba pentru funcționarea pe 32 de biți în 64 de biți 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() 'Declară variabilele Dim.xMailAdd 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 'Selectați intervalul de selecție adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Creați o casetă de intrare pentru selecția intervalului Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , , 8) 'Aplicați condiția If pentru a specifica numerele de coloane pentru operație Dacă xIntRg nu este nimic Atunci ieșiți din Sub If xIntRg.Columns.Count 3 Atunci 'Afișați rezultatul într-o casetă msg pentru că nu se îndeplinește condiția MsgBox "Eroare la selecția regiunii, vă rugăm să confirmați", , "ExcelWIKI" Exit Sub End If 'Aplicați bucla For pentru a executa operația pe fiecare rând în parte Pentru k = 1 la xIntRg.Rows.Count' Colectați adresa de e-mail și setați-o în variabila xMailAdd = xIntRg.Cells(k, 2) ' Dați un subiect pentru e-mail xRegCode = "ExcelWIKI Registration No." ' Introduceți corpul e-mailului xBody = "" ' Introduceți numele cu variabila xIntRg xBody = xBody & "Salutări " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Aici este numărul dvs. de înregistrare ExcelWIKI. " ' IntroducețiNr. de înregistrare cu variabila xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Suntem foarte bucuroși să vă avem în vizită pe site-ul nostru, continuați să ne sprijiniți." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Definiți spațiile cu (hexazecimal) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Specificați înlocuirea retururilor de cărămidă cu (hexazecimal) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Generați URL-ul Link xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Utilizați Link-ul pentru a începe trimiterea de e-mail-uri ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' interval de trei secunde pentru trimiterea apăsărilor de taste Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Pasul 3: Rulați programul

• Apăsați F5 pentru a rula programul.
• Selectați intervalul din caseta de introducere a datelor.
• Faceți clic pe OK pentru a trimite e-mailurile.

• Ca urmare, vor apărea previzualizări ale e-mailurilor de trimitere, așa cum se arată în imaginea de mai jos.

• În cele din urmă, puteți verifica e-mailurile trimise pentru confirmare.

Citește mai mult: Cum să trimiteți un e-mail dacă sunt îndeplinite condițiile în Excel (3 metode simple)

Concluzie

Sper că acest articol v-a oferit un tutorial despre cum să trimiteți e-mailuri în masă de la un Excel Lista. Toate aceste proceduri trebuie învățate și aplicate la setul dvs. de date. Aruncați o privire la caietul de lucru practic și puneți aceste abilități la încercare. Suntem motivați să continuăm să realizăm tutoriale ca acesta datorită sprijinului dvs. valoros.

Vă rugăm să ne contactați dacă aveți întrebări și să ne lăsați comentarii în secțiunea de mai jos.

Noi, cei Exceldemy Team, sunt întotdeauna receptivi la întrebările dumneavoastră.

Rămâneți alături de noi și continuați să învățați.