3 γρήγορες μέθοδοι για τη μέτρηση όλων των επισημασμένων στοιχείων στο Outlook

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

Ίσως έχετε επισημάνει έναν μεγάλο αριθμό στοιχείων για παρακολούθηση στο Outlook. Για παράδειγμα, μπορείτε να επισημάνετε μια επαφή με την οποία σκοπεύετε να καλέσετε αυτήν την επαφή αργότερα. Αντιμέτωποι με τόσα πολλά επισημασμένα αντικείμενα, ίσως ελπίζετε να λάβετε μια μέτρηση από αυτά. Στη συνέχεια, θα σας παρουσιάσουμε 3 μέσα.

Μέθοδος 1: Καταμέτρηση μέσω φακέλου αναζήτησης

Εάν θέλετε απλώς να μετρήσετε τα επισημασμένα email, μπορείτε να χρησιμοποιήσετε το φάκελο αναζήτησης. Εδώ είναι τα λεπτομερή βήματα.

1. Για να ξεκινήσετε, στο παράθυρο πλοήγησης αλληλογραφίας, κάντε δεξί κλικ στο "Αναζήτηση φακέλων".
2. Στη συνέχεια, από το μενού περιβάλλοντος, επιλέξτε "Νέος φάκελος αναζήτησης".
3. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε "Mail επισημασμένο για παρακολούθηση" και κάντε κλικ στο "OK".
4. Τέλος, θα λάβετε έναν συνολικό αριθμό μηνυμάτων ηλεκτρονικού ταχυδρομείου που έχουν επισημανθεί στο φάκελο αναζήτησης, όπως το παρακάτω στιγμιότυπο οθόνης.

Μέθοδος 2: Καταμέτρηση στη λίστα υποχρεώσεων

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

1. Αρχικά, μεταβείτε στο παράθυρο πλοήγησης εργασιών με "Ctrl + 4".
2. Στη συνέχεια, μεταβείτε στη "Λίστα υποχρεώσεων", όπου θα δείτε όλα τα επισημασμένα στοιχεία, όπως φαίνεται παρακάτω:
3. Στη συνέχεια, επιλέξτε όλα αυτά τα στοιχεία και πατήστε το πλήκτρο "Enter", προσπαθώντας να τα ανοίξετε σε παρτίδες.
4. Στη συνέχεια, θα λάβετε μια προειδοποίηση για το άνοιγμα πάρα πολλών αντικειμένων, όπως η παρακάτω εικόνα. Στην προειδοποίηση, υπάρχει μια συνολική μέτρηση των επισημασμένων στοιχείων.

Μέθοδος 3: Καταμέτρηση με το Outlook VBA

Ίσως όχι μόνο να θέλετε να λάβετε μια συνολική μέτρηση όλων των επισημασμένων αντικειμένων, αλλά επίσης να θέλετε να λάβετε τις μετρήσεις ξεχωριστών τύπων επισημασμένων στοιχείων. Εδώ είναι μια λύση από αυτή την άποψη.

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

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. Τέλος, κάντε κλικ στην υπορουτίνα "CountFlaggedItems" και πατήστε το κουμπί "F5".
4. Όταν ολοκληρωθεί η μακροεντολή, θα λάβετε ένα μήνυμα, το οποίο θα σας ζητά τον συνολικό αριθμό όλων των επισημασμένων στοιχείων, όπως η παρακάτω εικόνα.

Απορρίψτε τα ενοχλητικά προβλήματα του Outlook

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

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

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