Ugrás a tartalomra

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.

doc személyre szabott e-maileket küld 1

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


nyíl kék jobb buborék 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:

doc személyre szabott e-maileket küld 2

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:

doc személyre szabott e-maileket küld 3

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:

doc személyre szabott e-maileket küld 4

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

doc személyre szabott e-maileket küld 5

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

doc személyre szabott e-maileket küld 6

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:

doc személyre szabott e-maileket küld 7

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.

doc személyre szabott e-maileket küld 8

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!

doc személyre szabott e-maileket küld 18 1


nyíl kék jobb buborék 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:

doc személyre szabott e-maileket küld 9

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.


nyíl kék jobb buborék 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:

doc személyre szabott e-maileket küld 9

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:

doc személyre szabott e-maileket küld 9

4. Ezután írja be az üzenet törzsét a mezőbe, ha szükséges, lásd a képernyőképet:

doc személyre szabott e-maileket küld 9

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:

doc személyre szabott e-maileket küld 9

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:

doc személyre szabott e-maileket küld 9

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:

doc személyre szabott e-maileket küld 9

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

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ó. Töltse le és ingyenes próbaverziót most!

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

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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

kte lap 201905


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.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)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations