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.

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

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:

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:

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:

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

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

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:

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.

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

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.

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.

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:

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:

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

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:

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:

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:

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

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

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.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...