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 > Namn har 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 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! |
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.
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:
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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!