3 snabba metoder för att räkna alla flaggade objekt i din Outlook

Outlook låter dig flagga objekt för uppföljning, till exempel flagga e-post, kontakter och så vidare. I det här scenariot kanske du ibland vill räkna de flaggade objekten. Här delar vi tre tillvägagångssätt med dig.

Du kanske har flaggat ett stort antal objekt för uppföljning i din Outlook. Du kan till exempel flagga en kontakt genom att du planerar att ringa den här kontakten senare. Med tanke på så många flaggade föremål kan du hoppas att få ett antal av dem. Därefter presenterar vi tre medel.

Metod 1: Räkna via sökmapp

Om du bara vill räkna de flaggade e-postmeddelandena kan du använda sökmappen. Här är de detaljerade stegen.

1. Till att börja med, högerklicka på "Sökmappar" i e-postnavigeringsfönstret.
2. Välj sedan "Ny sökmapp" från snabbmenyn.
3. I popup-dialogrutan väljer du "E-post flaggad för uppföljning" och klickar på "OK".
4. Slutligen får du ett totalt antal flaggade e-postmeddelanden i sökmappen, som följande skärmdump.

Metod 2: Räkna i att göra-listan

Om du inte bara har flaggat e-post utan också kontakter, kontaktgrupper och så vidare kanske du vill få ett totalt antal av dessa flaggade objekt. I den här situationen kan du använda följande sätt.

1. Byt först till navigeringsfönstret Uppgifter med “Ctrl + 4”.
2. Gå sedan till "Att göra-listan", där du kommer att se alla flaggade föremål, som bilden nedan:
3. Välj sedan alla dessa objekt och tryck på ”Enter” -knappen och försök att öppna dem i satser.
4. Därefter får du en varning om att öppna för många objekt, som följande bild. I varningen finns det totalt antal flaggade föremål.

Metod 3: Räkna med Outlook VBA

Kanske vill du inte bara få ett totalt antal av alla flaggade föremål, utan också att du vill få antalet olika flaggade föremål. Här är en lösning i detta avseende.

1. Till att börja med, gå till Outlook VBA-redigeraren med hänvisning till inlägget "Hur du kör VBA-kod i din Outlook".
2. Kopiera sedan VBA-koden nedan till en modul eller ett projekt.

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. Slutligen klickar du på underrutinen “CountFlaggedItems” och trycker på “F5” -knappen.
4. När makrot är klart får du ett meddelande som ber det totala antalet flaggade objekt, som bilden nedan.

Kassera irriterande Outlook-problem

I Outlook kan Outlook-problem uppstå då och då. Således skulle du bättre få tag i en tip-top och pålitlig Outlook-fix verktyg, som DataNumen Outlook Repair. Det kan skanna din Outlook-fil intelligent och reparera filfelen inom några minuter.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com