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 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!
|
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.
Note: 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.
| 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:
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:
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:
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?
Beste Office-productiviteitstools
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...
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!
