Hoe stuur ik via Outlook gepersonaliseerde massa-e-mails naar een lijst vanuit Excel?

Ik heb bijvoorbeeld het volgende gegevensbereik in een werkblad dat de kolommen Naam, E-mailadres en Registratiecode bevat, en nu wil ik een bericht met een persoonlijke begroeting en hun eigen registratiecode naar de gescheiden e-mailadressen in kolom A sturen. Om dit probleem op te lossen, kunnen de volgende methoden u helpen.

Stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel met de functie Afdruk samenvoegen

Stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel met VBA-code

Stuur gepersonaliseerde massa-e-mails naar een lijst met verschillende bijlagen met Kutools voor Excel

Stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel met de functie Afdruk samenvoegen

Met de woorden Mail Merge functie, kunt u deze klus snel en gemakkelijk afmaken, doe dit alstublieft met de volgende stap voor stap:

1. Start een nieuw leeg Word-document en klik op Mailings > Selecteer Ontvangers > Gebruik een bestaande lijst, zie screenshot:

2. In de Selecteer Gegevensbron Kies de werkmap die het gegevensbereik bevat dat u wilt gebruiken, en klik op Openen knop, zie screenshot:

3. In de komende Selecteer tabel dialoogvenster, kies het werkblad met het gegevensbereik dat u nodig hebt en klik vervolgens op OK knop, zie screenshot:

4. En het hoofddocument van het e-mailbericht en uw adressenlijst zijn met elkaar verbonden, nu kunt u het tekstbericht bewerken en plaatshouders toevoegen die aangeven waar de unieke informatie in elk bericht zal verschijnen.

(1.) Om hun individuele begroetingsnaam in te voegen, klikt u op Mailings > Voeg Samenvoegveld in > Naam, is de persoonlijke naam in het bericht ingevoegd en wordt de veldnaam omgeven door «».

(2.) Ga door met het typen van uw bericht en voeg het Registratiecode op de plaats waar je het nodig hebt, zie screenshot:

5. Nadat u het bericht heeft opgesteld, kunt u op klikken Voorbeeld van resultaten onder de Mailing om een ​​voorbeeld van e-mailberichten te bekijken en wijzigingen aan te brengen voordat u de samenvoeging daadwerkelijk voltooit.

6. Nadat u er zeker van bent dat er geen probleem is, kunt u de e-mails naar de afzonderlijke ontvangers sturen, klik op Mailings > Voltooien en samenvoegen > Stuur een e-mailbericht, zie screenshot:

7. Toen kwam het eruit Samenvoegen naar e-mail dialoogvenster voert u de volgende bewerkingen uit:

(1.) Van de Naar vervolgkeuzelijst, maak een keuze E-mailadres kolom;

(2.) U kunt het onderwerp in de Onderwerp regel tekstvak;

(3.) Van de Verstuur records sectie, selecteer Alles.

8. En klik vervolgens op OK, worden de e-mails naar afzonderlijke ontvangers gestuurd met hun eigen registratiecode in één keer, na het verzenden van de e-mails kunt u naar uw Outlook gaan om te controleren of de e-mails met succes zijn verzonden.

Stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel met VBA-code

Met uitzondering van de functie Afdruk samenvoegen, kan de volgende VBA-code u ook een plezier doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt gebruiken, zie screenshot:

4. En klik vervolgens op OK knop, worden de e-mails één voor één naar verschillende adressen gestuurd met hun individuele registratiecode. Na het verzenden van de e-mails kunt u naar uw Outlook gaan om te controleren of de e-mails met succes zijn verzonden.

Opmerking:: In de bovenstaande code kunt u het onderwerp of de hoofdtekst naar wens wijzigen.

Stuur gepersonaliseerde massa-e-mails naar een lijst met verschillende bijlagen met Kutools voor Excel

Als je Kutools for Excel, Met Stuur emails functie, kunt u snel gepersonaliseerde e-mails naar meerdere ontvangers sturen met verschillende bijlagen als u nodig hebt.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Koetools Plus > Stuur emails, zie screenshot:

2. In de Stuur Emials dialoogvenster, selecteer het gegevensbereik dat u wilt gebruiken en specificeer vervolgens de ontvangersadressen, bijlagen en onderwerp zoals u nodig hebt, zie screenshot:

3. Voer in het invoervak ​​de namen van de individuele begroeting in, maak een keuze Naam uit de vervolgkeuzelijst en klik vervolgens op Plaats een tijdelijke aanduiding zie screenshot om de namen in het bericht in te voegen:

4. Typ vervolgens uw berichttekst in het vak zoals u nodig hebt, zie screenshot:

5. Nadat u de hoofdtekst van de e-mail hebt voltooid, kiest u de verzendmodus zoals u wilt, u kunt verzenden via Outlook of uw opgegeven server, zie screesnhot:

Opmerking:: Als u een andere server wilt gebruiken, klikt u op Uitgaande serverinstellingen Zie screesnhot om de verzendmodus op uw eigen modus in te stellen:

6. Klik ten slotte op Verzenden knop om de e-mails te verzenden, na voltooiing zal een promptvenster verschijnen om u de verzendstatus te herinneren. zie screesnhot:

Klik op Download en probeer Kutools nu gratis uit voor Excel!

Demo: stuur gepersonaliseerde massa-e-mails naar een lijst vanuit Excel via Outlook

Gerelateerd artikel:

Hoe stuur ik e-mail naar meerdere ontvangers in een lijst vanuit Excel via Outlook?

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...