Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη μακροεντολή του excel για να στείλετε αυτόματα ένα email. Μπορούμε να ρυθμίσουμε τη λειτουργία αλληλογραφίας μας χρησιμοποιώντας VBA μακροεντολές. Έτσι, χρησιμοποιώντας το VBA μακροεντολή μπορούμε να στείλουμε ένα email σε πολλούς χρήστες ταυτόχρονα. Πρέπει να έχουμε Outlook εγκατεστημένο στη συσκευή μας για να στέλνει αυτόματα email με μια μακροεντολή. Επειδή ο κώδικας που θα εισάγουμε θα χρησιμοποιεί Outlook για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου στους παραλήπτες.

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

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από εδώ.

3 κατάλληλα παραδείγματα μακροεντολών του Excel για την αυτόματη αποστολή email

Σε αυτό το άρθρο, θα παρουσιάσουμε 3 κατάλληλα παραδείγματα χρήσης της μακροεντολής excel για την αυτόματη αποστολή ενός email στους παραλήπτες. Πριν ξεκινήσουμε να απεικονίζουμε το παράδειγμα πρέπει να διορθώσουμε ένα πράγμα στο φύλλο excel. Ολοκληρώστε τα παρακάτω βήματα πριν εφαρμόσετε τη μακροεντολή για την αυτόματη αποστολή email.

ΒΗΜΑΤΑ:

• Πρώτον, από το σύνολο δεδομένων σας, μεταβείτε στη διεύθυνση την καρτέλα Developer Επιλέξτε την επιλογή Visual Basic .

• Στη συνέχεια, μεταβείτε στο Εργαλείο και επιλέξτε την επιλογή Αναφορές .

• Ένα νέο παράθυρο διαλόγου με το όνομα ' Αναφορές - VBAProject ' θα ανοίξει.
• Τέλος, τσεκάρετε την επιλογή ' Βιβλιοθήκη αντικειμένων του Microsoft Office 16.0 ' και κάντε κλικ στο OK .

1. Εφαρμόστε τη μακροεντολή Excel VBA για την αυτόματη αποστολή email με βάση την τιμή κελιού

Πρώτα απ' όλα, θα εφαρμόσουμε το excel VBA μακροεντολή για να στείλουμε αυτόματα ένα μήνυμα ηλεκτρονικού ταχυδρομείου με βάση μια συγκεκριμένη τιμή κελιού στο σύνολο δεδομένων μας. Για να παρουσιάσουμε αυτό το παράδειγμα θα χρησιμοποιήσουμε το ακόλουθο σύνολο δεδομένων. Θα γράψουμε έναν κώδικα που θα στείλει αυτόματα ένα μήνυμα ηλεκτρονικού ταχυδρομείου εάν η τιμή κελιού στο κελί D6 είναι μεγαλύτερη από 400 .

Ας δούμε τα βήματα για την εκτέλεση αυτής της ενέργειας.

ΒΗΜΑΤΑ:

• Αρχικά, δεξιά - κάντε κλικ στο στο φύλλο Με βάση το Cell '.
• Επιπλέον, επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Η παραπάνω ενέργεια θα ανοίξει ένα κενό VBA παράθυρο κώδικα για το συγκεκριμένο φύλλο εργασίας. Ένας άλλος τρόπος για να ανοίξετε αυτό το παράθυρο κώδικα είναι να πατήσετε Alt + F11 .
• Επιπλέον, πληκτρολογήστε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα:

 Dim rg As Range Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count> 1 Then Exit Sub Set rg = Intersect(Range("D6"), Target) If rg Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value> 400 Then Call send_mail_outlook End If End Sub Send_mail_outlook() Dim z As Object Dim y As Object Dim b As String Set z =CreateObject("Outlook.Application") Set y = z.CreateItem(0) b = "Γεια σας!" & vbNewLine & vbNewLine & _ "Ελπίζω να είστε καλά" & vbNewLine & _ "Επισκεφθείτε την ιστοσελίδα μας Exceldemy" On Error Resume Next With y .To = "Address" .cc = "" .BCC = "" .Subject = "αποστολή μηνύματος με βάση την τιμή του κελιού" .Body = b .Display End With On Error GoTo 0 Set y = Nothing Set z = Nothing End Sub 

