Πώς να στείλετε υπενθύμιση μέσω email ή ειδοποίηση εάν το βιβλίο εργασίας είναι ενημερωμένο στο Excel;
Σε ορισμένες περιπτώσεις, ενδέχεται να χρειαστεί να ενεργοποιήσετε μια ειδοποίηση μέσω email σε έναν καθορισμένο παραλήπτη εάν υπάρχουν δεδομένα που ενημερώνονται στο βιβλίο εργασίας που έχετε στείλει. Αυτό το άρθρο θα σας δείξει τη μέθοδο για να το επιτύχετε.
Στείλτε υπενθύμιση μέσω email ή ειδοποίηση εάν το βιβλίο εργασίας έχει ενημερωθεί με κωδικό VBA
Στείλτε υπενθύμιση μέσω email ή ειδοποίηση εάν το βιβλίο εργασίας έχει ενημερωθεί με κωδικό VBA
Κάντε τα εξής για να στείλετε υπενθύμιση ή ειδοποίηση μέσω email εάν το βιβλίο εργασίας είναι ενημερωμένο.
1. Στο βιβλίο εργασίας, ανοίξτε ένα καθορισμένο φύλλο εργασίας που θα στείλετε ειδοποίηση μέσω email βάσει των ενημερωμένων δεδομένων μέσα.
2. Κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού δεξιού κλικ. Δείτε το στιγμιότυπο οθόνης:
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο παράθυρο κώδικα. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Στείλτε υπενθύμιση μέσω email ή ειδοποίηση εάν ενημερωθεί το βιβλίο εργασίας
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
Note: Αντικαταστήστε τη διεύθυνση email με τη διεύθυνση email παραλήπτη στη σειρά .To = "Διεύθυνση ηλεκτρονικού ταχυδρομείου". Και αλλάξτε τα πεδία Cc, Subject και body στον κώδικα VBA όπως χρειάζεστε.
3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
4. Μετά την επεξεργασία ενός κελιού στο φύλλο εργασίας, α Kutools για Excel θα εμφανιστεί το παράθυρο διαλόγου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Εάν θέλετε να επισυνάψετε το ενημερωμένο βιβλίο εργασίας στο email, κάντε κλικ στο Ναι κουμπί. Εάν όχι, κάντε κλικ στο Οχι κουμπί.
5. Στη συνέχεια, δημιουργείται αυτόματα ένα email με ή χωρίς να επισυνάπτεται το ενημερωμένο βιβλίο εργασίας. Και όλα τα καθορισμένα πεδία αναφέρονται επίσης στο email. Κάντε κλικ στο Αποστολή κουμπί για να το στείλετε.
Note: Ο κωδικός VBA λειτουργεί μόνο όταν χρησιμοποιείτε το Outlook ως πρόγραμμα ηλεκτρονικού ταχυδρομείου.
Σχετικά άρθρα:
- Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;
- Πώς να στείλετε ένα email μέσω του Outlook όταν το βιβλίο εργασίας είναι αποθηκευμένο στο Excel;
- Πώς να στείλετε email εάν ένα συγκεκριμένο κελί έχει τροποποιηθεί στο Excel;
- Πώς να στείλετε email εάν κάνετε κλικ στο κουμπί στο Excel;
- Πώς να στείλετε email εάν έχει πληρωθεί η προθεσμία στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!