3 snelle methoden om alle gemarkeerde items in uw Outlook te tellen

Met Outlook kunt u items markeren voor follow-up, zoals het markeren van e-mails, contacten enzovoort. In dit scenario wilt u soms de gemarkeerde items tellen. Hier zullen we 3 benaderingen met u delen.

Misschien heeft u een groot aantal items gemarkeerd voor follow-up in uw Outlook. U kunt bijvoorbeeld een contactpersoon markeren omdat u van plan bent deze contactpersoon later te bellen. In het licht van zoveel gemarkeerde items, hoop je misschien een telling te krijgen. Daarna zullen we u 3 middelen voorstellen.

Methode 1: tellen via zoekmap

Als u alleen de gemarkeerde e-mails wilt tellen, kunt u de zoekmap gebruiken. Hier zijn de gedetailleerde stappen.

1. Om te beginnen klikt u in het navigatievenster van uw e-mailprogramma met de rechtermuisknop op 'Zoekmappen'.
2. Selecteer vervolgens in het contextmenu “Nieuwe zoekmap”.
3. Selecteer in het pop-upvenster "Mail gemarkeerd voor follow-up" en klik op "OK".
4. Ten slotte krijgt u een totaal aantal gemarkeerde e-mails in de zoekmap, zoals de volgende schermafbeelding.

Methode 2: tel in de takenlijst

Als u niet alleen e-mails hebt gemarkeerd, maar ook contacten, contactgroepen enzovoort, wilt u misschien een totaal aantal van al deze gemarkeerde items krijgen. In deze situatie kunt u de volgende manier gebruiken.

1. Schakel eerst over naar het Taken-navigatievenster met "Ctrl + 4".
2. Ga vervolgens naar de "Takenlijst", waar u alle gemarkeerde items ziet, weergegeven als de onderstaande afbeelding:
3. Selecteer vervolgens al deze items en druk op de “Enter” -toets om ze in batches te openen.
4. Vervolgens krijgt u een waarschuwing dat u te veel items opent, zoals de volgende afbeelding. In de waarschuwing is er een totale telling van de gemarkeerde items.

Methode 3: tel met Outlook VBA

Misschien wilt u niet alleen een totale telling krijgen van alle gemarkeerde items, maar ook de tellingen van afzonderlijke soorten gemarkeerde items. Hier is een oplossing in dit opzicht.

1. Om te beginnen opent u de VBA-editor van Outlook met behulp van de verwijzing in het bericht "Hoe u VBA-code in uw Outlook uitvoert'.
2. Kopieer vervolgens de onderstaande VBA-code naar een module of project.

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. Klik ten slotte op de "CountFlaggedItems" -subroutine en druk op de "F5" -knop.
4. Wanneer de macro is voltooid, krijgt u een bericht met het totale aantal gemarkeerde items, zoals in de onderstaande afbeelding.

Gooi vervelende Outlook-problemen weg

In Outlook kunnen Outlook-problemen af ​​en toe optreden. U kunt dus maar beter een tiptop en betrouwbaar in handen krijgen Outlook-oplossing hulpprogramma, zoals DataNumen Outlook Repair. Het kan uw Outlook-bestand intelligent scannen en de bestandsfouten binnen enkele minuten herstellen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com