Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να μετρήσετε τον αριθμό των υποφακέλων σε συγκεκριμένο φάκελο στο 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 εμφανίζεται το πλαίσιο διαλόγου για να σας πει πόσους υποφακέλους υπάρχουν στον καθορισμένο φάκελο. Δείτε το στιγμιότυπο οθόνης:


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


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.