Πώς να ορίσετε διαφορετικές σημαίες γρήγορου κλικ για διαφορετικούς τύπους αντικειμένων του Outlook

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

Για να ορίσετε τη σημαία γρήγορου κλικ, μπορείτε να κάνετε δεξί κλικ στη στήλη "σημαία" ενός στοιχείου και να επιλέξετε "Ορισμός γρήγορου κλικ". Στη συνέχεια, στο αναδυόμενο μικρό παράθυρο διαλόγου, επιλέξτε τη σημαία κατά βούληση. Από προεπιλογή, το Outlook θα εφαρμόσει αυτήν τη σημαία γρήγορου κλικ για όλα τα είδη στοιχείων. Ωστόσο, στην πραγματικότητα, η πλειοψηφία των χρηστών ελπίζει να εφαρμόσει διαφορετικές σημαίες γρήγορου κλικ σε διαφορετικούς τύπους στοιχείων του Outlook. Επομένως, στα ακόλουθα, θα σας μάθουμε να το λαμβάνετε χρησιμοποιώντας ένα παράδειγμα email και επαφών.

Ορίστε διαφορετικές σημαίες γρήγορου κλικ για διαφορετικά είδη αντικειμένων του Outlook

1. Στην αρχή, start Επεξεργαστής VBA του Outlook με αναφορά στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
2. Στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα VBA στο έργο "ThisOutlookSession".

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Στη συνέχεια, τοποθετήστε τον κέρσορα στο "Application_Startup” υπορουτίνα και πατήστε το πλήκτρο “F5” για να ενεργοποιήσετε αυτή τη μακροεντολή.
4. Τελικά, μπορείτε να δοκιμάσετε.

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

Απαγόρευση κακόβουλων email

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

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com