Πώς να μετρήσετε τον αριθμό των επισημασμένων μηνυμάτων στο Outlook;

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

Μετρήστε τον αριθμό των επισημασμένων μηνυμάτων σε έναν λογαριασμό με τους φακέλους αναζήτησης

Μετρήστε τον αριθμό των επισημασμένων μηνυμάτων / επαφών / εργασιών ξεχωριστά σε όλους τους λογαριασμούς με κωδικό VBA

Μετρήστε τον αριθμό των επισημασμένων μηνυμάτων σε έναν λογαριασμό με τους φακέλους αναζήτησης

Για να μετρήσετε τον αριθμό των επισημασμένων email σε έναν λογαριασμό του Outlook, το Αναζήτηση φακέλων η δυνατότητα μπορεί να σας βοηθήσει, κάντε το εξής:

1. Κάντε δεξί κλικ Αναζήτηση φακέλων κάτω από τον λογαριασμό email σας και, στη συνέχεια, επιλέξτε Νέος φάκελος αναζήτησης, δείτε το στιγμιότυπο οθόνης:

2. Μετά ένα Νέος φάκελος αναζήτησης εμφανίζεται το παράθυρο διαλόγου, κάντε κλικ Επισήμανση αλληλογραφίας για παρακολούθηση επιλογή του Ανάγνωση αλληλογραφίας ενότητα, δείτε το στιγμιότυπο οθόνης:

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

Μετρήστε τον αριθμό των επισημασμένων μηνυμάτων / επαφών / εργασιών ξεχωριστά σε όλους τους λογαριασμούς με κωδικό VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ανοιχτή κενή ενότητα, δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Μετρήστε τον αριθμό των επισημασμένων χρόνων στο Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

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

---

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα Pro: Μαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά