Note: The other languages of the website are Google-translated. Back to English

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.

doc sende personlige e-mails 1

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


pil blå højre boble 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:

doc sende personlige e-mails 2

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:

doc sende personlige e-mails 3

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:

doc sende personlige e-mails 4

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

doc sende personlige e-mails 5

(2.) Fortsæt med at skrive din besked og indsæt Registreringskode på det sted, hvor du har brug for, se skærmbillede:

doc sende personlige e-mails 6

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:

doc sende personlige e-mails 7

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.

doc sende personlige e-mails 8

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!

doc sende personaliserede e-mails 18 1


pil blå højre boble 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:

doc sende personlige e-mails 9

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.


pil blå højre boble 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:

doc sende personlige e-mails 9

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:

doc sende personlige e-mails 9

4. Indtast derefter din beskedtekst i feltet, som du har brug for, se skærmbillede:

doc sende personlige e-mails 9

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:

doc sende personlige e-mails 9

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:

doc sende personlige e-mails 9

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:

doc sende personlige e-mails 9

Klik på Download og gratis prøveversion Kutools til Excel nu!


Demo: Send personaliserede masse-e-mails til en liste fra Excel via Outlook

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (47)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kode fungerede meget godt, meget tak for det. Men jeg har bare et lille problem, jeg forsøger at ændre koden for at forudbestemme de celler, jeg vil tage e-mails og sende den, fordi den måde, jeg oprettede min excel-fil på. Jeg vil gerne skifte udvælgelsesboksen til en bestemt række af celler. Eksempel: fix alle mine data vil være mellem A2:C6, så når jeg kører makroen, behøver jeg ikke at vælge den igen. Mange tak for alt, hvad du forklarede ovenfor
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du ændre koden for at vedhæfte flere filer i e-mail? Det ville være en stor hjælp. Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
er det muligt at tilføje kode, så den også trækker min normale email signatur ind? også, når jeg vælger mit område til e-mail, har jeg filtreret mit excel-regneark, men når jeg kører makroen, trækker den stadig de skjulte rækker ind.
Denne kommentar blev minimeret af moderatoren på webstedet
Det vil jeg også gerne vide om!
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan man tilføjer cc i ovenstående kode
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk måde

Jeg skal bare spørge dig om muligheden for at skifte emne hver gang baseret på e-mail??
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Aziz,
Når du anvender Kutools til Excel, kan det hjælpe dig med at indsætte emnerne baseret på celleværdierne, du skal bare vælge emnekolonneoverskriften i dialogboksen som følgende skærmbillede vist:

Prøv det, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Skyyang,

