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

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

Μετρήστε τον αριθμό υποφακέλων με κωδικό VBA

Μετρήστε τον αριθμό υποφακέλων με κωδικό VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να μετρήσετε τον αριθμό των υποφακέλων σε έναν συγκεκριμένο ριζικό φάκελο στο Outlook. Κάντε τα εξής:

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: μέτρηση του αριθμού των υποφακέλων σε συγκεκριμένο φάκελο στο Outlook

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.

4. Στο άνοιγμα Επιλογή φακέλου στο παράθυρο διαλόγου, επιλέξτε έναν φάκελο που θα μετρήσετε τους υποφακέλους του και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

5. Τότε α Kutools για το Outlook Εμφανίζεται το παράθυρο διαλόγου για να σας πει πόσοι υποφάκελοι υπάρχουν στον καθορισμένο φάκελο. Δείτε στιγμιότυπο οθόνης:

Σχετικά άρθρα:

• Πώς να μετρήσετε τον αριθμό των φακέλων κάτω από καθορισμένο λογαριασμό email ή όλα τα γραμματοκιβώτια στο Outlook;
• Πώς να ενοποιήσετε όλα τα εισερχόμενα πολλαπλών λογαριασμών για να εμφανίζονται όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου μαζί στο Outlook;
• Πώς να εμφανίσετε το παράθυρο διαλόγου "Αναζήτηση για φάκελο" για την επιλογή ενός φακέλου στο Outlook;
• Πώς μπορείτε να βρείτε έναν φάκελο που λείπει που μετακινήθηκε κατά λάθος στο Outlook;

---

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

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

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