¿Cómo contar el número de carpetas en una cuenta de correo electrónico específica o en todos los buzones de Outlook?
Este artículo explica cómo contar el número de carpetas en una cuenta de correo electrónico específica o en todos los buzones de 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»
Puede contar el número de carpetas en una cuenta de correo electrónico específica o en todos los buzones mediante el siguiente código VBA. Siga estos sencillos 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» > «UserForm». Consulte la captura de pantalla:
3. A continuación, inserte dos «Botones de opción» y dos «Botones de comando» en "UserForm1" y modifique el texto mostrado en los botones tal como se indica en la siguiente captura de pantalla.
4. Cambie el nombre del primer botón de opción a “opbCurAccount” y establezca su propiedad «Value» en «True». Consulte la captura de pantalla:
5. A continuación, cambie el nombre del segundo botón de opción a «opbAllAccounts». Luego, asigne los nombres «cdbOk» y «cdbCancel» a los dos botones de comando, respectivamente.
6. Haga doble clic en cualquier área en blanco de UserForm1 y, a continuación, sustituya el código original por 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 Sub8. Pulse la tecla "F5" para ejecutar el código. A continuación, aparecerá el cuadro de diálogo "UserForm1". Para contar el número de carpetas de 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, a continuación, haga clic en «Aceptar». Vea la captura de pantalla:
9. A continuación, aparecerá el cuadro de diálogo «Kutools para Outlook», que le indicará cuántas carpetas existen en la cuenta actual o en todos los buzones, tal como se muestra en la siguiente captura de pantalla. Haga clic en «Aceptar».
Nota: Se incluyen en el recuento de carpetas todas las carpetas ocultas, como la carpeta Configuración de acciones de conversación y la carpeta Configuración de pasos rápidos.
Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)
Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.
Esta función incluye:
- Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
- Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
- Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
- Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
- Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.
Esta función incluye:
- 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
¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace su trabajo mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools. Un solo instalador.
Kutools for Office es una suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, lo que la convierte en la opción ideal para equipos que trabajan con distintas aplicaciones de Office.
- Suite todo en uno— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Funcionan mejor juntos— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a comprar complementos por separado