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

Author: Siluvia Last Modified: 2025-08-06

Supongamos que has creado algunas carpetas bajo una carpeta raíz. Ahora quieres saber cuántas subcarpetas hay bajo la carpeta raíz, ¿cómo lo puedes hacer? ¿Solo expandir la carpeta raíz y contar manualmente todas las subcarpetas una por una? Este artículo te presentará un método fácil 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 puede ayudarte a contar el número de subcarpetas bajo una carpeta raíz específica en Outlook. Por favor, sigue los siguientes pasos.

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

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana de Código.

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

4. En el cuadro de diálogo Seleccionar Carpeta que aparece, selecciona una carpeta de la cual contarás las subcarpetas y luego haz clic en el botón Aceptar. Ver captura de pantalla:

steps on counting number of subfolders under certain folder in Outlook using vba

5. Luego aparecerá un cuadro de diálogo de Kutools para Outlook indicándote cuántas subcarpetas existen en la carpeta especificada. Ver captura de pantalla: