Πώς να στείλετε email σε πολλούς παραλήπτες σε μια λίστα από το Excel μέσω του Outlook;
Εάν έχετε πολλές διευθύνσεις email σε μια στήλη φύλλου εργασίας και τώρα, θέλετε να στείλετε ένα email σε αυτήν τη λίστα παραληπτών από το Excel απευθείας χωρίς να ανοίξετε το Outlook. Σε αυτό το άρθρο, θα μιλήσω για τον τρόπο αποστολής email σε πολλούς παραλήπτες από το Excel ταυτόχρονα.
Στείλτε email σε πολλούς παραλήπτες από το Excel με κωδικό VBA
Στείλτε email σε πολλούς παραλήπτες από το Excel με κωδικό VBA
Μπορείτε να χρησιμοποιήσετε έναν κωδικό VBA για να στείλετε μήνυμα σε πολλούς παραλήπτες ταυτόχρονα, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αποστολή email σε πολλούς παραλήπτες
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τη λίστα διευθύνσεων, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι ένα Outlook Μήνυμα εμφανίζεται το παράθυρο, μπορείτε να δείτε ότι όλες οι επιλεγμένες διευθύνσεις email έχουν προστεθεί στο Προς την πεδίο και, στη συνέχεια, μπορείτε να εισαγάγετε το θέμα και να συνθέσετε το μήνυμά σας, δείτε το στιγμιότυπο οθόνης:
5. Αφού ολοκληρώσετε το μήνυμα, κάντε κλικ Αποστολή κουμπί και αυτό το μήνυμα θα σταλεί σε αυτούς τους παραλήπτες στη λίστα φύλλων εργασίας σας.
Στείλτε email σε πολλούς παραλήπτες με το τρέχον βιβλίο εργασίας ως συνημμένο χρησιμοποιώντας τον κώδικα VBA
Εάν πρέπει να στείλετε ένα μήνυμα σε πολλούς παραλήπτες με το τρέχον βιβλίο εργασίας ως συνημμένο, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Στείλτε email σε πολλούς παραλήπτες με το τρέχον βιβλίο εργασίας ως συνημμένο
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Αφού επικολλήσετε τον κωδικό, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τις διευθύνσεις στις οποίες θέλετε να στείλετε μήνυμα, δείτε το στιγμιότυπο οθόνης
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και ένα Outlook Μήνυμα εμφανίζεται το παράθυρο, όλες οι διευθύνσεις email έχουν προστεθεί στο Προς την πεδίο και το τρέχον βιβλίο εργασίας σας έχει εισαχθεί επίσης ως συνημμένο και, στη συνέχεια, μπορείτε να εισαγάγετε το θέμα και να συνθέσετε το μήνυμά σας, δείτε το στιγμιότυπο οθόνης:
5. Στη συνέχεια κάντε κλικ στο κουμπί Αποστολή κουμπί για να στείλετε αυτό το μήνυμα στη λίστα των παραληπτών με το τρέχον βιβλίο εργασίας ως συνημμένο.
Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες με διαφορετικά συνημμένα:
Με Kutools για Excel's Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα από το Excel μέσω του Outlook όπως χρειάζεστε. Ταυτόχρονα, μπορείτε να κάνετε CC ή Bcc τα μηνύματα σε ένα συγκεκριμένο άτομο επίσης. Κάντε κλικ για λήψη του Kutools για Excel! |
Σχετικό άρθρο:
Πώς να στείλετε εξατομικευμένα μαζικά email σε μια λίστα από το Excel μέσω του Outlook;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!