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

Hur skickar jag personliga massmeddelanden till en lista från Excel via Outlook?

Till exempel har jag följande dataintervall i ett kalkylblad som innehåller kolumnerna Namn, E-postadress, Registreringskod och nu vill jag skicka ett meddelande med en personlig hälsning och en egen registreringskod till de separata e-postadresserna i kolumn A. För att lösa detta problem kan följande metoder hjälpa dig.

doc skicka personliga e-postmeddelanden 1

Skicka personliga massmeddelanden till en lista från Excel med funktionen Mail Merge

Skicka personliga mass-e-postmeddelanden till en lista från Excel med VBA-kod

Skicka personliga mass-e-postmeddelanden till en lista med olika bilagor med hjälp av Kutools för Excel


pil blå höger bubbla Skicka personliga massmeddelanden till en lista från Excel med funktionen Mail Merge

Med ordet Koppla dokument funktion kan du avsluta det här jobbet snabbt och enkelt, gör följande steg för steg:

1. Starta ett nytt tomt Word-dokument och klicka sedan på Utskick > Välj Mottagare > Använd en befintlig lista, se skärmdump:

doc skicka personliga e-postmeddelanden 2

2. I Välj datakälla i fönstret, välj arbetsboken som innehåller det dataintervall du vill använda och klicka på Öppen knapp, se skärmdump:

doc skicka personliga e-postmeddelanden 3

3. I det kommande Välj tabell dialogrutan, välj kalkylbladet med det dataområde du behöver och klicka sedan på OK knapp, se skärmdump:

doc skicka personliga e-postmeddelanden 4

4. Och huvuddokumentet för e-postmeddelandet och din adresslista har kopplats ihop, nu kan du redigera textmeddelandet och lägga till platshållare som anger var den unika informationen kommer att visas i varje meddelande.

(1.) Klicka på för att infoga deras individuella hälsningsnamn Utskick > Infoga sammanslagningsfält > Namnhar det personliga namnet infogats i meddelandet och fältnamnet omges av «».

doc skicka personliga e-postmeddelanden 5

(2.) Fortsätt att skriva ditt meddelande och sätt in Registreringskod till den plats där du behöver, se skärmdump:

doc skicka personliga e-postmeddelanden 6

5. När du har skrivit meddelandet kan du klicka Förhandsgranska resultat under Utskick fliken för att förhandsgranska e-postmeddelanden och göra ändringar innan du faktiskt slutför sammanfogningen.

6. När du har kontrollerat att det inte finns några problem kan du skicka e-postmeddelandena till de olika mottagarna. Klicka Utskick > Slutför och slå ihop > Skicka e-postmeddelande, se skärmdump:

doc skicka personliga e-postmeddelanden 7

7. Sedan i poppade ut Sammanfoga till e-post dialogrutan, gör följande:

(1.) Från Till rullgardinslista, välj E-postadress kolumn;

(2.) Du kan skriva ämnet i Ämne radtextruta;

(3.) Från Skicka poster avsnitt, välj Alla.

doc skicka personliga e-postmeddelanden 8

8. Och klicka sedan på OKskickas e-postmeddelandena till separata mottagare med sin egen registreringskod på en gång, efter att du har skickat e-postmeddelandena kan du gå till din Outlook för att se till att e-postmeddelandena har skickats framgångsrikt.


Skicka personliga e-postmeddelanden till flera mottagare med olika bilagor:

Med Kutools för Excel's Skicka e-mail funktionen kan du snabbt skicka personliga e-postmeddelanden till flera mottagare med olika bilagor från Excel som du behöver. Samtidigt kan du CC eller Bcc meddelandena till en viss person också.       Ladda ner och prova gratis Kutools för Excel nu!

doc skicka personliga e-postmeddelanden 18 1


pil blå höger bubbla Skicka personliga mass-e-postmeddelanden till en lista från Excel med VBA-kod

Med undantag för funktionen Mail Merge kan följande VBA-kod också göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Skicka personliga mass-e-postmeddelanden till en lista från 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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att påminna dig om att välja det dataområde du vill använda, se skärmdump:

doc skicka personliga e-postmeddelanden 9

4. Och klicka sedan på OK -knappen skickas e-postmeddelandena till separata adresser med deras individuella registreringskod en efter en, efter att du har skickat e-postmeddelandena kan du gå till din Outlook för att se till att e-postmeddelandena har skickats framgångsrikt.

Anmärkningar: I ovanstående kod kan du ändra ämnet eller kroppsmeddelandet efter behov.


pil blå höger bubbla Skicka personliga mass-e-postmeddelanden till en lista med olika bilagor med hjälp av Kutools för Excel

Om du har Kutools för Excel, med dess Skicka e-mail kan du snabbt skicka personliga e-postmeddelanden till flera mottagare med olika bilagor som du behöver.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. 

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Skicka e-mail, se skärmdump:

2. I Skicka Emials i dialogrutan, välj det dataintervall som du vill använda och ange sedan mottagarens adresser, bilagor och ämne efter behov, se skärmdump:

doc skicka personliga e-postmeddelanden 9

3. I redigeringsrutan, sätt in de individuella hälsningsnamnen, välj Namn från listrutan och klicka sedan på Sätt in platshållare för att infoga namnen i meddelandet, se skärmdump:

doc skicka personliga e-postmeddelanden 9

4. Skriv sedan in din meddelandetext i rutan efter behov, se skärmdump:

doc skicka personliga e-postmeddelanden 9

5. När du har avslutat e-postkroppen, välj skicka läge som du vill, du kan skicka med Outlook eller din angivna server, se screesnhot:

doc skicka personliga e-postmeddelanden 9

Anmärkningar: Om du vill använda en annan server, klicka på Inställningar för utgående server för att ställa in sändningsläget till ditt eget, se screesnhot:

doc skicka personliga e-postmeddelanden 9

6. Äntligen klickar du på Skicka -knappen för att skicka e-postmeddelanden, efter att ha slutfört kommer en snabbruta att dyka upp för att påminna dig om sändningsstatus. se screesnhot:

doc skicka personliga e-postmeddelanden 9

Klicka på Ladda ner och testa gratis Kutools för Excel nu!


Demo: Skicka personliga massmeddelanden till en lista från Excel via Outlook

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Hur skickar jag e-post till flera mottagare i en lista från Excel via Outlook?


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (47)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Den här koden fungerade mycket bra, mycket tack vare det. Men jag har bara ett litet problem, jag försöker ändra koden för att i förväg bestämma vilka celler jag vill ta e-postmeddelanden och skicka det på grund av hur jag skapade min excel-fil. Jag skulle vilja byta urvalsrutan för en bestämd uppsättning celler. Exempel: fixa alla mina data kommer att vara mellan A2:C6 så när jag kör makrot behöver jag inte välja det igen. Mycket tack för allt du förklarade ovan
Denna kommentar minimerades av moderatoren på webbplatsen
Kan du ändra koden för att bifoga flera filer i e-post? Det skulle vara till stor hjälp. Tack på förhand.
Denna kommentar minimerades av moderatoren på webbplatsen
går det att lägga till kod så att den också drar in min vanliga mejlsignatur? När jag väljer mitt intervall för e-post filtrerar jag mitt excelark, men när jag kör makrot drar det fortfarande in de dolda raderna också.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag skulle också vilja veta om detta!
Denna kommentar minimerades av moderatoren på webbplatsen
hur man lägger till cc i ovanstående kod
Denna kommentar minimerades av moderatoren på webbplatsen
Bra väg

Jag behöver bara fråga dig om möjligheten att byta ämne varje gång baserat på e-post??
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Aziz,
När du använder Kutools för Excel kan det hjälpa dig att infoga ämnena baserat på cellvärdena, du behöver bara välja ämneskolumnrubriken i dialogrutan som följande skärmdump visas:

Prova det, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Skyyang,

Jag har försökt och försökt få min e-postsignatur att komma upp men det verkar inte som att det blir rätt! Har du lite kod jag kan lägga till för att få detta att hända?
Denna kommentar minimerades av moderatoren på webbplatsen
Madness post detta är, det här är falskt och tro inte på detta innehåll
Denna kommentar minimerades av moderatoren på webbplatsen
Hej vän,
det här är fantastiskt, behöver en hjälp jag behöver bifoga olika pdf-filer till olika e-postmeddelanden varje gång.
kan någon hjälpa mig tack?
Denna kommentar minimerades av moderatoren på webbplatsen
hej Skyyang,
Jag måste bifoga olika pdf-filer för varje mail. kan du hjälpa snälla??
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Arvind,
Kutools kan hjälpa dig att lägga till flera olika bilagor när du skickar e-post.
Först bör du infoga sökvägen för bilagorna i cellerna och sedan tillämpa Kutools, se följande skärmdump:
Hoppas det kan hjälpa dig, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
hej Skyyang,
Jag använde koden nedan för att skicka e-post och fungerar perfekt, finns det något du kan hjälpa mig att ändra i koden för att skicka pdf-bilagor.
Jag behöver skicka mer än 100 mail så det är svårt att bifoga filen varje gång. fungerar Kutools enligt angiven sökväg och skickar e-post automatiskt?
Denna kommentar minimerades av moderatoren på webbplatsen
hej,
kan du hjälpa mig med attachment.add-funktionen? med din ovanstående VBA-kod måste jag skicka en bilaga.
jag kan inte använda Kutools :(
Denna kommentar minimerades av moderatoren på webbplatsen
hur cc folk i detta?
Denna kommentar minimerades av moderatoren på webbplatsen
vad händer om jag har data för många kunder och vissa kunder har mer än 1 data... och jag vill inte skicka separata e-postmeddelanden till kunderna, utan kanske skicka det i tabellformat i e-postmeddelandet. Hur skickar jag bara ett e-postmeddelande till en kund.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Steven, hittade du ett sätt att få det här gjort. Vi kan hjälpa dig med en enkel webbportal online
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, löste du det?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill veta hur man gör det. Kan du berätta för mig?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack!!

Men jag har försökt göra testet och det är inget som skickar ut till e-postmeddelandet. Inte heller något felmeddelande.. Får jag veta vad som hände?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en lista över e-postadresser i excel som jag behöver skicka e-postmeddelanden till Ämnet och brödtexten finns i celler förutom e-postadressen och jag har skriptet nedan men jag måste skicka 100 e-postmeddelanden per timme hur jag kan behaga ditt stöd

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Ställ in Mail_Object = CreateObject("Outlook.Application")
För i = 2 Till lr
Med Mail_Object.CreateItem(o)
.Ämne = Range("B" & i).Värde
.To = Range("A" & i).Värde

.Body = Range("C" & i).Värde
.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)
.Skicka

