Ga naar hoofdinhoud

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.

doc gepersonaliseerde e-mails verzenden 1

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


pijl blauw rechts bel 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:

doc gepersonaliseerde e-mails verzenden 2

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

doc gepersonaliseerde e-mails verzenden 3

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:

doc gepersonaliseerde e-mails verzenden 4

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 «».

doc gepersonaliseerde e-mails verzenden 5

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

doc gepersonaliseerde e-mails verzenden 6

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:

doc gepersonaliseerde e-mails verzenden 7

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.

doc gepersonaliseerde e-mails verzenden 8

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 e-mails naar meerdere ontvangers met verschillende bijlagen:

met Kutools for Excel's Stuur emails functie kunt u snel gepersonaliseerde e-mails naar meerdere ontvangers sturen met verschillende bijlagen vanuit Excel via Outlook als u dat nodig hebt. Tegelijkertijd kunt u de berichten ook naar een specifieke persoon CC of Bcc sturen.       Download en gratis proef Kutools voor Excel nu!

doc gepersonaliseerde e-mails verzenden 18 1


pijl blauw rechts bel 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:

doc gepersonaliseerde e-mails verzenden 9

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.

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


pijl blauw rechts bel 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.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

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:

doc gepersonaliseerde e-mails verzenden 9

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:

doc gepersonaliseerde e-mails verzenden 9

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

doc gepersonaliseerde e-mails verzenden 9

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:

doc gepersonaliseerde e-mails verzenden 9

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

doc gepersonaliseerde e-mails verzenden 9

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:

doc gepersonaliseerde e-mails verzenden 9

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


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

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerd artikel:

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

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations