Hogyan küldhet személyre szabott tömeges e-maileket egy listára az Excelből az Outlook segítségével?
Például a következő adattartomány van egy munkalapon, amely Név, E-mail cím, Regisztrációs kód oszlopokat tartalmaz, és most szeretnék egy személyre szabott üdvözletet és saját regisztrációs kódot tartalmazó üzenetet küldeni az A oszlop elválasztott e-mail címeinek. A probléma megoldásához a következő módszerek segíthetnek.
Személyre szabott tömeges e-maileket küldhet egy listára az Excelből a Mail Merge funkcióval
Személyre szabott tömeges e-maileket küldhet az Excel listájába, VBA kóddal
Küldjön személyre szabott tömeges e-maileket egy listára különböző mellékletekkel a Kutools for Excel használatával
Személyre szabott tömeges e-maileket küldhet egy listára az Excelből a Mail Merge funkcióval
Az Igével Körlevél funkcióval gyorsan és egyszerűen elvégezheti ezt a munkát, kérjük, tegye a következőket lépésről lépésre:
1. Indítson el egy új üres Word-dokumentumot, majd kattintson a gombra Küldemények > Válassza a Címzettek lehetőséget > Használjon meglévő listát, lásd a képernyőképet:
2. Az Válassza az Adatforrás lehetőséget ablakban válassza ki a használni kívánt adattartományt tartalmazó munkafüzetet, majd kattintson a gombra Nyisd ki gomb, lásd a képernyőképet:
3. A jövőben Táblázat kiválasztása párbeszédpanelen válassza ki a szükséges adattartományt tartalmazó munkalapot, majd kattintson a gombra OK gomb, lásd a képernyőképet:
4. És az e-mail fő dokumentumát és a címlistáját összekapcsolta, most szerkesztheti a szöveges üzenetet, és helyőrzőket adhat hozzá, amelyek jelzik, hogy az egyedi információk hol jelennek meg az egyes üzenetekben.
(1.) Az üdvözlő nevük beillesztéséhez kattintson a gombra Küldemények > Egyesítse a mezőt > Név, a személyre szabott név beillesztésre került az üzenetbe, és a mező nevét körülveszi «».
(2.) Írja be az üzenetet, és helyezze be a Regisztrációs kód ahova szüksége van, lásd a képernyőképet:
5. Az üzenet elkészítése után rákattinthat Eredmények előnézete alatt a Mailing lapon megtekintheti az e-mail üzeneteket, és módosításokat végezhet az egyesítés tényleges befejezése előtt.
6. Miután megbizonyosodott arról, hogy nincs probléma, elküldheti az e-maileket a külön címzetteknek, kattintson a gombra Küldemények > Befejezés és egyesítés > E-mail küldése, lásd a képernyőképet:
7. Aztán beugrott Egyesítés e-mailbe párbeszédpanelen hajtsa végre a következő műveleteket:
(1.) A Nak nek legördülő listából válassza ki Email cím oszlop;
(2.) A témát beírhatja a Tárgy sor szövegdoboz;
(3.) A Küldjön rekordokat válasszon Minden termék.
8. Kattintson a gombra OK, az e-maileket külön címzetteknek küldik el egyszerre a saját regisztrációs kódjukkal, az e-mailek elküldése után az Outlookba lépve ellenőrizheti, hogy az e-maileket sikeresen elküldték-e.
Személyre szabott e-maileket küldhet több címzettnek, különböző mellékletekkel:
A Kutools az Excel számára's Emaileket küld funkció segítségével gyorsan küldhet személyre szabott e-maileket több címzettnek, különféle mellékletekkel az Excelből az Outlook segítségével, amire szüksége van. Ezzel egyidejűleg CC-t vagy Titkos másolatot is küldhet egy adott személynek. Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most! |
Személyre szabott tömeges e-maileket küldhet az Excel listájába, VBA kóddal
A Levél egyesítés funkció kivételével a következő VBA kód is szívességet tehet Önnek, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA-kód: Személyre szabott tömeges e-maileket küldhet az Excel listájára:
#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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely emlékezteti Önt a használni kívánt adattartomány kiválasztására, lásd a képernyőképet:
4. Kattintson a gombra OK gombra kattintva az e-maileket külön-külön címekre küldjük egyedi regisztrációs kódjukkal, az e-mailek elküldése után az Outlookba lépve ellenőrizheti, hogy az e-maileket sikeresen elküldték-e.
Megjegyzések: A fenti kódban megváltoztathatja a tárgyat vagy a törzsüzenetet igényeinek megfelelően.
Küldjön személyre szabott tömeges e-maileket egy listára különböző mellékletekkel a Kutools for Excel használatával
Ha van Kutools az Excel számára, Annak Emaileket küld funkció segítségével gyorsan személyre szabott e-maileket küldhet több címzettnek, különböző mellékletekkel, amire szüksége van.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Kattints Kutools Plus > Emaileket küld, lásd a képernyőképet:
2. Az Küldjön Emials-t párbeszédpanelen válassza ki a használni kívánt adattartományt, majd szükség szerint adja meg a címzett címét, mellékletét és tárgyát, lásd a képernyőképet:
3. A szerkesztő mezőbe illessze be az egyes üdvözlő neveket, válassza ki Név a legördülő listából, majd kattintson a gombra Helyőrző beillesztése a nevek beszúrásához lásd a képernyőképet:
4. Ezután írja be az üzenet törzsét a mezőbe, ha szükséges, lásd a képernyőképet:
5. Az e-mail törzsének befejezése után válassza ki a kívánt üzemmódot, amelyet az Outlook vagy a megadott szerver használatával küldhet, lásd: screesnhot:
Megjegyzések: Ha másik szervert szeretne használni, kattintson a gombra Kimenő szerver beállításai a küldés módjának saját beállításához lásd a képernyőképet:
6. Végül kattintson Küldés gomb az e-mailek elküldéséhez, a befejezés után megjelenik egy felszólító mező, amely emlékezteti a küldés állapotára. lásd a képernyőképet:
Kattintson a Letöltés és ingyenes próbaverzióra a Kutools for Excel számára most!
Bemutató: Személyre szabott tömeges e-maileket küldhet egy listára az Excel programból az Outlook segítségével
Kapcsolódó cikk:
Hogyan küldhetünk e-mailt egy listában szereplő több címzettnek az Excelből az Outlook segítségével?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!