¿Cómo contar el número de carpetas bajo una cuenta de correo electrónico específica o en todos los buzones en Outlook?

Este artículo trata sobre cómo contar el número de carpetas bajo una cuenta de correo electrónico específica o en todos los buzones en Outlook.

Contar el número de carpetas bajo una cuenta de correo electrónico específica o en todos los buzones con código VBA

"Contar el número de carpetas bajo una cuenta de correo electrónico específica o en todos los buzones con código VBA"

Puede contar el número de carpetas bajo una cuenta de correo específica o en todos los buzones con el siguiente código VBA. Por favor, siga los pasos a continuación.

1. Presione las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana "Microsoft Visual Basic para Aplicaciones", haga clic en "Insertar" > "UserForm". Ver captura de pantalla:

3. Luego, inserte dos "Botones de Opción" y dos "Botones de Comando" en "UserForm1", y cambie el texto mostrado en los botones como se muestra en la siguiente captura de pantalla.

4. Cambie el nombre del primer botón de opción a “opbCurAccount” y cambie la propiedad "value" a "True". Ver captura de pantalla:

5. Continúe cambiando el nombre del segundo botón de opción a "opbAllAccounts". Luego, especifique el nombre de los dos botones de comando como "cdbOk" y "cdbCancel" respectivamente.

6. Haga doble clic en cualquier lugar en blanco de UserForm1, y luego reemplace el código original con el siguiente código VBA en la ventana Userform1 (Código).

Código VBA: Contar el número de carpetas en Outlook

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Presione la tecla "F5" para ejecutar el código. Luego aparecerá un cuadro de diálogo "UserForm1", para contar el número de carpetas en la cuenta actual, seleccione la opción "Cuenta Actual" y haga clic en el botón "Aceptar". Para contar el número de carpetas en todos los buzones, elija la opción "Todas las Cuentas" y luego haga clic en el botón "Aceptar". Ver captura de pantalla:

9. Luego aparecerá un cuadro de diálogo "Kutools para Outlook" que le informará cuántas carpetas existen en la cuenta actual o en todos los buzones como se muestra en la siguiente captura de pantalla. Haga clic en el botón "Aceptar".

Nota: Todas las carpetas ocultas, como la carpeta Configuración de Acción de Conversación y la carpeta Configuración de Pasos Rápidos, están incluidas en el recuento de carpetas.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

• Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
• Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
• Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
• Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
• Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
• Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

• Respuestas inteligentes de correo electrónico
• Contenido optimizado
• Borradores basados en palabras clave
• Extensión inteligente de contenido
• Resumen de correos electrónicos
• Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!

Artículos relacionados:

• ¿Cómo mostrar un cuadro de diálogo "Examinar Carpeta" para elegir una carpeta en Outlook?