Hoe persoonlijke bulk-e-mails naar een lijst vanuit Excel via Outlook versturen?

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

Persoonlijke bulk-e-mails naar een lijst vanuit Excel versturen met de functie Samenvoegen

Persoonlijke bulk-e-mails naar een lijst vanuit Excel versturen met VBA-code

Persoonlijke bulk-e-mails naar een lijst met verschillende bijlagen versturen met behulp van Kutools voor Excel

Persoonlijke bulk-e-mails naar een lijst vanuit Excel versturen met de functie Samenvoegen

Met de functie Samenvoegen van Word kunt u deze taak snel en gemakkelijk uitvoeren, volg de volgende stappen stap voor stap:

1. Open een nieuw leeg Word-document en klik vervolgens op E-mails > Ontvangers selecteren > Bestaande lijst gebruiken, zie screenshot:

2. Selecteer in het venster Gegevensbron selecteren het werkboek dat het gegevensbereik bevat dat u wilt gebruiken en klik op de knop Openen, zie screenshot:

3. In het komende dialoogvenster Tabel selecteren kiest u het werkblad met het benodigde gegevensbereik en klikt u op de knop OK, zie screenshot:

4. De hoofdtekst van het e-mailbericht en uw adreslijst zijn nu met elkaar verbonden. U kunt nu de tekst bewerken en tijdelijke aanduidingen toevoegen die aangeven waar de unieke informatie in elk bericht zal verschijnen.

(1.) Om hun individuele begroetingsnaam in te voegen, klikt u op E-mails > Samenvoegveld invoegen > Naam. De gepersonaliseerde naam is ingevoegd in het bericht en de veldnaam wordt omgeven door « ».

(2.) Ga verder met het typen van uw bericht en voeg de Registratiecode in op de plaats waar u deze nodig heeft, zie screenshot:

5. Nadat u het bericht hebt samengesteld, kunt u op Voorbeeldresultaten klikken onder het tabblad E-mails om de 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 problemen zijn, kunt u de e-mails naar de afzonderlijke ontvangers versturen. Klik op E-mails > Voltooien& Samenvoegen > E-mailbericht verzenden, zie screenshot:

7. Vervolgens verschijnt het dialoogvenster Samenvoegen naar e-mail. Voer de volgende handelingen uit:

(1.) Kies in de vervolgkeuzelijst Aan de kolom E-mail_Adres;

(2.) U kunt het onderwerp invoeren in het tekstvak Onderwerpregel;

(3.) Selecteer in de sectie Records verzenden de optie Alles.

8. Klik vervolgens op OK. De e-mails worden onmiddellijk naar de afzonderlijke ontvangers gestuurd met hun eigen registratiecode. Nadat de e-mails zijn verzonden, kunt u naar uw Outlook gaan om te controleren of de e-mails succesvol zijn verzonden.

Persoonlijke bulk-e-mails naar een lijst vanuit Excel versturen met VBA-code

Behalve de functie Samenvoegen kan de volgende VBA-code u ook helpen, doe het als volgt:

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Persoonlijke bulk-e-mails naar een lijst vanuit Excel versturen:

#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 de toets F5 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. Klik vervolgens op de knop OK. De e-mails worden één voor één naar de afzonderlijke adressen gestuurd met hun individuele registratiecode. Nadat de e-mails zijn verzonden, kunt u naar uw Outlook gaan om te controleren of de e-mails succesvol zijn verzonden.

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

Persoonlijke bulk-e-mails naar een lijst met verschillende bijlagen versturen met behulp van Kutools voor Excel

Als u Kutools voor Excel heeft, kunt u met de functie E-mails verzenden snel gepersonaliseerde e-mails naar meerdere ontvangers met verschillende bijlagen versturen zoals u nodig hebt.

Nadat u Kutools voor Excel hebt geïnstalleerd, doet u het volgende:

1. Klik op Kutools Plus > E-mails verzenden, zie screenshot:

2. Selecteer in het dialoogvenster E-mails verzenden het gegevensbereik dat u wilt gebruiken en specificeer vervolgens de ontvangeradressen, bijlagen en onderwerp naar behoefte, zie screenshot:

3. Voeg in het bewerkingsvak de individuele begroetingsnamen in. Kies Naam uit de vervolgkeuzelijst en klik vervolgens op Plaats houder invoegen om de namen in het bericht in te voegen, zie screenshot:

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

5. Nadat u de e-mailtekst hebt voltooid, kiest u de verzendmodus zoals u wilt. U kunt verzenden via Outlook of uw gespecificeerde server, zie schermafbeelding:

Opmerking:  Als u een andere server wilt gebruiken, klikt u op SMTP-instellingen om de verzendmodus naar uw eigen instellingen te wijzigen, zie schermafbeelding:

6. Klik ten slotte op de knop Verzenden om de e-mails te versturen. Nadat het proces is voltooid, verschijnt een promptvenster om u te informeren over de verzendstatus. Zie schermafbeelding:

Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!

Demo: Persoonlijke bulk-e-mails naar een lijst vanuit Excel via Outlook versturen

Gerelateerd artikel:

Hoe e-mails naar meerdere ontvangers in een lijst vanuit Excel via Outlook versturen?