Wanneer u een massamail moet sturen naar een grote groep mensen, hebt u een geautomatiseerd proces nodig dat repetitieve taken snel kan afhandelen. Het maken van een Excel bestand met een lijst met e-mails is de meest gebruikelijke manier om massa e-mails te versturen. Dus, in deze tutorial laten we u zien hoe u e-mails verstuurt vanuit een Excel lijst automatisch naar een groot aantal mensen.

Download Praktijk Werkboek

Download dit oefenwerkboek om te oefenen terwijl u dit artikel leest.

2 handige manieren om e-mail te versturen vanuit een Excel-lijst

We hebben een dataset met de namen van enkele mensen en hun e-mails en registratienummers in de afbeelding hieronder opgenomen. Van de Excel lijst, moeten we e-mails sturen naar elk individu. Om dit te bereiken, gebruiken we Mail Merge van Microsoft Word functie gevolgd door een VBA code om e-mails te sturen naar voorkeurspersonen uit de bestaande lijst.

1. Mail Merge functie toepassen om meerdere e-mails te versturen vanuit een Excel lijst

⇒ Stap 1: Open een nieuw Word-bestand

• Open een lege Woord document.
• Klik op de Mailings tab.
• Van de Selecteer ontvangers optie, kies de Een bestaande lijst gebruiken optie.

⇒ Stap 2: De Excel-lijst koppelen aan het Word-bestand

• Selecteer de Excel bestand waar u de lijst hebt gemaakt en klik op Open om het bestand te openen.

• Selecteer het bladnummer waar u de lijst heeft geschreven.
• Klik dan op OK .

⇒ Stap 3: Velden invoegen

• Van de Mailings optie, klik op de Samenvoegingsveld invoegen optie om de velden in te voeren die u wilt invoegen.
• Plaats eerst de Naam veld door erop te klikken en in de gewenste positie van de algemene post.

• Zoals de afbeelding hieronder laat zien, na het toevoegen van de Naam veld, zal het verschijnen als de variabele van de naam van elke persoon.

• Plaats ook de Reg veld waar u maar wilt in het tekstbericht.

• Daarom verschijnt het als de afbeelding hieronder.

⇒ Stap 4: Controleer de voorbeeldresultaten

• Klik op de Voorbeeld resultaten om het definitieve voorbeeld te zien voordat u de e-mail verzendt.
• Het onderstaande screenshot laat zien hoe een voorbeeld van een e-mail eruit ziet.

⇒ Stap 5: E-mails samenvoegen

• Om de e-mails samen te voegen, klikt u op de Finish & Merge optie.
• Om de Samenvoegen naar e-mail vak, selecteer de Verzend e-mailberichten optie.

• Selecteer in het vak Aan de E-mail optie.
• Typ een onderwerpregel van uw voorkeur in het Onderwerp doos.
• Het postformaat zal zijn HTML standaard, dus je hoeft het niet te veranderen.
• In de optie Gegevens verzenden klikt u op Alle .
• Klik tenslotte op OK om de e-mails naar meerdere ontvangers tegelijk te sturen.

• Bijgevolg zullen alle e-mails worden verzonden via uw geassocieerde Outlook Controleer uw Outlook verzonden optie om te bevestigen dat de e-mails zijn verzonden.

• Wanneer u een verzonden e-mail opent, zult u merken dat elk veld is gevuld met de gegevens van een specifieke persoon.

Lees meer: Hoe in Excel automatisch een e-mail te versturen wanneer aan een voorwaarde is voldaan

Vergelijkbare lezingen

• Hoe een bewerkbaar Excel-spreadsheet per e-mail verzenden (3 snelle methoden)
• [Opgelost]: Werkmap delen wordt niet getoond in Excel (met eenvoudige stappen)
• Automatisch een herinneringse-mail versturen vanuit een Excel-werkblad met VBA
• Hoe te zien wie er in een gedeeld Excel-bestand staat (met snelle stappen)
• Werkmap delen in Excel inschakelen

2. Een VBA-code uitvoeren om e-mails te verzenden vanuit een selectie van een bereik

Met de zegeningen van VBA kun je een programma maken om e-mails te versturen vanuit een Excel lijst met een voorkeur voor het bereik. Volg de onderstaande stappen om de taak uit te voeren.

⇒ Stap 1: Een module maken

• Om de VBA-macro Druk op Alt + F11 .
• Klik op de Plaats tab.
• Selecteer de Module optie om de Module .

⇒ Stap 2: VBA-codes plakken

• In de nieuwe Module plak het volgende VBA-code .

 #If VBA7 And Win64 Then 'Ptr is used to change for operating 32 bit to 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 #End If Sub SendExcelListEMail() 'Declareer de variabelen DimxMailAdd als String Dim xRegCode als String Dim xBody als String Dim xURLink als String Dim xRngCell als Range Dim xIntRg als Range Dim xSelectTxt als String Dim k als Integer Dim p als Double On Error Resume Next 'Selecteer bereik selecteer adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Maak een Input box voor de bereik selectie Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , 8) 'Pas If voorwaarde toe om kolomnummers voor de operatie te specificeren Als xIntRg Niets is dan Exit Sub Als xIntRg.Columns.Count 3 Dan 'Toon het resultaat in een msg box voor het niet voldoen aan de voorwaarde MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Pas For-lus toe om de operatie in elke rij afzonderlijk uit te voeren Voor k = 1 Tot xIntRg.Rows.Count' Verzamel het e-mailadres en zet het in de variabele xMailAdd = xIntRg.Cells(k, 2) ' Geef een onderwerp voor de e-mail xRegCode = "ExcelWIKI Registration No." ' Typ de body van de e-mail xBody = "" ' Voeg namen in met de variabele xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Hier is uw ExcelWIKI Registration No.Registratienummer met de variabele xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "We zijn erg blij dat u onze site bezoekt, blijf ons steunen." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Spaties definiëren met (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Geef op om carriage returns te vervangen door (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Genereer de URL Link xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Gebruik de Link om te beginnen met e-mailen ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' drie seconden interval voor het verzenden van toetsaanslagen Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Stap 3: Voer het programma uit

• Druk op F5 om het programma uit te voeren.
• Selecteer het bereik in het invoerveld.
• Klik op OK om de e-mails te versturen.

• Als gevolg daarvan verschijnen voorbeelden van verzonden e-mails, zoals in de onderstaande afbeelding.

• Tot slot kunt u de verzonden e-mails controleren op bevestiging.

Lees meer: Hoe e-mail te sturen als aan voorwaarden is voldaan in Excel (3 eenvoudige methoden)

Conclusie

Ik hoop dat dit artikel u een handleiding heeft gegeven over hoe u massamails kunt versturen vanuit een Excel lijst. Al deze procedures moeten worden geleerd en toegepast op uw dataset. Bekijk de oefenwerkmap en stel deze vaardigheden op de proef. We zijn gemotiveerd om tutorials als deze te blijven maken dankzij uw waardevolle steun.

Neem contact met ons op als u vragen hebt. Laat ook gerust opmerkingen achter in de rubriek hieronder.

Wij, de Exceldemy Team, reageren altijd op uw vragen.

Blijf bij ons en blijf leren.