Cómo obtener rápidamente el recuento total de subcarpetas en una carpeta específica en Outlook

Tal vez haya creado una gran cantidad de subcarpetas en una carpeta determinada, como Bandeja de entrada, en su Outlook. En este caso, si desea contar las subcarpetas, debe ser reacio a contar manualmente. Aquí te compartiremos una forma mucho más inteligente.

Para clasificar y archivar mejor los elementos en Outlook, muchos usuarios están acostumbrados a crear varias carpetas y subcarpetas. Sin embargo, después, pueden pensar que es un poco difícil administrar demasiadas carpetas. En este caso, es posible que deseen contar cuántas subcarpetas hay en una carpeta específica. Sin duda alguna, es estúpido y tedioso contar manualmente. Por lo tanto, a continuación, mostraremos un medio mucho más inteligente.

Obtenga el recuento total de subcarpetas en una carpeta específica

1. Al principio, start su programa Outlook.
2. Luego, en la ventana de Outlook, puede presionar los botones de tecla "Alt + F11" para acceder al editor de VBA.
3. A continuación, en la ventana emergente que aparece a continuación, debe abrir un módulo que no se esté utilizando.
4. Posteriormente, copie y pegue el siguiente código VBA en este módulo.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Después de eso, puede salir de la ventana actual.
6. Más tarde, vaya a "Archivo"> ​​"Opciones"> "Barra de herramientas de acceso rápido". Allí puede agregar la nueva macro a la barra de herramientas de acceso rápido.
7. Finalmente, puede probar esta macro.

• En primer lugar, seleccione una carpeta cuyas subcarpetas le gustaría contar.
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Inmediatamente, Outlook ejecutará esta macro.
• Una vez que finalice la macro, recibirá un mensaje, como la siguiente imagen:

Trucos para hacer frente a la corrupción de Outlook

Outlook es extremadamente vulnerable a una gran cantidad de factores, incluidos virus, problemas de software o hardware, cortes de energía, etc. Nadie puede garantizar que pueda mantener su archivo de Outlook lejos de la corrupción. Por lo tanto, es esencial dominar algunos trucos para hacer frente al daño. En primer lugar, debe realizar una copia de seguridad de PST con regularidad. Además, debe saber cómo utilizar escaneo, la herramienta de reparación incorporada. Por último, pero no menos importante, debe preparar una herramienta externa más robusta, como DataNumen Outlook repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com