Come contare il numero di sottocartelle in una determinata cartella in Outlook?
Supponiamo che tu abbia creato alcune cartelle sotto una cartella principale. Ora vuoi sapere quante sottocartelle ci sono sotto la cartella principale, come puoi fare? Espandere semplicemente la cartella principale e contare manualmente tutte le sottocartelle una per una? Questo articolo ti presenterà un metodo semplice per raggiungere questo obiettivo.
Conta il numero di sottocartelle con il codice VBA
Conta il numero di sottocartelle con il codice VBA
Il seguente codice VBA può aiutarti a contare il numero di sottocartelle sotto una determinata cartella principale in Outlook. Procedi come segue.
1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il seguente codice VBA nella finestra del Codice.
Codice VBA: conta il numero di sottocartelle in una determinata cartella in 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 Sub3. Premi il tasto F5 per eseguire il codice.
4. Nella finestra di dialogo Seleziona Cartella che si apre, seleziona una cartella di cui vuoi contare le sottocartelle, quindi fai clic sul pulsante OK. Vedi screenshot:
5. Successivamente, apparirà una finestra di dialogo di Kutools per Outlook che ti informerà su quante sottocartelle esistono nella cartella specificata. Vedi screenshot:
Articoli correlati:
- Come contare il numero di cartelle sotto un account email specificato o tutte le caselle di posta in Outlook?
- Come unificare tutte le caselle di posta in arrivo di più account per visualizzare tutte le email insieme in Outlook?
- Come visualizzare una finestra di dialogo “Sfoglia per Cartella” per scegliere una cartella in Outlook?
- Come trovare una cartella mancante che è stata spostata accidentalmente in Outlook?
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
