¿Cómo contar el número de subcarpetas bajo una carpeta específica en Outlook?
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 Sub3. 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:
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:
Artículos relacionados:
- ¿Cómo contar el número de carpetas bajo una cuenta de correo electrónico específica o todos los buzones en Outlook?
- ¿Cómo unificar todas las bandejas de entrada de múltiples cuentas para mostrar todos los correos electrónicos juntos en Outlook?
- ¿Cómo mostrar un cuadro de diálogo “Buscar carpeta” para elegir una carpeta en Outlook?
- ¿Cómo encontrar una carpeta perdida que fue movida accidentalmente en Outlook?
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
