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 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.

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.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...