• Στη συνέχεια, κάντε κλικ στο Εκτέλεση ή πατήστε το κουμπί F5 για να εκτελέσετε τον κώδικα.

• Ένα νέο παράθυρο διαλόγου με όνομα Μακροεντολές θα εμφανιστεί.
• Μετά από αυτό, στο Όνομα μακροεντολής επιλέξτε τη μακροεντολή ' send_mail_outlook '.
• Τώρα κάντε κλικ στο Εκτέλεση κουμπί.

• Τέλος, από τώρα και στο εξής, όταν η τιμή του κελιού στο κελί D6> 400 ένα email στο Outlook θα δημιουργηθούν αυτόματα με συγκεκριμένους παραλήπτες. Πρέπει απλά να κάνουμε κλικ στο Στείλτε για να στείλετε το email.

Διαβάστε περισσότερα: Αυτόματη αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel με βάση το περιεχόμενο κελιών (2 μέθοδοι)

2. Αυτόματη αποστολή email με βάση την ημερομηνία λήξης με μακροεντολή VBA

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

Ακολουθήστε τα παρακάτω βήματα για να εκτελέσετε αυτή τη μέθοδο.

ΒΗΜΑΤΑ:

• Πρώτον, κάντε δεξί κλικ στο φύλλο Ημερομηνία .
• Στη συνέχεια, επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Ανοίγει ένα κενό VBA παράθυρο κώδικα για το ενεργό φύλλο εργασίας. Μπορούμε επίσης να πατήσουμε Alt + F11 για να εμφανιστεί αυτό το παράθυρο κώδικα.
• Στη συνέχεια, εισαγάγετε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα:

 Public Sub Based_on_Date() Dim aRgDate As Range Dim aRgSend As Range Dim aRgText As Range Dim aRgDone As Range Dim aOutApp As Object Dim aMailItem As Object Dim aLastRow As Long Dim CrLf As String Dim aMailBody As String Dim zRgDateVal As String Dim zRgSendVal As String Dim aMailSubject As String Dim j As Long On Error Resume Next Set aRgDate = Application.InputBox("select the column of duedate:", _ "Send Mail Base on Date", , , , , , , , 8) If aRgDate Is Nothing Then Exit Sub Set aRgSend = Application.InputBox("select the email recipients column:", _ "Send Mail Base on Date", , , , , , , , 8) If aRgSend Is Nothing Then Exit Sub Set aRgText = Application.InputBox("Select the content column of email:", _ "Send Mail Base on Date", , , , , , , , 8) If aRgText Is Nothing Then Exit Sub aLastRow =aRgDate.Rows.Count Set aRgDate = aRgDate(1) Set aRgSend = aRgSend(1) Set aRgText = aRgText(1) Set aOutApp = CreateObject("Outlook.Application") For j = 1 To aLastRow zRgDateVal = "" zRgDateVal = aRgDate.Offset(j - 1).Value If zRgDateVal "" Then If CDate(zRgDateVal) - Date 0 Then zRgSendVal = aRgSend.Offset(j - 1).Value aMailSubject = aRgText.Offset(j - 1).Value & " on " & zRgDateVal CrLf= " 

" aMailBody = "" aMailBody = aMailBody & "Γεια σας " & zRgSendVal & CrLf aMailBody = aMailBody & "Μήνυμα: " & aRgText.Offset(j - 1).Value & CrLf aMailBody = aMailBody & "" Set aMailItem = aOutApp.CreateItem(0) With aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End With Set aMailItem = Nothing End If End If Next Set aOutApp = Nothing EndΥπο

• Τώρα, χρησιμοποιήστε το Εκτέλεση ή το κουμπί F5 για να εκτελέσετε τον κώδικα.

• Θα εμφανιστεί ένα νέο παράθυρο διαλόγου.
• Στη συνέχεια, στο πεδίο εισαγωγής του εν λόγω πλαισίου διαλόγου επιλέξτε το εύρος της στήλης due date. D$5:$D$9 . Στη συνέχεια, κάντε κλικ στο OK .

• Θα εμφανιστεί ένα ακόμη παράθυρο διαλόγου.
• Επιπλέον, στο πεδίο εισαγωγής επιλέξτε το εύρος των στηλών B$5:$B$9 που περιέχει τις διευθύνσεις ηλεκτρονικού ταχυδρομείου και κάντε κλικ στο OK .

• Επιπλέον, θα εμφανιστεί ένα ακόμη παράθυρο. Επιλέξτε την περιοχή μηνυμάτων $C$5:$C$9 στο πεδίο εισαγωγής του αναδυόμενου παραθύρου.

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

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

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

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

3. Χρήση μακροεντολής Excel για αυτόματη αποστολή email με συνημμένα αρχεία

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

• Επιλέξτε το αρχείο ' Συνημμένο.xlsx ' '.
• Κάντε κλικ στην επιλογή ' Αντιγραφή διαδρομής '.

• Έτσι, η διαδρομή του αρχείου που λαμβάνουμε:

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

ΒΗΜΑΤΑ:

• Πρώτον, μεταβείτε στο Προγραμματιστής και επιλέξτε την επιλογή Visual Basic .

• Ένα νέο παράθυρο με το όνομα ' Project - Θα ανοίξει το VBAProject '.
• Δεύτερον, δεξί κλικ στο στο όνομα του φύλλου.
• Στη συνέχεια, επιλέξτε Εισαγωγή >, Ενότητα .

• Η παραπάνω εντολή θα ανοίξει ένα κενό VBA
• Τρίτον, πληκτρολογήστε τον ακόλουθο κώδικα στην εν λόγω Ενότητα:

 Sub send_Email_complete() Dim MyOutlook As Object Set MyOutlook = CreateObject("Outlook.Application") Dim MyMail As Object Set MyMail = MyOutlook.CreateItem(olMailItem) MyMail.To = "[email protected]" MyMail.cc = "[email protected]" MyMail.BCC = "[email protected]" MyMail.Subject = "Αποστολή ηλεκτρονικού ταχυδρομείου με VBA." MyMail.Body = "Αυτό είναι ένα δείγμα ηλεκτρονικού ταχυδρομείου." Attached_File = "E:\Exceldemy\Attachment.xlsx"MyMail.Attachments.Add Attached_File MyMail.send End Sub 

• Στη συνέχεια, πατήστε το F5 ή κάντε κλικ στο πλήκτρο Εκτέλεση για να εκτελέσετε τον κώδικα.

• Τέλος, ο κώδικας θα στείλει το συνημμένο αρχείο στα emails που παρέχονται στον κώδικα. Ο κώδικας στέλνει emails με τη μέθοδο Outlook . Έτσι, κάντε κλικ στο Επιτρέψτε το κουμπί για να αφήσετε Outlook στέλνει το συνημμένο στα συγκεκριμένα μηνύματα ηλεκτρονικού ταχυδρομείου.

Διαβάστε περισσότερα: Πώς να εφαρμόσετε μακροεντολή για την αποστολή email από το Excel με συνημμένο

Συμπέρασμα

Εν κατακλείδι, το άρθρο αυτό δείχνει 3 παραδείγματα χρήσης του excel VBA μακροεντολή για την αυτόματη αποστολή αλληλογραφίας. Κατεβάστε το δείγμα φύλλου εργασίας που δίνεται σε αυτό το άρθρο για να δοκιμάσετε τις ικανότητές σας. Εάν έχετε οποιεσδήποτε ερωτήσεις, αφήστε ένα σχόλιο στο παρακάτω πλαίσιο. Η ομάδα μας θα προσπαθήσει να απαντήσει στο μήνυμά σας το συντομότερο δυνατό. Έχετε το νου σας για περισσότερες ευρηματικές Microsoft Excel λύσεις στο μέλλον.