Το Outlook επιτρέπει στους χρήστες να επισημαίνουν μηνύματα ηλεκτρονικού ταχυδρομείου με μια προσαρμοσμένη υπενθύμιση παρακολούθησης και ημερομηνία λήξης. Αλλά πρέπει να το επιλέξετε και να το ενεργοποιήσετε χειροκίνητα. Αυτό το άρθρο θα σας διδάξει πώς να το επιτύχετε αυτόματα μέσω VBA.
Το Outlook μας παρέχει τη δυνατότητα "Σημαία", η οποία μας επιτρέπει να παρακολουθούμε τα κρίσιμα μηνύματα ηλεκτρονικού ταχυδρομείου πολύ πιο εύκολα. Όχι μόνο μπορεί να μας επιτρέψει να κάνουμε ένα email, αλλά και μας επιτρέπει να επιλέξουμε ένα προτιμώμενο εικονίδιο σημαίας, να ορίσουμε μια συγκεκριμένη ημερομηνία λήξης και ακόμη και να καθορίσουμε μια προσαρμοσμένη υπενθύμιση στο email. Χωρίς αμφιβολίες, είναι πολύ βολικό.
Αλλά πολλοί χρήστες εξακολουθούν να έχουν άλλη επιθυμία. Ελπίζουν ότι το Outlook μπορεί να καθορίσει αυτόματα μια σχετικά σταθερή προσαρμοσμένη ημερομηνία λήξης και ώρα υπενθύμισης στα επισημασμένα μηνύματα ηλεκτρονικού ταχυδρομείου, όπως 3 ημέρες μετά από σήμερα, 1 εβδομάδα μετά σήμερα, κ.λπ. Για να είμαι ειλικρινής, το Outlook δεν διαθέτει τέτοια εγγενή δυνατότητα. Ως εκ τούτου, πρέπει να επαναλάβετε σε άλλα μέσα, για παράδειγμα, το VBA. Εδώ θα σας διδάξουμε πώς να χρησιμοποιήσετε το Outlook VBA για να εκπληρώσετε αυτήν την απαίτηση. Διαβάστε παρακάτω για να το δείτε αναλυτικά.
Αυτόματη ρύθμιση υπενθύμισης και προθεσμίας κατά την επισήμανση ενός email του Outlook
- Στην αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, μπορείτε να πατήσετε "Alt + F11" συντομεύσεις πλήκτρων για να αποκτήσετε πρόσβαση στον επεξεργαστή VBA.
- Στη συνέχεια, στο ακόλουθο παράθυρο "Microsoft Visual Basic for Applications", πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους παρακάτω κωδικούς VBA.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- Μετά από αυτό, πρέπει να υπογράψετε αυτόν τον κωδικό ως κανονικό.
- Αργότερα, βγείτε από τον επεξεργαστή VBA και συνεχίστε να αλλάζετε τις ρυθμίσεις μακροεντολών του Outlook για να ενεργοποιήσετε μόνο τις ψηφιακά υπογεγραμμένες μακροεντολές.
- Τέλος, πρέπει να επανεκκινήσετε το Outlook για να ενεργοποιήσετε τη νέα μακροεντολή. Μετά από αυτό, μπορείτε να δοκιμάσετε.
- Κάντε κλικ στο εικονίδιο σημαίας στην ουρά ενός στοιχείου email.
- Αμέσως, η σημαία θα αλλάξει αυτόματα σε εικονίδιο "Επόμενη εβδομάδα σημαία".
- Και η ημερομηνία λήξης και η ώρα υπενθύμισης θα οριστούν ανάλογα με την προεπιλογή σας στους κωδικούς.
Μην πανικοβληθείτε εάν συναντήσετε σφάλμα στο Outlook
Όταν το Outlook καταρρέει απροσδόκητα, οι περισσότεροι άνθρωποι θα πανικοβληθούν, καθώς φοβούνται ότι τα δεδομένα του Outlook τους θα καταστραφούν. Αλλά στην πραγματικότητα, αν έχετε λάβει επαρκείς προφυλάξεις, δεν θα πανικοβληθείτε ποτέ. Το πιο σημαντικό μέτρο είναι να δημιουργείτε αντίγραφα ασφαλείας των αρχείων PST τακτικά. Επιπλέον, μπορείτε επίσης να ανακτήσετε τα δεδομένα σας από ένα κορυφαίο εργαλείο. κατεστραμμένο Outlook δεδομένα, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com