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 personaliserede masse-e-mails til en liste med forskellige vedhæftede filer ved hjælp af Kutools til 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 til 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 til 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 personaliserede masse-e-mails til en liste med forskellige vedhæftede filer ved hjælp af Kutools til Excel
Hvis du har Kutools til 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 til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til 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 til 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?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- 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!






























