Μετάβαση στο κύριο περιεχόμενο

Πώς να στείλετε εξατομικευμένα μαζικά email σε μια λίστα από το Excel μέσω του Outlook;

Για παράδειγμα, έχω το ακόλουθο εύρος δεδομένων σε ένα φύλλο εργασίας που περιέχει Όνομα, Διεύθυνση ηλεκτρονικού ταχυδρομείου, στήλες Κωδικός Εγγραφής και τώρα, θέλω να στείλω ένα μήνυμα με εξατομικευμένο χαιρετισμό και τον δικό τους Κωδικό Εγγραφής στις ξεχωριστές Διευθύνσεις Ηλεκτρονικού ταχυδρομείου στη στήλη Α. Για την επίλυση αυτού του προβλήματος, οι ακόλουθες μέθοδοι μπορεί να σας βοηθήσουν.

doc στείλετε εξατομικευμένα email 1

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με τη λειτουργία συγχώνευσης αλληλογραφίας

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με κωδικό VBA

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel


βέλος μπλε δεξιά φούσκα Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με τη λειτουργία συγχώνευσης αλληλογραφίας

Με το Word Συγχώνευση αλληλογραφίας λειτουργία, μπορείτε να ολοκληρώσετε αυτήν την εργασία γρήγορα και εύκολα, κάντε το παρακάτω βήμα προς βήμα:

1. Ξεκινήστε ένα νέο κενό έγγραφο του Word και, στη συνέχεια, κάντε κλικ στο Αλληλογραφίας > Επιλέξτε παραλήπτες > Χρησιμοποιήστε μια υπάρχουσα λίστα, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 2

2. Στην Επιλέξτε Πηγή δεδομένων παράθυρο, επιλέξτε το βιβλίο εργασίας που περιλαμβάνει το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε και κάντε κλικ στο Ανοικτό κουμπί, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 3

3. Στο ερχόμενο Επιλέξτε Πίνακας πλαίσιο διαλόγου, επιλέξτε το φύλλο εργασίας με το εύρος δεδομένων που χρειάζεστε και, στη συνέχεια, κάντε κλικ στο OK κουμπί, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 4

4. Και το κύριο έγγραφο του μηνύματος ηλεκτρονικού ταχυδρομείου και η λίστα διευθύνσεών σας έχουν συνδεθεί μαζί, τώρα, μπορείτε να επεξεργαστείτε το μήνυμα κειμένου και να προσθέσετε σύμβολα κράτησης θέσης που υποδεικνύουν πού θα εμφανίζονται οι μοναδικές πληροφορίες σε κάθε μήνυμα.

(1.) Για να εισαγάγετε το ατομικό τους όνομα χαιρετισμού, κάντε κλικ στο Αλληλογραφίας > Εισαγωγή συγχώνευσης πεδίου > Όνομα, το εξατομικευμένο όνομα έχει εισαχθεί στο μήνυμα και το όνομα πεδίου περιβάλλεται από «».

doc στείλετε εξατομικευμένα email 5

(2.) Συνεχίστε να πληκτρολογείτε το μήνυμά σας και εισάγετε το Κωδικός εγγραφής στο μέρος όπου χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 6

5. Αφού συνθέσετε το μήνυμα, μπορείτε να κάνετε κλικ Αποτελέσματα προεπισκόπησης σύμφωνα με το Mailing καρτέλα για προεπισκόπηση μηνυμάτων ηλεκτρονικού ταχυδρομείου και πραγματοποίηση αλλαγών προτού ολοκληρώσετε πραγματικά τη συγχώνευση.

6. Αφού βεβαιωθείτε ότι δεν υπάρχει πρόβλημα, μπορείτε να στείλετε τα E-mail στους ξεχωριστούς παραλήπτες, κάντε κλικ Αλληλογραφίας > Τέλος και συγχώνευση > Αποστολή μηνύματος email, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 7

7. Στη συνέχεια, βγήκε έξω Συγχώνευση σε E-mail πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

(1.) Από το Προς την αναπτυσσόμενη λίστα, επιλέξτε Διεύθυνση ηλεκτρονικού ταχυδρομείου στήλη;