Jeg har prøvet og prøvet at få min e-mail-signatur til at komme op, men jeg kan bare ikke få det rigtigt! Har du en smule kode, jeg kan tilføje for at få dette til at ske?
Denne kommentar blev minimeret af moderatoren på webstedet
Madness post dette er, denne er falsk og tro ikke på dette indhold
Denne kommentar blev minimeret af moderatoren på webstedet
Hej ven,
dette er fantastisk, har brug for en hjælp, jeg har brug for at vedhæfte forskellige pdf-filer til forskellige e-mails hver gang.
kan nogen hjælpe mig venligst?
Denne kommentar blev minimeret af moderatoren på webstedet
hej Skyyang,
Jeg skal vedhæfte forskellige pdf-filer for hver mail. kan du hjælpe venligst??
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Arvind,
Kutools kan hjælpe dig med at tilføje flere forskellige vedhæftede filer, når du sender e-mails.
Først skal du indsætte stien til vedhæftede filer i cellerne, og derefter anvende Kutools, se venligst følgende skærmbillede:
Håber det kan hjælpe dig, tak!
Denne kommentar blev minimeret af moderatoren på webstedet
hej Skyyang,
Jeg brugte din nedenstående kode til at sende mail og fungerer perfekt, er der noget du kan hjælpe mig med at ændre i koden til at sende pdf-vedhæftede filer med.
Jeg skal sende mere end 100 mails, så det er svært at vedhæfte en fil hver gang. fungerer Kutools som den givne sti og sender mail automatisk?
Denne kommentar blev minimeret af moderatoren på webstedet
hey,
kan du hjælpe mig med attachment.add-funktionen? med din ovenstående VBA-kode skal jeg sende en vedhæftet fil.
jeg kan ikke bruge Kutools :(
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan cc folk i dette?
Denne kommentar blev minimeret af moderatoren på webstedet
hvad hvis jeg har data for en masse kunder og nogle kunder har mere end 1 data... og jeg ønsker ikke at sende separate mails til kunderne, men måske sende det i et tabelformat i mailen. Hvordan sender jeg kun 1 e-mail til en kunde.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Steven, fandt du en måde at få dette gjort på. Vi kan hjælpe dig med en simpel online webportal
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, har du løst det?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne vide, hvordan man laver det. Kan du fortælle mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak!!

Men jeg har forsøgt at lave testen og sender ikke noget til e-mailen. Heller ingen fejlmeddelelse.. Må jeg vide, hvad der skete?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har en liste over e-mailadresser i excel, som jeg skal sende e-mails til Emnet og brødteksten er i celler udover e-mailadressen, og jeg har scriptet nedenfor, men jeg skal sende 100 e-mails pr. 1 time, hvordan kan jeg behage din støtte

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Indstil Mail_Object = CreateObject("Outlook.Application")
For i = 2 Til lr
Med Mail_Object.CreateItem(o)
.Subject = Range("B" & i).Værdi
.To = Range("A" & i).Værdi

.Body = Range("C" & i).Værdi
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Sende

'.display 'deaktiver visning og aktiver send for at sende automatisk
Slut med
Næste jeg
MsgBox "E-mail blev sendt", 64
Application.DisplayAlerts = False
Indstil Mail_Object = Intet
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej hiba,
Vores Kutools til Excel's Send e-mails kan hjælpe dig med at løse dit problem. Indstil venligst betingelserne som følgende skærmbillede:
Med denne funktion kan du også anvende CC, BCC-funktionen, og du kan også indsætte flere vedhæftede filer.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej admin


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di fil pdf nya tdk terkirim .. terimakasih
Denne kommentar blev minimeret af moderatoren på webstedet
Af en eller anden grund har denne kode den, hvor den sender hver anden e-mail på listen. Er der en grund til, at den ikke sender hver enkelt? Jeg kopierede direkte koden, der var ovenfor, og ændrede ikke noget
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-kode fungerer godt, tak, men hvordan tilføjer man Cc? Jeg prøvede og fejlede...
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-kode fungerer godt, tak, men hvordan tilføjer man Cc? Jeg prøvede med:


Dim xCc Som streng
derefter
xCc = xRg.Cells(i, 9) (adressen er i 9. kolonne)


og mislykkedes...
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Jean,

For at løse dit problem skal du anvende nedenstående kode: (Bemærk: Du skal tilføje CC-kolonnen i kolonne C)

#Hvis VBA7 Og Win64 Så
Privat Erklærer PtrSafe Funktion 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
#Andet
Privat Erklæring Funktion 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
#Afslut Hvis
Sub SendE-mail()
Dim xE-mail som streng
Dim xSubj As String
Dim xMsg As String
Dim xURL som streng
Dim i som heltal
Dim k As Dobbelt
Dim xCell As Range
Dim xRg As Range
Dim xTxt Som streng
Dim xCC Som streng
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Indstil xRg = Application.InputBox("Vælg venligst dataområdet:", "Kutools for Excel", xTxt, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Hvis xRg.Columns.Count <> 4 Så
MsgBox " Regional formatfejl, tjek venligst", , "Kutools til Excel"
Exit Sub
End If
For i = 1 Til xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Din registreringskode"
xMsg = ""
xMsg = xMsg & "Kære " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " Dette er din registreringskode "
xMsg = xMsg & xRg.Cells(i, 4).Tekst & "." & vbCrLf & vbCrLf
xMsg = xMsg & " prøv det, og glad for at få din feedback! " & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Nu + TimeValue("0:00:02"))
Application.Send Keys "%s"
Næste
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har brugt den førnævnte VBA-kode under "Send personlige massemails til en liste fra Excel med VBA-kode". Jeg ville gerne vide, om jeg kunne sende en e-mail til bestemte personer, der har brug for underretning baseret på excel, og fortæller mig, at jeg skal sende påmindelser til dem, der har kommende kontrakter, der udløber? Jeg kan ikke få excel til at sende e-mails, og jeg ved, at det er på grund af selve koden. Kan nogen venligst hjælpe mig med at løse dette problem?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne sende e-mails med en unik emnelinje, hvordan kan jeg gøre det med denne VBA?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle!

Jeg har en liste over e-mails i ét ark og e-mail-kladden i et andet.
Jeg har brug for en kode for automatisk at sende e-mail-kladden fra ark 2 til hver 5 medlemmer på listen i ark 1.
Når de første 5 er sendt, skal koden mærke dem som "Sendt" i en ny dedikeret kolonne og derefter vente i 60 sekunder, før du sender det næste sæt af 5 e-mails.
Koden bør køre indtil slutningen af ​​hele listen.

Koden kan bruge outlook til at sende mails fra standardprofilen i outlook.

Please hjælp.

Sig til, hvis du har brug for flere afklaringer
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL