Salt la conținutul principal

Cum să trimiteți mesaje de e-mail personalizate către o listă din Excel prin Outlook?

De exemplu, am următorul interval de date într-o foaie de lucru care conține coloane Nume, Adresă de e-mail, Cod de înregistrare și acum vreau să trimit un mesaj cu o felicitare personalizată și propriul cod de înregistrare la adresele de e-mail separate din coloana A. Pentru a rezolva această problemă, următoarele metode vă pot ajuta.

doc trimite e-mailuri personalizate 1

Trimiteți mesaje de e-mail personalizate în masă către o listă din Excel cu funcția Fuzionare e-mail

Trimiteți e-mailuri personalizate în masă către o listă din Excel cu cod VBA

Trimiteți e-mailuri de masă personalizate către o listă cu diferite atașamente utilizând Kutools pentru Excel


săgeată albastru dreapta balon Trimiteți mesaje de e-mail personalizate în masă către o listă din Excel cu funcția Fuzionare e-mail

Cu Cuvântul Corespondență de corespondență funcție, puteți finaliza acest lucru rapid și ușor, vă rugăm să faceți cu următorul pas cu pas:

1. Lansați un nou document Word gol, apoi faceți clic pe Trimiteri > Selectați Destinatari > Folosiți o listă existentă, vezi captura de ecran:

doc trimite e-mailuri personalizate 2

2. În Selectați Sursa de date fereastra, alegeți registrul de lucru care include intervalul de date pe care doriți să îl utilizați și faceți clic pe Operatii Deschise buton, vezi captura de ecran:

doc trimite e-mailuri personalizate 3

3. În viitor Selectați Tabel caseta de dialog, vă rugăm să alegeți foaia de lucru cu intervalul de date de care aveți nevoie, apoi faceți clic pe OK buton, vezi captura de ecran:

doc trimite e-mailuri personalizate 4

4. Și documentul principal al mesajului de poștă electronică și lista de adrese au fost conectate împreună, acum puteți edita mesajul text și adăuga substituenți care indică unde vor apărea informațiile unice în fiecare mesaj.

(1.) Pentru a insera numele de salut individual, faceți clic pe Trimiteri > Introduceți câmpul Merge > Nume si Prenume, numele personalizat a fost inserat în mesaj, iar numele câmpului este înconjurat de «».

doc trimite e-mailuri personalizate 5

(2.) Continuați să tastați mesajul și introduceți Cod de înregistrare în locul unde ai nevoie, vezi captura de ecran:

doc trimite e-mailuri personalizate 6

5. După compunerea mesajului, puteți face clic Previzualizați rezultatele în temeiul Mailing pentru a previzualiza mesajele de poștă electronică și a face modificări înainte de a finaliza efectiv îmbinarea.

6. După ce vă asigurați că nu există nicio problemă, puteți trimite e-mailurile către destinatarii separați, faceți clic pe Trimiteri > Finish & Merge > Trimiteți un mesaj de e-mail, vezi captura de ecran:

doc trimite e-mailuri personalizate 7

7. Apoi a ieșit Mergeți la e-mail caseta de dialog, efectuați următoarele operații:

(1.) Din La lista derulantă, vă rugăm să alegeți Adresa de email coloană;

(2.) Puteți introduce subiectul în Subiect casetă text linie;

(3.) Din Trimiteți înregistrări secțiune, selectați TOATE.

doc trimite e-mailuri personalizate 8

8. Apoi faceți clic pe OK, e-mailurile sunt trimise către destinatari separați cu propriul cod de înregistrare simultan, după trimiterea e-mailurilor, puteți merge la Outlook pentru a vă asigura că e-mailurile au fost trimise cu succes.


Trimiteți e-mailuri personalizate către mai mulți destinatari cu atașamente diferite:

Cu Kutools pentru Excel's Trimite emailuri caracteristică, puteți trimite rapid e-mailuri personalizate către mai mulți destinatari cu atașamente diferite din Excel prin Outlook, după cum aveți nevoie. În același timp, puteți CC sau Bcc mesajele către o anumită persoană.       Descărcați și proba gratuită Kutools pentru Excel acum!

doc trimite e-mailuri personalizate 18 1


săgeată albastru dreapta balon Trimiteți e-mailuri personalizate în masă către o listă din Excel cu cod VBA

Cu excepția funcției de îmbinare a corespondenței, următorul cod VBA vă poate face, de asemenea, o favoare, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: trimiteți e-mailuri de masă personalizate către o listă din 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. Apoi apăsați F5 pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați intervalul de date pe care doriți să îl utilizați, consultați captura de ecran:

doc trimite e-mailuri personalizate 9

4. Apoi faceți clic pe OK butonul, e-mailurile vor fi trimise la adrese separate cu codul lor individual de înregistrare unul câte unul, după trimiterea e-mailurilor, puteți merge la Outlook pentru a vă asigura că e-mailurile au fost trimise cu succes.

notițe: În codul de mai sus, puteți schimba subiectul sau mesajul corpului în funcție de nevoile dvs.


săgeată albastru dreapta balon Trimiteți e-mailuri de masă personalizate către o listă cu diferite atașamente utilizând Kutools pentru Excel

Dacă aveţi Kutools pentru Excel, Cu său Trimite emailuri funcție, puteți trimite rapid e-mailuri personalizate către mai mulți destinatari cu atașamente diferite după cum aveți nevoie.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. 

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools Plus > Trimite emailuri, vezi captura de ecran:

2. În Trimite Emials caseta de dialog, selectați intervalul de date pe care doriți să îl utilizați, apoi specificați adresele destinatarului, atașamentele și subiectul după cum aveți nevoie, consultați captura de ecran:

doc trimite e-mailuri personalizate 9

3. În caseta de editare, introduceți numele de felicitare individuale, vă rugăm să alegeți Nume si Prenume din lista derulantă, apoi faceți clic pe Introduceți substituent pentru a insera numele în mesaj, consultați captura de ecran:

doc trimite e-mailuri personalizate 9

4. Apoi introduceți corpul mesajului în casetă după cum aveți nevoie, vedeți captura de ecran:

doc trimite e-mailuri personalizate 9

5. După ce ați terminat corpul de e-mail, vă rugăm să alegeți modul de trimitere după cum doriți, puteți trimite utilizând Outlook sau serverul specificat, a se vedea screesnhot:

doc trimite e-mailuri personalizate 9

notițe: Dacă doriți să utilizați alt server, faceți clic pe Setări server de ieșire pentru a seta modul de trimitere la propriul dvs., consultați screesnhot:

doc trimite e-mailuri personalizate 9

6. În cele din urmă, faceți clic pe Trimiteți buton pentru a trimite e-mailurile, după finalizare, va apărea o casetă de prompt pentru a vă reaminti starea de trimitere. vezi screesnhot:

doc trimite e-mailuri personalizate 9

Faceți clic pe Descărcați și proba gratuită Kutools pentru Excel acum!


Demo: trimiteți e-mailuri personalizate în masă către o listă din Excel prin Outlook

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Articol asociat:

Cum să trimiteți e-mail la mai mulți destinatari dintr-o listă din Excel prin Outlook?

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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