Όταν πρέπει να στείλετε ένα μαζικό μήνυμα ηλεκτρονικού ταχυδρομείου σε μια μεγάλη ομάδα ανθρώπων, θα χρειαστείτε μια αυτοματοποιημένη διαδικασία που να μπορεί να διεκπεραιώνει γρήγορα επαναλαμβανόμενες εργασίες. Δημιουργώντας ένα Excel αρχείο με μια λίστα emails είναι ο πιο συνηθισμένος τρόπος για να στείλετε μαζικά emails. Έτσι, σε αυτό το σεμινάριο, θα σας δείξουμε πώς να στείλετε email από ένα Excel λίστα αυτόματα σε μεγάλο αριθμό ατόμων.

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

2 εύχρηστες προσεγγίσεις για την αποστολή email από μια λίστα Excel

Έχουμε συμπεριλάβει ένα σύνολο δεδομένων με τα ονόματα ορισμένων ατόμων, καθώς και τα email και τους αριθμούς εγγραφής τους, στην παρακάτω εικόνα. Από το Excel λίστα, πρέπει να στείλουμε emails σε κάθε άτομο. Για να το πετύχουμε αυτό, θα χρησιμοποιήσουμε Συγχώνευση αλληλογραφίας του Microsoft Word συνάρτηση , ακολουθούμενη από ένα VBA κώδικα για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου σε άτομα που προτιμούν από την υπάρχουσα λίστα.

1. Εφαρμόστε τη λειτουργία Mail Merge για την αποστολή πολλαπλών email από μια λίστα Excel

⇒ Βήμα 1: Ανοίξτε ένα νέο αρχείο Word

• Ανοίξτε ένα κενό Λέξη έγγραφο.
• Κάντε κλικ στο Αλληλογραφία καρτέλα.
• Από το Επιλέξτε παραλήπτες επιλογή, επιλέξτε το Χρήση υπάρχουσας λίστας επιλογή.

⇒ Βήμα 2: Συνδέστε τη λίστα του Excel με το αρχείο Word

• Επιλέξτε το Excel όπου έχετε δημιουργήσει τη λίστα και κάντε κλικ στο Ανοίξτε το για να ανοίξετε το αρχείο.

• Επιλέξτε τον αριθμό του φύλλου όπου έχετε γράψει τη λίστα.
• Στη συνέχεια, κάντε κλικ στο OK .

⇒ Βήμα 3: Εισαγωγή πεδίων

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

• Όπως φαίνεται στην παρακάτω εικόνα, μετά την προσθήκη του Όνομα πεδίο, θα εμφανίζεται ως μεταβλητή του ονόματος κάθε ατόμου.

• Ομοίως, τοποθετήστε το Reg όπου θέλετε στο μήνυμα κειμένου.

• Ως εκ τούτου, θα εμφανιστεί η παρακάτω εικόνα.

⇒ Βήμα 4: Ελέγξτε τα αποτελέσματα της προεπισκόπησης

• Κάντε κλικ στο Αποτελέσματα προεπισκόπησης για να δείτε την τελική προεπισκόπηση πριν από την αποστολή του email.
• Το παρακάτω στιγμιότυπο οθόνης δείχνει πώς θα φαίνεται ένα δείγμα email.

⇒ Βήμα 5: Συγχώνευση emails

• Για να συγχωνεύσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, κάντε κλικ στο κουμπί Τελειώστε & συγχώνευση; Συγχώνευση επιλογή.
• Για να ανοίξετε το Συγχώνευση σε E-mail πλαίσιο, επιλέξτε το Αποστολή μηνυμάτων Email επιλογή.

• Στο πλαίσιο Προς, επιλέξτε το Ηλεκτρονικό ταχυδρομείο επιλογή.
• Πληκτρολογήστε το θέμα που προτιμάτε στο πεδίο Γραμμή θέματος κουτί.
• Η μορφή της αλληλογραφίας θα είναι HTML από προεπιλογή, οπότε δεν χρειάζεται να την αλλάξετε.
• Στην επιλογή Αποστολή εγγραφών, κάντε κλικ στο Όλα .
• Τέλος, κάντε κλικ στο OK για να στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες ταυτόχρονα.

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

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

Διαβάστε περισσότερα: Πώς να στείλετε αυτόματα email όταν πληρούνται οι προϋποθέσεις στο Excel

Παρόμοιες αναγνώσεις

• Πώς να στείλετε ένα επεξεργάσιμο φύλλο Excel μέσω email (3 γρήγορες μέθοδοι)
• [Λύθηκε]: Το βιβλίο εργασίας κοινής χρήσης δεν εμφανίζεται στο Excel (με εύκολα βήματα)
• Αυτόματη αποστολή email υπενθύμισης από ένα φύλλο εργασίας του Excel χρησιμοποιώντας το VBA
• Πώς να δείτε ποιος είναι σε ένα κοινόχρηστο αρχείο Excel (με γρήγορα βήματα)
• Πώς να ενεργοποιήσετε το βιβλίο εργασίας κοινής χρήσης στο Excel

2. Εκτελέστε έναν κώδικα VBA για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από την επιλογή ενός εύρους

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

⇒ Βήμα 1: Δημιουργήστε μια ενότητα

• Για να ανοίξετε το Μακροεντολή VBA , πατήστε Alt + F11 .
• Κάντε κλικ στο Εισαγωγή καρτέλα.
• Επιλέξτε το Ενότητα επιλογή για να δημιουργήσετε το Ενότητα .

⇒ Βήμα 2: Επικόλληση κωδικών VBA

• Στο νέο Ενότητα , επικολλήστε τα ακόλουθα Κώδικας VBA .

 #If VBA7 And Win64 Then 'Το Ptr χρησιμοποιείται για την αλλαγή για το λειτουργικό 32 bit σε 64 bit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Δηλώνουμε τις μεταβλητές DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Επιλογή εύρους επιλογής adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Δημιουργία πλαισίου εισαγωγής για την επιλογή εύρους Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , , , , 8) 'Εφαρμόστε τη συνθήκη If για να καθορίσετε τους αριθμούς των στηλών για τη λειτουργία If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Εμφανίστε το αποτέλεσμα σε ένα πλαίσιο msg για τη μη εκπλήρωση της συνθήκης MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Εφαρμόστε το βρόχο For για να εκτελέσετε τη λειτουργία σε κάθε γραμμή ξεχωριστά For k = 1 To xIntRg.Rows.Count' Συλλέξτε τη διεύθυνση ηλεκτρονικού ταχυδρομείου και ορίστε τη στη μεταβλητή xMailAdd = xIntRg.Cells(k, 2) ' Δώστε ένα θέμα για το μήνυμα ηλεκτρονικού ταχυδρομείου xRegCode = "ExcelWIKI Registration No." ' Πληκτρολογήστε το σώμα του μηνύματος ηλεκτρονικού ταχυδρομείου xBody = "" ' Εισάγετε τα ονόματα με τη μεταβλητή xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Here is your ExcelWIKI Registration No. " ' ΕισαγωγήRegistration No. με τη μεταβλητή xIntRg xBody = xBody &- xIntRg.Cells(k, 3).Text &- "." &- vbCrLf &- vbCrLf xBody = xBody &- "Είμαστε πραγματικά χαρούμενοι που μας επισκέπτεστε στην ιστοσελίδα μας, συνεχίστε να μας υποστηρίζετε." &- vbCrLf xBody = xBody &- "ExcelWIKI Team" ' Ορισμός κενών με (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Καθορίστε να αντικαταστήσετε τις επιστροφές χαρακτήρων με (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Δημιουργήστε το URL Link xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Χρησιμοποιήστε το Link για να ξεκινήσετε την αποστολή email ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' διάστημα τριών δευτερολέπτων για την αποστολή πλήκτρων Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Βήμα 3: Εκτελέστε το πρόγραμμα

• Τύπος F5 για να εκτελέσετε το πρόγραμμα.
• Επιλέξτε το εύρος στο πλαίσιο εισαγωγής.
• Κάντε κλικ στο OK για να στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου.

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

• Τέλος, μπορείτε να ελέγξετε τα αποσταλμένα μηνύματα ηλεκτρονικού ταχυδρομείου για επιβεβαίωση.

Διαβάστε περισσότερα: Πώς να στείλετε email εάν πληρούνται οι προϋποθέσεις στο Excel (3 εύκολες μέθοδοι)

Συμπέρασμα

Ελπίζω αυτό το άρθρο να σας έδωσε ένα σεμινάριο για το πώς να στείλετε μαζικά μηνύματα ηλεκτρονικού ταχυδρομείου από ένα Excel λίστα. Όλες αυτές οι διαδικασίες θα πρέπει να διδαχθούν και να εφαρμοστούν στο σύνολο δεδομένων σας. Ρίξτε μια ματιά στο βιβλίο ασκήσεων και δοκιμάστε αυτές τις δεξιότητες. Έχουμε κίνητρο να συνεχίσουμε να δημιουργούμε σεμινάρια όπως αυτό λόγω της πολύτιμης υποστήριξής σας.

Παρακαλούμε επικοινωνήστε μαζί μας εάν έχετε οποιεσδήποτε ερωτήσεις. Επίσης, μπορείτε να αφήσετε σχόλια στην παρακάτω ενότητα.

Εμείς, οι Exceldemy Ομάδα, ανταποκρίνονται πάντα στα ερωτήματά σας.

Μείνετε μαζί μας και συνεχίστε να μαθαίνετε.