'.display 'avaktivera visning och aktivera skicka för att skicka automatiskt
Sluta med
Nästa jag
MsgBox "E-post har skickats", 64
Application.DisplayAlerts = False
Ange Mail_Object = Ingenting
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej hiba,
Våra Kutools för Excels Skicka e-postmeddelanden kan hjälpa dig att lösa ditt problem. Vänligen ställ in villkoren som följande skärmdump visas:
Med den här funktionen kan du också använda CC, BCC-funktionen och du kan också infoga flera bilagor.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej admin


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di fil pdf nya tdk terkirim .. terimakasih
Denna kommentar minimerades av moderatoren på webbplatsen
Av någon anledning har den här koden det där den skickar varannan e-post i listan. Finns det en anledning till att den inte skickar var och en? Jag kopierade direkt koden som var ovan och ändrade ingenting
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-kod fungerar bra, tack, men hur lägger man till Cc? Jag försökte och misslyckades...
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-kod fungerar bra, tack, men hur lägger man till Cc? Jag försökte med:


Dim xCc Som String
sedan
xCc = xRg.Cells(i, 9) (adressen finns i den nionde kolumnen)


och misslyckades...
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Jean,

För att lösa ditt problem, använd koden nedan: (Obs! Du bör lägga till CC-kolumn i kolumn C)

#Om VBA7 Och Win64 Då
Privat deklarera 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
#Annan
Private Declare 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
#Sluta om
Sub SkickaE-post()
Dim xEmail As String
Dim xSubj As String
Dim xMsg As String
Dim xURL som sträng
Dim jag som heltal
Dim k As Double
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xCC som sträng
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj dataintervall:", "Kutools for Excel", xTxt, , , , , 8)
Om xRg är ingenting, avsluta Sub
Om xRg.Columns.Count <> 4 Då
MsgBox " Regionalt formatfel, kontrollera", , "Kutools för Excel"
Exit Sub
End If
För i = 1 Till xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Din registreringskod"
xMsg = ""
xMsg = xMsg & "Kära " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " Det här är din registreringskod "
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " snälla prova det, och kul att 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 (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Nästa
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har använt den tidigare nämnda VBA-koden under "Skicka personliga massmeddelanden till en lista från Excel med VBA-kod". Jag ville veta om jag kunde skicka ett e-postmeddelande till vissa personer som behöver meddelas baserat på Excel och berätta för mig att skicka påminnelser till dem som har kommande kontrakt som löper ut? Jag kan inte få excel att skicka ut e-postmeddelanden och jag vet att det beror på själva koden. Kan någon snälla hjälpa mig att lösa detta problem?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill skicka e-postmeddelanden med unik ämnesrad, hur kan jag göra det med denna VBA?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej alla!

Jag har en lista med e-postmeddelanden i ett ark och e-postutkastet i ett annat.
Jag behöver en kod för att automatiskt skicka e-postutkastet från blad 2 till var 5:e medlem i listan som finns på blad 1.
När de första 5 har skickats bör koden tagga dem som "Skickade" i en ny dedikerad kolumn och sedan vänta i 60 sekunder innan nästa uppsättning med 5 e-postmeddelanden skickas.
Koden bör köras till slutet av hela listan.

Koden kan använda outlook för att skicka ut e-postmeddelanden från standardprofilen i outlook.

Snälla hjälp.

Hör av dig ifall du behöver ytterligare förtydliganden
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL