Πώς να στείλετε μαζικά μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel VBA με ένα κλικ στο Excel

Anonim

Έχετε χρειαστεί ποτέ να στείλετε μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel VBA σε πολλαπλά αναγνωριστικά ηλεκτρονικού ταχυδρομείου, που παρέχονται σε ένα φύλλο excel; Θέλετε να μάθετε πώς να στέλνετε μηνύματα από το Excel χωρίς να ανοίγετε το outlook; Αυτό το άρθρο καλύπτει τον τρόπο με τον οποίο μπορείτε να αυτοματοποιήσετε το Outlook και να στείλετε πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου με συνημμένα από το Excel με ένα κλικ, διατηρώντας τα άτομα σε Cc και Bcc επίσης.

Στο τέλος, μπορείτε επίσης να κατεβάσετε το αρχείο, για άμεση αποστολή αρσενικών σε εκατοντάδες αναγνωριστικά. Το αρχείο περιέχει μακροεντολή για αποστολή email από το excel.

Πώς να στείλετε μηνύματα από το Excel;
Για να στείλετε μηνύματα από το Excel, πρέπει να κατανοήσετε αυτά τα αποσπάσματα VBA.

Σπουδαίος: Πρέπει να έχετε ένα email που έχει διαμορφωθεί στην εφαρμογή Outlook.

Πατήστε F11 για να ανοίξετε το VB Editor.

  • Προσθέστε μια αναφορά στη βιβλιοθήκη αντικειμένων του Outlook:
      • Μεταβείτε στο μενού Εργαλεία και κάντε κλικ στις Παραπομπές.

    • Βρείτε τη Βιβλιοθήκη αντικειμένων Microsoft 16.0. Η έκδοση μπορεί να είναι διαφορετική. Είναι 16.0 στο Excel 2016. Επιλέξτε το. Και κάντε κλικ στο OK.

    • Δημιουργία αναφορών εφαρμογής και αλληλογραφίας του Outlook: Τώρα για να μπορέσουμε να έχουμε πρόσβαση στις δυνατότητες του Microsoft Outlook, πρέπει να δημιουργήσουμε το αντικείμενό του.
Dim outApp As Outlook.Application 'Αυτό θα δημιουργήσει μια αναφορά στο αντικείμενο του Outlook. Dim outApp As Outlook.MailItem 'Αυτό θα δημιουργήσει μια αναφορά στο MailItem.
    • Αρχικοποιήστε τις αναφορές: Οι παραπάνω αναφορές πρέπει να ξεκινήσουν:
Set outApp = New Outlook.Application Set outMail = outApp.CreateItem (0)
    • Αποστολή αλληλογραφίας με χρήση αντικειμένου outMail: Οι παρακάτω γραμμές θα ορίσουν το αναγνωριστικό προορισμού αλληλογραφίας, cc, bcc, θέμα, σώμα, συνημμένο και εντολή αποστολής.
Με outMail .To = "abcd.mail.com" 'Υποχρεωτικό. Εδώ ορίζετε το αναγνωριστικό αλληλογραφίας προορισμού… cc = "cc.mail.com" 'προαιρετικό. Cc id mail αν θέλετε… BCC = "bcc.mail.com" 'προαιρετικό. Bcc id id αν θέλετε… Θέμα = subj 'θα πρέπει να έχει. Το μασάζ στο σώμα του ταχυδρομείου… Σώμα = msg 'προαιρετικό. Το μασάζ στο σώμα αλληλογραφίας… Συνημμένα.Προσθέστε "C: /exceltip.com \ test.xlsx" 'προαιρετικά. Πλήρως αναγνωρισμένο όνομα συνημμένου… Αποστολή 'Υποχρεωτικό εάν θέλετε να στείλετε μηνύματα από το excel. Θέλετε να δείτε την αλληλογραφία στο Outlook, χρησιμοποιήστε τη μέθοδο .Display. Τέλος με

Αυτό είναι. Είναι το μόνο που χρειάζεστε για να στείλετε μηνύματα από το Excel χρησιμοποιώντας VBA.

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

Σενάριο:
Φανταστείτε, σας παρέχεται ένα φύλλο excel που περιέχει 100 αναγνωριστικά email και πρέπει να στείλετε ένα email σε κάθε αναγνωριστικό email ξεχωριστά. Όχι μόνο αυτό, πρέπει επίσης να επισυνάψετε στοιχεία. Αυτό θα σας πάρει ώρες αν το κάνετε χειροκίνητα. Ας αυτοματοποιήσουμε λοιπόν αυτήν την αποστολή στο Excel VBA.

Εδώ έχω αυτά τα δεδομένα. Στη στήλη C, με τίτλο "Αποστολή αλληλογραφίας σε", υπάρχουν πολλά αναγνωριστικά email. Πρέπει να στείλω ένα email σε κάθε αναγνωριστικό email σε αυτήν τη στήλη.
Για αυτό, έχω δημιουργήσει στήλες για Θέμα, σώμα μασάζ, CC και BCC.

Το "Αποστολή αλληλογραφίας σε" δεν πρέπει να έχει κενό κελί στο μεταξύ. Όλες οι άλλες στήλες μπορεί να έχουν κενά κελιά. Αν θέλεις
πολλαπλά αναγνωριστικά email προς το στη συνέχεια, γράψτε αυτά τα αναγνωριστικά email με κόμματα σε αυτήν τη στήλη. Βεβαιωθείτε ότι τα αναγνωριστικά email είναι έγκυρα.

Αν θέλετε να στείλετε συνημμένα. Γράψτε διευθύνσεις αυτών των αρχείων στη στήλη συνημμένου.

Γράψτε το θέμα στη στήλη Θέμα.

Μασάζ σε στήλη σώματος μασάζ.

Εάν θέλετε να διατηρήσετε κάποιον σε cc, γράψτε το αναγνωριστικό email του/της στη στήλη CC. Το ίδιο και για το BCC. χρησιμοποιήστε κόμμα για πολλαπλά αναγνωριστικά email.

Τώρα για να στείλετε μηνύματα ηλεκτρονικού ταχυδρομείου σε κάθε αναγνωριστικό email στη στήλη ακολουθήστε αυτά τα βήματα.

  • Πατήστε Alt+F11 για να ανοίξετε τον επεξεργαστή VBA στο Excel.
  • Προσθέστε αναφορά στο αντικείμενο του Outlook ακολουθώντας τα βήματα που αναφέρθηκαν νωρίτερα.
  • Σε μια νέα ενότητα, αντιγράψτε τον παρακάτω κώδικα.
'*** Πρέπει να έχετε ένα email Outlook που έχει ρυθμιστεί στην εφαρμογή του Outlook στο σύστημά σας ***' *** προσθέστε αναφορά στη βιβλιοθήκη αντικειμένων outook από αναφορές στα εργαλεία *** Sub BulkMail () Application.ScreenUpdating = False ThisWorkbook.Activate Δημιουργία αναφορών σε Εφαρμογή και αντικείμενα MailItem του Outlook Dim outApp As Outlook. Εφαρμογή Dim outMail As Outlook.MailItem 'Δημιουργία μεταβλητής για να διατηρεί τιμές διαφορετικών στοιχείων αλληλογραφίας Dim sendTo, subj, atchmnt, msg, ccTo, bccTo As String Dim lstRow As Long "Τα δεδομένα μου βρίσκονται στο φύλλο" Exceltip.com "μπορείτε να έχετε οποιοδήποτε όνομα φύλλου. ThisWorkbook.Sheets ("Exceltip.com"). Ενεργοποιήστε την "Λήψη της τελευταίας σειράς που περιέχει το αναγνωριστικό ηλεκτρονικού ταχυδρομείου στη στήλη 3. lstRow = Κελιά (Rows.Count, 3). Τέλος (xlUp). Row 'Variable για να κρατήσετε όλα τα αναγνωριστικά email Dim rng As Range Set rng = Range ("C2: C" & lstRow) "προετοιμασία αντικειμένου του Outlook για πρόσβαση στις δυνατότητές του Set outApp = New Outlook.Application On Error GoTo cleanup" για να χειριστεί οποιοδήποτε σφάλμα κατά τη δημιουργία αντικειμένου. "Βρόχος για επανάληψη σε κάθε γραμμή, κράτηση δεδομένων σε email σε μεταβλητές και αποστολή" αλληλογραφίας σε κάθε αναγνωριστικό email. Για κάθε κελί In rng sendTo = Range (cell.Address) .Offset (0, 0) .Value2 subj = Range (cell.Address) .Offset (0, 1) .Value2 & "-MS" msg = Range (cell Διεύθυνση). Offset (0, 2). Value2 atchmnt = Range (cell.Address). Offset (0, -1). Value2 ccTo = Range (cell.Address). Offset (0, 3) .Value2 bccTo = Range ( cell.Address). Offset (0, 4) .Value2 On Error Resume Next 'για να παραδώσετε οποιοδήποτε σφάλμα κατά τη δημιουργία του παρακάτω αντικειμένου .cc = ccTo .BCC = bccTo .Body = msg .Subject = subj .Attachments.Add atchmnt .Αποστολή 'αυτής της αποστολής μηνυμάτων χωρίς καμία ειδοποίηση Εάν θέλετε να δείτε την αλληλογραφία πριν από την αποστολή, χρησιμοποιήστε τη μέθοδο .Display. Λήξη με σφάλμα On GoTo 0 'Για να καθαρίσετε οποιοδήποτε σφάλμα καταγράφηκε νωρίτερα Set outMail = Τίποτα' μηδενίζοντας το αντικείμενο outmail για την επόμενη αλληλογραφία Ο βρόχος του επόμενου κελιού τελειώνει: 'απελευθερώνοντας όλα τα αντικείμενα που δημιουργήθηκαν Set outApp = Τίποτα Application.ScreenUpdating = True Application.ScreenUpdating = True Τέλος υπο

Ο παραπάνω κωδικός θα αποστέλλει μηνύματα ηλεκτρονικού ταχυδρομείου σε κάθε αναγνωριστικό ηλεκτρονικού ταχυδρομείου στη σειρά της στήλης "αποστολή μηνύματος σε". Τώρα για να εκτελέσετε αυτόν τον κώδικα, μπορείτε να τον εκτελέσετε απευθείας από εδώ. Or μπορείτε να προσθέσετε ένα σχήμα ή κουμπί στο βιβλίο εργασίας σας και, στη συνέχεια, να εκχωρήσετε αυτήν τη μακροεντολή σε αυτό το αντικείμενο. Χρησιμοποιώ σχήματα επειδή είναι προσαρμόσιμα. Να το πράξουν, ακολουθήστε τα παρακάτω βήματα.

    • Μεταβείτε στην καρτέλα Εισαγωγή.
    • Στην ομάδα Εικονογράφηση, μπορείτε να βρείτε σχήματα, κάντε κλικ στο αγαπημένο σας σχήμα.

    • Σύρετε και αφήστε το στο φύλλο σας.
    • Ομορφύνετε αν θέλετε.
    • Κάντε δεξί κλικ πάνω του. Κάντε κλικ στην επιλογή Εκχώρηση μακροεντολής.

    • Επιλέξτε μακροεντολή BulkMail από τη λίστα.

  • Έξοδος από τη λειτουργία επεξεργασίας.

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

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

Διαχωρίστε το φύλλο Excel σε πολλά αρχεία με βάση τη στήλη χρησιμοποιώντας VBA | Για να χωρίσετε ένα φύλλο εργασίας σε πολλά αρχεία, με βάση τις τιμές μιας στήλης, θα πρέπει να το φιλτράρετε αντιγράψτε-επικολλήστε το σε ένα νέο αρχείο.

Πώς να φιλτράρετε τα δεδομένα στο Excel χρησιμοποιώντας VBA | Το φιλτράρισμα δεδομένων με χρήση VBA είναι εύκολο. Αυτές οι απλές γραμμές κωδικών φιλτράρουν τα δεδομένα στα δεδομένα κριτήρια.

Απενεργοποιήστε τα μηνύματα προειδοποίησης χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Κατά την εκτέλεση πολλαπλών εργασιών, όπως το άνοιγμα και το κλείσιμο αρχείων, το excel εμφανίζει προειδοποιητικά μηνύματα, ώστε να μην χάσετε δεδομένα. Διακόπτουν τον τρέχοντα κώδικα. Για να τα αποφύγουμε

Πώς να περιηγηθείτε σε φύλλα στο Excel χρησιμοποιώντας VBA | Για μπρος -πίσω σε δύο ή περισσότερα φύλλα, πρέπει να τα βολέψουμε. Για να περιηγηθείτε σε πολλά φύλλα, χρησιμοποιούμε…

7 Παραδείγματα For Loops στο Microsoft Excel VBA | Ο βρόχος for είναι η πιο χρησιμοποιούμενη τεχνική looping σε οποιαδήποτε γλώσσα. Το Excel VBA δεν αποτελεί εξαίρεση.

Δημοφιλή άρθρα:

50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας | Γίνετε πιο γρήγοροι στην εργασία σας. Αυτές οι 50 συντομεύσεις θα σας κάνουν να εργάζεστε ακόμη πιο γρήγορα στο Excel.

Πώς να χρησιμοποιήσετε τη συνάρτηση VLOOKUP στο Excel | Αυτή είναι μια από τις πιο δημοφιλείς και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.

Πώς να χρησιμοποιήσετε τη συνάρτηση COUNTIF στο Excel | Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένη τιμή. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.

Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel | Αυτή είναι μια άλλη βασική λειτουργία του ταμπλό. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.