¿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?
Este artículo habla sobre el recuento de carpetas en una cuenta de correo electrónico específica o en todos los buzones de correo de Outlook.
Cuente el número de carpetas en la cuenta de correo electrónico especificada o todos los buzones de correo con código VBA
Puede contar el número de carpetas en la cuenta de correo electrónico especificada o todos los buzones de correo con el código VBA a continuación. 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 > Formulario de usuario. Ver captura de pantalla:
3. Luego inserte dos Botones de opción y dos Botones de comando dentro Formulario de usuario1y cambie el texto de visualización de los botones como se muestra a continuación.
4. Cambie el nombre del primer botón de opción a "opbCuentaCur"Y cambiar el propuesta de propiedad a ¿Editas con tu equipo de forma remota?. Ver captura de pantalla:
5. Continúe cambiando el nombre del segundo botón de opción a "opbTodasLasCuentas”. Y luego especifique el nombre de los dos botones de comando para "cdbBien"Y"cdbCancelar”Por separado.
6. Haga doble clic en cualquier lugar en blanco de UserForm1 y luego reemplace el código original con el código VBA que se muestra a continuación en la ventana Userform1 (Código).
Código VBA: cuente 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 el F5 clave para ejecutar el código. Entonces un Formulario de usuario1 Aparece un cuadro de diálogo, para contar el número de carpetas en la cuenta actual, seleccione la opción Cuenta Corriente opción y haga clic en OK botón. Para contar el número de carpetas en todos los buzones, elija la opción Todas las cuentas opción y luego haga clic en OK botón. Ver captura de pantalla:
9. Entonces un Kutools para Outlook Aparece un cuadro de diálogo que le indica cuántas carpetas existen en la cuenta actual o en todos los buzones de correo, como se muestra a continuación. Por favor haga clic en OK del botón.
Note: Todas las carpetas ocultas, como la carpeta Configuración de acciones de conversación y la carpeta Configuración de pasos rápidos, se incluyen en el recuento de carpetas.
Artículos relacionados:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for 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 lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!