Hvordan sendes personaliserede masse-e-mails til en liste fra Excel via Outlook?
For eksempel har jeg følgende datainterval i et regneark, der indeholder kolonner Navn, E-mail-adresse, Registreringskode, og nu vil jeg sende en besked med en personlig hilsen og deres egen registreringskode til de adskilte e-mail-adresser i kolonne A. For at løse dette problem kan følgende metoder hjælpe dig.
Send personlige massemails til en liste fra Excel med Mail Merge-funktionen
Send personaliserede masse-e-mails til en liste fra Excel med VBA-kode
Send personlige masse-e-mails til en liste med forskellige vedhæftede filer ved at bruge Kutools for Excel
Send personlige massemails til en liste fra Excel med Mail Merge-funktionen
Med ordets Brevfletning funktion, kan du afslutte dette job hurtigt og nemt, gør venligst følgende trin for trin:
1. Start et nyt tomt Word-dokument, og klik derefter på Forsendelser > Vælg modtagere > Brug en eksisterende liste, se skærmbillede:
2. I Vælg datakilde vindue, vælg projektmappen, der inkluderer det dataområde, du vil bruge, og klik på Åbne knap, se skærmbillede:
3. I den kommende tid Vælg tabel i dialogboksen, skal du vælge regnearket med det dataområde, du har brug for, og klik derefter på OK knap, se skærmbillede:
4. Og hoveddokumentet til din e-mail og din adresseliste er blevet forbundet sammen, nu kan du redigere tekstbeskeden og tilføje pladsholdere, der angiver, hvor de unikke oplysninger vises i hver besked.
(1.) Klik på for at indsætte deres individuelle hilsenavn Forsendelser > Indsæt flettefelt > Navn, er det personlige navn indsat i meddelelsen, og feltnavnet er omgivet af «».
(2.) Fortsæt med at skrive din besked og indsæt Registreringskode på det sted, hvor du har brug for, se skærmbillede:
5. Når du har skrevet meddelelsen, kan du klikke på Vis resultater under Mailing fanen for at få vist e-mail-beskeder og foretage ændringer, før du rent faktisk gennemfører fletningen.
6. Når du er sikker på, at der ikke er noget problem, kan du sende e-mails til de separate modtagere. Klik venligst Forsendelser > Afslut & flet > Send e-mail-besked, se skærmbillede:
7. Så i poppet ud Flet til e-mail i dialogboksen, skal du udføre følgende handlinger:
(1.) Fra Til rulleliste, vælg venligst Email adresse kolonne;
(2.) Du kan skrive emnet i Emne linje tekstboks;
(3.) Fra Send poster sektion, vælg Alle.
8. Og klik derefter på OK, e-mails sendes til separate modtagere med deres egen registreringskode på én gang, efter du har sendt e-mails, kan du gå til din Outlook for at sikre dig, at e-mails er sendt med succes.
Send personlige e-mails til flere modtagere med forskellige vedhæftede filer:
Med Kutools for Excel's Send emails funktion, kan du hurtigt sende personaliserede e-mails til flere modtagere med forskellige vedhæftede filer fra Excel via Outlook, som du har brug for. På samme tid kan du også CC eller Bcc beskederne til en bestemt person. Download og gratis prøveversion Kutools for Excel Nu! |
Send personaliserede masse-e-mails til en liste fra Excel med VBA-kode
Med undtagelse af funktionen Mail Merge kan følgende VBA-kode også gøre dig en tjeneste, gør venligst som denne:
1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Send personaliserede masse-e-mails til en liste fra 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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil bruge, se skærmbillede:
4. Og klik derefter på OK knappen, vil e-mails blive sendt til separate adresser med deres individuelle registreringskode en efter en, efter at e-mails er sendt, kan du gå til din Outlook for at sikre dig, at e-mails er sendt med succes.
Bemærk: I ovenstående kode kan du ændre emnet eller brødteksten til dit behov.
Send personlige masse-e-mails til en liste med forskellige vedhæftede filer ved at bruge Kutools for Excel
Hvis du har Kutools for Excel, Med Send emails funktion, kan du hurtigt sende personaliserede e-mails til flere modtagere med forskellige vedhæftede filer, som du har brug for.
Kutools for Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools for Excelskal du gøre som dette:
1. Klik Kutools Plus > Send emails, se skærmbillede:
2. I Send Emials i dialogboksen, vælg det dataområde, du vil bruge, og angiv derefter modtageradresserne, vedhæftede filer og emnet efter behov, se skærmbillede:
3. Indsæt de individuelle hilsenavne i redigeringsfeltet, vælg venligst Navn fra rullelisten, og klik derefter på Indsæt pladsholder for at indsætte navnene i meddelelsen, se skærmbillede:
4. Indtast derefter din beskedtekst i feltet, som du har brug for, se skærmbillede:
5. Når du er færdig med e-mail-kroppen, skal du vælge den sendemodus, som du vil, du kan sende ved hjælp af Outlook eller din specificerede server, se screesnhot:
Bemærk: Hvis du vil bruge en anden server, skal du klikke på Indstillinger for udgående server for at indstille afsendelsestilstanden til din egen, se screesnhot:
6. Endelig skal du klikke på Send knap til at sende e-mails, efter afslutning, vises en hurtigboks, der minder dig om afsendelsesstatus. se screesnhot:
Klik på Download og gratis prøveversion Kutools for Excel Nu!
Demo: Send personaliserede masse-e-mails til en liste fra Excel via Outlook
Relateret artikel:
Hvordan sendes e-mail til flere modtagere på en liste fra Excel via Outlook?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!















