¿Cómo contar el número de subcarpetas en cierta carpeta en Outlook?
Supongamos que ha creado algunas carpetas en una carpeta raíz. Ahora quiere saber cuántas subcarpetas hay en la carpeta raíz, ¿cómo puede hacerlo? ¿Simplemente expanda la carpeta raíz y cuente manualmente todas las subcarpetas una por una? Este artículo 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 ayudarlo a contar el número de subcarpetas en una determinada carpeta raíz en Outlook. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el código VBA debajo en la ventana Código.
Código de VBA: cuente el número de subcarpetas en cierta carpeta 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. presione el F5 clave para ejecutar el código.
4. En la apertura Seleccionar carpeta cuadro de diálogo, seleccione una carpeta, contará sus subcarpetas y luego haga clic en el OK botón. Ver captura de pantalla:
5. Entonces un Kutools para Outlook Aparece un cuadro de diálogo que le indica cuántas subcarpetas existen en la carpeta especificada. Ver captura de pantalla:
Artículos relacionados:
- ¿Cómo contar el número de carpetas en una cuenta de correo electrónico especificada o en todos los buzones de correo en Outlook?
- ¿Cómo unificar todas las bandejas de entrada de varias 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 se movió por accidente en Outlook?
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.
