Πώς να στείλετε εξατομικευμένα μαζικά email σε μια λίστα από το Excel μέσω του Outlook;
Για παράδειγμα, έχω το ακόλουθο εύρος δεδομένων σε ένα φύλλο εργασίας που περιέχει Όνομα, Διεύθυνση ηλεκτρονικού ταχυδρομείου, στήλες Κωδικός Εγγραφής και τώρα, θέλω να στείλω ένα μήνυμα με εξατομικευμένο χαιρετισμό και τον δικό τους Κωδικό Εγγραφής στις ξεχωριστές Διευθύνσεις Ηλεκτρονικού ταχυδρομείου στη στήλη Α. Για την επίλυση αυτού του προβλήματος, οι ακόλουθες μέθοδοι μπορεί να σας βοηθήσουν.
Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με κωδικό VBA
Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel
Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με τη λειτουργία συγχώνευσης αλληλογραφίας
Με το Word Συγχώνευση αλληλογραφίας λειτουργία, μπορείτε να ολοκληρώσετε αυτήν την εργασία γρήγορα και εύκολα, κάντε το παρακάτω βήμα προς βήμα:
1. Ξεκινήστε ένα νέο κενό έγγραφο του Word και, στη συνέχεια, κάντε κλικ στο Αλληλογραφίας > Επιλέξτε παραλήπτες > Χρησιμοποιήστε μια υπάρχουσα λίστα, δείτε το στιγμιότυπο οθόνης:
2. Στην Επιλέξτε Πηγή δεδομένων παράθυρο, επιλέξτε το βιβλίο εργασίας που περιλαμβάνει το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε και κάντε κλικ στο Ανοικτό κουμπί, δείτε το στιγμιότυπο οθόνης:
3. Στο ερχόμενο Επιλέξτε Πίνακας πλαίσιο διαλόγου, επιλέξτε το φύλλο εργασίας με το εύρος δεδομένων που χρειάζεστε και, στη συνέχεια, κάντε κλικ στο OK κουμπί, δείτε το στιγμιότυπο οθόνης:
4. Και το κύριο έγγραφο του μηνύματος ηλεκτρονικού ταχυδρομείου και η λίστα διευθύνσεών σας έχουν συνδεθεί μαζί, τώρα, μπορείτε να επεξεργαστείτε το μήνυμα κειμένου και να προσθέσετε σύμβολα κράτησης θέσης που υποδεικνύουν πού θα εμφανίζονται οι μοναδικές πληροφορίες σε κάθε μήνυμα.
(1.) Για να εισαγάγετε το ατομικό τους όνομα χαιρετισμού, κάντε κλικ στο Αλληλογραφίας > Εισαγωγή συγχώνευσης πεδίου > Όνομα, το εξατομικευμένο όνομα έχει εισαχθεί στο μήνυμα και το όνομα πεδίου περιβάλλεται από «».
(2.) Συνεχίστε να πληκτρολογείτε το μήνυμά σας και εισάγετε το Κωδικός εγγραφής στο μέρος όπου χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
5. Αφού συνθέσετε το μήνυμα, μπορείτε να κάνετε κλικ Αποτελέσματα προεπισκόπησης σύμφωνα με το Mailing καρτέλα για προεπισκόπηση μηνυμάτων ηλεκτρονικού ταχυδρομείου και πραγματοποίηση αλλαγών προτού ολοκληρώσετε πραγματικά τη συγχώνευση.
6. Αφού βεβαιωθείτε ότι δεν υπάρχει πρόβλημα, μπορείτε να στείλετε τα E-mail στους ξεχωριστούς παραλήπτες, κάντε κλικ Αλληλογραφίας > Τέλος και συγχώνευση > Αποστολή μηνύματος email, δείτε το στιγμιότυπο οθόνης:
7. Στη συνέχεια, βγήκε έξω Συγχώνευση σε E-mail πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:
(1.) Από το Προς την αναπτυσσόμενη λίστα, επιλέξτε Διεύθυνση ηλεκτρονικού ταχυδρομείου στήλη;
(2.) Μπορείτε να πληκτρολογήσετε το θέμα στο Θέμα πλαίσιο κειμένου γραμμής;
(3.) Από το Αποστολή εγγραφών , επιλέξτε Όλα.
8. Και στη συνέχεια κάντε κλικ στο κουμπί OK, τα email αποστέλλονται σε ξεχωριστούς παραλήπτες με τον δικό τους κωδικό εγγραφής ταυτόχρονα, αφού στείλετε τα email, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι τα email έχουν αποσταλεί επιτυχώς.
Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες με διαφορετικά συνημμένα:
Με Kutools για Excel's Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα από το Excel μέσω του Outlook όπως χρειάζεστε. Ταυτόχρονα, μπορείτε να κάνετε CC ή Bcc τα μηνύματα σε ένα συγκεκριμένο άτομο επίσης. Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα! |
Στείλτε εξατομικευμένα μαζικά 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 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, τα μηνύματα ηλεκτρονικού ταχυδρομείου θα σταλούν σε ξεχωριστές διευθύνσεις με τον ατομικό κωδικό εγγραφής τους ένα προς ένα, αφού στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι τα μηνύματα ηλεκτρονικού ταχυδρομείου έχουν αποσταλεί με επιτυχία.
Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το θέμα ή το μήνυμα σώματος ανάλογα με τις ανάγκες σας.
Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel
Εάν έχετε Kutools για Excel, Με τους Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα όπως χρειάζεστε.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:
1. Κλίκ Kutools Plus > Αποστολή email, δείτε το στιγμιότυπο οθόνης:
2. Στην Αποστολή Emials πλαίσιο διαλόγου, επιλέξτε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε και, στη συνέχεια, καθορίστε τις διευθύνσεις παραληπτών, τα συνημμένα και το θέμα που χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
3. Στο πλαίσιο επεξεργασίας, εισαγάγετε τα μεμονωμένα ονόματα χαιρετισμού, επιλέξτε Όνομα από την αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Εισαγωγή placeholder για να εισαγάγετε τα ονόματα στο μήνυμα, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, πληκτρολογήστε το σώμα του μηνύματός σας στο πλαίσιο όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
5. Αφού ολοκληρώσετε το σώμα του email, επιλέξτε τη λειτουργία αποστολής όπως θέλετε, μπορείτε να στείλετε χρησιμοποιώντας το Outlook ή τον καθορισμένο διακομιστή σας, δείτε το screesnhot:
Note: Εάν θέλετε να χρησιμοποιήσετε άλλο διακομιστή, κάντε κλικ στο Ρυθμίσεις διακομιστή εξερχόμενων για να ρυθμίσετε τη λειτουργία αποστολής στη δική σας, δείτε το screesnhot:
6. Επιτέλους, κάντε κλικ στο κουμπί Αποστολή για να στείλετε τα email, αφού συμπληρώσετε, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει την κατάσταση αποστολής. δείτε το screesnhot:
Κάντε κλικ στην επιλογή Λήψη και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Αποστολή εξατομικευμένων μαζικών μηνυμάτων ηλεκτρονικού ταχυδρομείου σε μια λίστα από το Excel μέσω του Outlook
Σχετικό άρθρο:
Πώς να στείλετε email σε πολλούς παραλήπτες σε μια λίστα από το Excel μέσω του Outlook;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!