¿Cómo contar el número de subcarpetas que hay dentro de una carpeta específica en Outlook?

Supongamos que ha creado algunas carpetas bajo una carpeta raíz. Ahora desea saber cuántas subcarpetas hay bajo dicha carpeta raíz. ¿Cómo puede hacerlo? ¿Basta con expandir la carpeta raíz y contar manualmente todas las subcarpetas una por una? Este artículo le presentará un método sencillo para lograrlo.

Contar el número de subcarpetas con código VBA

---

Contar el número de subcarpetas con código VBA

El siguiente código VBA le permite contar el número de subcarpetas dentro de una carpeta raíz específica en Outlook. Siga estos pasos:

1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código VBA en la ventana de código.

Código VBA: contar el número de subcarpetas bajo una carpeta determinada en 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. Pulse la tecla F5 para ejecutar el código.

4. En el cuadro de diálogo Seleccionar carpeta que se abre, seleccione la carpeta cuyas subcarpetas desea contar y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:

5. A continuación, aparece un cuadro de diálogo Kutools para Outlook que le indica cuántas subcarpetas existen en la carpeta especificada. Vea la captura de pantalla:

---

Artículos relacionados:

• ¿Cómo contar el número de carpetas en una cuenta de correo electrónico específica o en todos los buzones de Outlook?
• ¿Cómo unificar las bandejas de entrada de varias cuentas para ver todos los correos electrónicos juntos en Outlook?
• ¿Cómo mostrar un cuadro de diálogo «Examinar para buscar carpeta» y seleccionar una carpeta en Outlook?
• ¿Cómo localizar una carpeta que se movió accidentalmente en Outlook y ahora no encuentras?