3 métodos rápidos para contar todos los elementos marcados en su Outlook

Outlook le permite marcar elementos para seguimiento, como marcar correos electrónicos, contactos, etc. En este escenario, es posible que a veces desee contar los elementos marcados. Aquí compartiremos 3 enfoques contigo.

Quizás haya marcado una gran cantidad de elementos para realizar un seguimiento en su Outlook. Por ejemplo, puede marcar un contacto en el sentido de que planea llamar a este contacto más tarde. Frente a tantos elementos marcados, es posible que desee obtener un recuento de ellos. A continuación, le presentaremos 3 medios.

Método 1: contar a través de la carpeta de búsqueda

Si simplemente desea contar los correos electrónicos marcados, puede utilizar la carpeta de búsqueda. Estos son los pasos detallados.

1. Para empezar, en el panel de navegación del correo, haga clic con el botón derecho en "Buscar carpetas".
2. Luego, desde su menú contextual, seleccione "Nueva carpeta de búsqueda".
3. En el cuadro de diálogo emergente, seleccione "Correo marcado para seguimiento" y haga clic en "Aceptar".
4. Finalmente, obtendrá una cantidad total de correos electrónicos marcados en la carpeta de búsqueda, como la siguiente captura de pantalla.

Método 2: contar en la lista de tareas pendientes

Si ha marcado no solo correos electrónicos, sino también contactos, grupos de contactos, etc., es posible que desee obtener un recuento total de todos estos elementos marcados. En esta situación, puede utilizar la siguiente forma.

1. En primer lugar, cambie al panel de navegación de Tareas con "Ctrl + 4".
2. Luego, acceda a la "Lista de tareas pendientes", donde verá todos los elementos marcados, como se muestra en la imagen a continuación:
3. A continuación, seleccione todos estos elementos y presione el botón "Enter", tratando de abrirlos en lotes.
4. Posteriormente, recibirá una advertencia sobre la apertura de demasiados elementos, como la siguiente imagen. En la advertencia, hay un recuento total de los elementos marcados.

Método 3: cuente con Outlook VBA

Tal vez no solo desee obtener un recuento total de todos los elementos marcados, sino que también desee obtener los recuentos de tipos separados de elementos marcados. Aquí hay una solución a este respecto.

1. Para empezar, acceda al editor VBA de Outlook haciendo referencia a la publicación “Cómo ejecutar código VBA en su Outlook".
2. Luego copie el código VBA a continuación en un módulo o proyecto.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. Finalmente, haga clic en la subrutina "CountFlaggedItems" y presione el botón "F5".
4. Cuando se complete la macro, recibirá un mensaje que le indicará el recuento total de todos los elementos marcados, como la imagen a continuación.

Elimine los molestos problemas de Outlook

En Outlook, los problemas de Outlook pueden ocurrir de vez en cuando. Por lo tanto, es mejor que se apodere de un excelente y confiable Corrección de Outlook utilidad, como DataNumen Outlook Repair. Puede escanear su archivo de Outlook de forma inteligente y reparar los errores del archivo en cuestión de minutos.

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