(2.) Μπορείτε να πληκτρολογήσετε το θέμα στο Θέμα πλαίσιο κειμένου γραμμής;

(3.) Από το Αποστολή εγγραφών , επιλέξτε Όλα.

doc στείλετε εξατομικευμένα email 8

8. Και στη συνέχεια κάντε κλικ στο κουμπί OK, τα email αποστέλλονται σε ξεχωριστούς παραλήπτες με τον δικό τους κωδικό εγγραφής ταυτόχρονα, αφού στείλετε τα email, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι τα email έχουν αποσταλεί επιτυχώς.


Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες με διαφορετικά συνημμένα:

Με Kutools για Excel's Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα από το Excel μέσω του Outlook όπως χρειάζεστε. Ταυτόχρονα, μπορείτε να κάνετε CC ή Bcc τα μηνύματα σε ένα συγκεκριμένο άτομο επίσης.       Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

doc στείλτε εξατομικευμένα email 18 1


βέλος μπλε δεξιά φούσκα Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με κωδικό VBA

Εκτός από τη λειτουργία συγχώνευσης αλληλογραφίας, ο ακόλουθος κωδικός VBA μπορεί επίσης να σας βοηθήσει, κάντε το εξής:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Αποστολή εξατομικευμένων μαζικών email σε μια λίστα από το 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. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 9

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, τα μηνύματα ηλεκτρονικού ταχυδρομείου θα σταλούν σε ξεχωριστές διευθύνσεις με τον ατομικό κωδικό εγγραφής τους ένα προς ένα, αφού στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι τα μηνύματα ηλεκτρονικού ταχυδρομείου έχουν αποσταλεί με επιτυχία.

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το θέμα ή το μήνυμα σώματος ανάλογα με τις ανάγκες σας.


βέλος μπλε δεξιά φούσκα Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel

Εάν έχετε Kutools για Excel, Με τους Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα όπως χρειάζεστε.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Αποστολή email, δείτε το στιγμιότυπο οθόνης:

2. Στην Αποστολή Emials πλαίσιο διαλόγου, επιλέξτε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε και, στη συνέχεια, καθορίστε τις διευθύνσεις παραληπτών, τα συνημμένα και το θέμα που χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 9

3. Στο πλαίσιο επεξεργασίας, εισαγάγετε τα μεμονωμένα ονόματα χαιρετισμού, επιλέξτε Όνομα από την αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Εισαγωγή placeholder για να εισαγάγετε τα ονόματα στο μήνυμα, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 9

4. Στη συνέχεια, πληκτρολογήστε το σώμα του μηνύματός σας στο πλαίσιο όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 9

5. Αφού ολοκληρώσετε το σώμα του email, επιλέξτε τη λειτουργία αποστολής όπως θέλετε, μπορείτε να στείλετε χρησιμοποιώντας το Outlook ή τον καθορισμένο διακομιστή σας, δείτε το screesnhot:

doc στείλετε εξατομικευμένα email 9

Note: Εάν θέλετε να χρησιμοποιήσετε άλλο διακομιστή, κάντε κλικ στο Ρυθμίσεις διακομιστή εξερχόμενων για να ρυθμίσετε τη λειτουργία αποστολής στη δική σας, δείτε το screesnhot:

doc στείλετε εξατομικευμένα email 9

6. Επιτέλους, κάντε κλικ στο κουμπί Αποστολή για να στείλετε τα email, αφού συμπληρώσετε, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει την κατάσταση αποστολής. δείτε το screesnhot:

doc στείλετε εξατομικευμένα email 9

Κάντε κλικ στην επιλογή Λήψη και δωρεάν δοκιμή Kutools για Excel τώρα!


Επίδειξη: Αποστολή εξατομικευμένων μαζικών μηνυμάτων ηλεκτρονικού ταχυδρομείου σε μια λίστα από το Excel μέσω του Outlook

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικό άρθρο:

Πώς να στείλετε email σε πολλούς παραλήπτες σε μια λίστα από το Excel μέσω του Outlook;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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