Hoe verzendt u gepersonaliseerde bulkmails vanuit Excel naar een lijst via Outlook?
Bijvoorbeeld: ik heb het volgende gegevensbereik in een werkblad met kolommen voor Naam, e-mailadres en registratiecode, en ik wil nu een bericht verzenden met een gepersonaliseerde aanhef en de unieke registratiecode van elke ontvanger naar het bijbehorende e-mailadres in kolom A. De volgende methoden helpen u dit probleem op te lossen.
Verzend gepersonaliseerde bulkmails naar een lijst vanuit Excel met de functie Mail samenvoegen
Verzend gepersonaliseerde bulkmails naar een lijst vanuit Excel met VBA-code
Verzend gepersonaliseerde bulkmails naar een lijst met verschillende bijlagen met behulp van Kutools voor Excel
Verzend gepersonaliseerde bulkmails naar een lijst vanuit Excel met de functie Mail samenvoegen
Met de Mail samenvoegen-functie van Word voert u deze taak snel en eenvoudig uit. Volg hiervoor de volgende stappen:
1.Start een nieuw leeg Word-document en klik vervolgens op Verzendingen>Selecteer Ontvanger>Bestaande lijst gebruiken, zie schermafbeelding:
2. In het venster Gegevens selecteren-bron kiest u de werkmap met het gegevensbereik dat u wilt gebruiken en klikt u op de knop Openen. Zie schermafbeelding:
3. In het venster Tabel selecteren kiest u het werkblad met het gegevensbereik dat u nodig hebt en klikt u op de knop OK, zie schermafbeelding:
4. Het e-mailbericht Hoofddocument en uw adreslijst zijn nu met elkaar verbonden. U kunt de tekst nu bewerken en tijdelijke aanduidingen (placeholders) toevoegen om aan te geven waar de unieke informatie in elk bericht moet verschijnen.
(1.) Om de individuele aanhef in te voegen, klikt u op Verzendingen > Samenvoegveld invoegen > Naam. De gepersonaliseerde naam is nu in het bericht ingevoegd en de voorwaardenaam wordt weergegeven tussen « ».
(2.) Typ verder uw bericht en voeg de Registratiecodein op de gewenste plek, zie schermafbeelding:
5. Nadat u het bericht hebt opgesteld, kunt u onder het tabblad Verzendingen op Voorbeeldresultaat klikken om een voorbeeld van de e-mails te bekijken en eventuele wijzigingen aan te brengen voordat u de samenvoeging daadwerkelijk afrondt.
6. Nadat u hebt gecontroleerd dat er geen problemen zijn, kunt u de e-mails naar de afzonderlijke ontvangers verzenden. Klik hiervoor op Verzendingen > Voltooien & samenvoegen > E-mailbericht verzenden, zie schermafbeelding:
7. Vervolgens voert u in het venster Samenvoegen naar e-mail de volgende handelingen uit:
(1.) Kies in de keuzelijst Aande optie E-mailadres;
(2.) U kunt het onderwerp typen in het tekstvak Onderwerp;
(3.) Selecteer in de sectie Records verzenden de optie Alles.
8. Klik daarna op OK. De e-mails worden dan direct verzonden naar de afzonderlijke ontvangers, elk met hun eigen registratiecode. Na het verzenden kunt u in Outlook controleren of de e-mails succesvol zijn verzonden.
Verzend gepersonaliseerde e-mails naar meerdere ontvangers met verschillende bijlagen: Met de Kutools voor Excel's E-mails verzenden-functie stuurt u in een handomdraai gepersonaliseerde e-mails met verschillende bijlagen naar meerdere ontvangers vanuit Excel via Outlook — precies zoals u dat nodig heeft. U kunt de berichten tegelijkertijd ook in CC of BCC zetten naar een specifieke persoon.Download en gratis proefversie Kutools voor Excel nu!
|
Verzend gepersonaliseerde bulkmails naar een lijst vanuit Excel met VBA-code
Naast de functie Mail samenvoegen kunt u ook gebruikmaken van de volgende VBA-code. Volg hiervoor deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Verzend gepersonaliseerde bulkmails 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 daarna op de toets F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt gebruiken, zie schermafbeelding:
4. Klik daarna op de knop OK. De e-mails worden dan één voor één verzonden naar de afzonderlijke adressen, elk met hun eigen registratiecode. Na verzending kunt u in Outlook controleren of de e-mails succesvol zijn verstuurd.
Opmerking: In de bovenstaande code kunt u het onderwerp of de berichttekst naar wens aanpassen.
Verzend gepersonaliseerde bulkmails naar een lijst met verschillende bijlagen met behulp van Kutools voor Excel
Als u beschikt over Kutools voor Excel, kunt u met de functie E-mails verzenden snel gepersonaliseerde e-mails met verschillende bijlagen naar meerdere ontvangers sturen—precies zoals u dat nodig heeft.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Klik op KUTOOLS PLUS > E-mails verzenden, zie de schermafbeelding:
2. In het dialoogvenster E-mails verzenden selecteert u het gewenste gegevensbereik en vult u de ontvangeradressen, bijlagen en het onderwerp in zoals gewenst. Zie schermafbeelding:
3. Voeg in het tekstvak de individuele aanhefnamen in door Naam te selecteren in de keuzelijst en vervolgens op Plaats houder te klikken om de namen in het bericht in te voegen. Zie schermafbeelding:
4. Typ daarna uw bericht in het vak zoals gewenst, zie de schermafbeelding:
5. Nadat u de e-mailtekst hebt voltooid, kiest u de gewenste verzendmodus: via Outlook of via uw eigen opgegeven server. Zie de schermafbeelding:
Opmerking: Als u een andere server wilt gebruiken, klikt u op SMTP-instellingenom de verzendmodus in te stellen op uw eigen server, zie schermafbeelding:
6. Klik ten slotte op de knop Verzenden om de e-mails te verzenden. Na voltooiing verschijnt een meldingsvenster met de verzendstatus, zie schermafbeelding:
Klik hier om Kutools voor Excel nu gratis te downloaden en uit te proberen!
Demo: Verzend gepersonaliseerde bulkmails naar een lijst vanuit Excel via Outlook
Gerelateerd artikel:
Hoe verzendt u e-mails naar meerdere ontvangers uit een lijst in Excel via Outlook?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins