Κάθε φορά που ενημερώνετε ένα συγκεκριμένο φύλλο εργασίας του Excel, εάν χρειάζεται πάντα να στέλνετε μια ειδοποίηση μέσω email σε συγκεκριμένους παραλήπτες, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο.
Ορισμένοι χρήστες ζητούν μια λύση που θα επιτρέπει στο MS Excel να στέλνει αυτόματα μια ειδοποίηση ηλεκτρονικού ταχυδρομείου του Outlook σε συγκεκριμένα άτομα κάθε φορά που ενημερώνουν ένα συγκεκριμένο φύλλο εργασίας, δεδομένου ότι συχνά ξεχνούν να στείλουν ένα τέτοιο μήνυμα ηλεκτρονικού ταχυδρομείου. Τώρα, στα ακόλουθα, θα καθοδηγήσουμε πώς να επιτύχετε αυτήν τη λειτουργία με τον κώδικα VBA.
Αυτόματη αποστολή μηνύματος ηλεκτρονικού ταχυδρομείου κατά την ενημέρωση ενός συγκεκριμένου φύλλου εργασίας του Excel
- Αρχικά, αποκτήστε πρόσβαση στο βιβλίο εργασίας του Excel προέλευσης που περιέχει το συγκεκριμένο φύλλο εργασίας.
- Στη συνέχεια, στο παράθυρο του MS Excel, μεταβείτε στο μενού «Αρχείο» και επιλέξτε «Επιλογές».
- Στη συνέχεια, στο παράθυρο «Επιλογές Excel», μεταβείτε στην καρτέλα «Κέντρο αξιοπιστίας» και κάντε κλικ στο κουμπί «Ρυθμίσεις Κέντρου αξιοπιστίας».
- Στη συνέχεια, στο νέο παράθυρο, μεταβείτε στην καρτέλα "Macro Settings", κάτω από την οποία θα πρέπει να επιλέξετε "Enable all macros".
- Μετά από αυτό, μεταβείτε στην καρτέλα "Επιλογές απορρήτου" και ενεργοποιήστε τη δυνατότητα "Κατάργηση προσωπικών πληροφοριών από τις ιδιότητες αρχείων κατά την αποθήκευση".
- Στη συνέχεια, κάντε κλικ σε πολλά "OK" για να αποθηκεύσετε αυτές τις ρυθμίσεις.
- Μετά τη δημιουργία αντιγράφων ασφαλείας στο βιβλίο εργασίας του Excel, αποκτήστε πρόσβαση στο συγκεκριμένο φύλλο εργασίας.
- Κάντε δεξί κλικ στο όνομα του φύλλου εργασίας στην κάτω πλαϊνή γραμμή και επιλέξτε "Προβολή κώδικα".
- Μετά από αυτό, αντιγράψτε τον παρακάτω κώδικα VBA στο έργο του συγκεκριμένου φύλλου.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Μετά από αυτό, θα πρέπει να αποθηκεύσετε αυτό το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα Macro-Enabled του Excel.
- Αρχικά, κλείστε το παράθυρο "Microsoft Visual Basic for Applications".
- Στη συνέχεια, κάντε κλικ στο «Αρχείο» στην επάνω αριστερή γωνία.
- Στη συνέχεια, επιλέξτε "Αποθήκευση ως".
- Στο παράθυρο διαλόγου, επιλέξτε το "Excel Macro-Enabled Workbook" στο πεδίο "Save as type".
- Τέλος, κάντε κλικ στο κουμπί «Αποθήκευση».
- Τέλος, μπορείτε να κλείσετε αυτό το βιβλίο εργασίας.
- Τώρα, μπορείτε να ανοίξετε το προηγουμένως αποθηκευμένο βιβλίο εργασίας με δυνατότητα μακροεντολής του Excel.
- Όταν κάνετε οποιεσδήποτε αλλαγές στο συγκεκριμένο φύλλο εργασίας, θα λάβετε ένα μήνυμα που θα σας ρωτά εάν πρέπει να στείλετε μια ειδοποίηση μέσω email.
- Όταν κάνετε κλικ στο κουμπί «Ναι», θα σταλεί ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook στους προκαθορισμένους παραλήπτες.
- Αυτό το email θα μοιάζει με το στιγμιότυπο οθόνης παρακάτω:
Επιδιόρθωση κατεστραμμένου αρχείου δεδομένων του Outlook
Ίσως έχετε αντιμετωπίσει ποτέ καταστροφή αρχείων Excel. Στην πραγματικότητα, το αρχείο δεδομένων του Outlook είναι το ίδιο ευάλωτο με το αρχείο Excel. Για παράδειγμα, το ακατάλληλο κλείσιμο του Outlook μπορεί να οδηγήσει σε καταστροφή αρχείων PST εύκολα. Επομένως, είναι απαραίτητο να λάβετε μέτρα για την προστασία του αρχείου του Outlook, συμπεριλαμβανομένης της δημιουργίας τακτικών αντιγράφων ασφαλείας δεδομένων καθώς και της προετοιμασίας ενός ισχυρού εργαλείου επιδιόρθωσης PST, όπως π.χ. DataNumen Outlook Repair. Αυτό το βοηθητικό πρόγραμμα είναι αρκετά ισχυρό για να επισκευή PST προβλήματα και ανάκτηση δεδομένων PST.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com