3 raske metoder for å telle alle flaggede elementer i Outlook

Outlook lar deg flagge elementer for oppfølging, for eksempel flagging av e-poster, kontakter og så videre. I dette scenariet vil du kanskje noen ganger telle de flaggede elementene. Her vil vi dele 3 tilnærminger med deg.

Kanskje du har flagget et stort antall elementer for oppfølging i Outlook. Du kan for eksempel flagge en kontakt ved at du planlegger å ringe denne kontakten senere. I møte med så mange flaggede elementer, håper du kanskje å få en telling av dem. Deretter vil vi introdusere deg 3 virkemidler.

Metode 1: Tell via søkemappe

Hvis du bare vil telle de flaggede e-postene, kan du bruke søkemappen. Her er de detaljerte trinnene.

1. For å begynne, høyreklikk på «Søk i mapper» i e-postnavigasjonsruten.
2. Velg deretter "Ny søkemappe" fra kontekstmenyen.
3. I popup-dialogboksen velger du "E-post flagget for oppfølging" og klikker på "OK".
4. Til slutt vil du få et totalt antall flaggede e-poster i søkemappen, som følgende skjermbilde.

Metode 2: Tell i oppgavelisten

Hvis du har flagget ikke bare e-poster, men også kontakter, kontaktgrupper og så videre, kan det være lurt å få en total telling av alle disse flaggede elementene. I denne situasjonen kan du bruke følgende måte.

1. Bytt først til Oppgaver-navigasjonsruten ved å "Ctrl + 4".
2. Gå deretter til "Gjøremålslisten", hvor du vil se alle de flaggede elementene, vist som bildet nedenfor:
3. Deretter velger du alle disse elementene og trykker på "Enter"-tasten, og prøver å åpne dem i grupper.
4. Deretter vil du få en advarsel om å åpne for mange gjenstander, som det følgende bildet. I advarselen er det en total telling av de flaggede varene.

Metode 3: Tell med Outlook VBA

Kanskje du ikke bare ønsker å få en total telling av alle flaggede elementer, men du ønsker også å få tellinger for separate typer flaggede elementer. Her er en løsning i så henseende.

1. For en start, gå til Outlook VBA-editoren med henvisning til innlegget "Hvordan kjøre VBA-kode i Outlook".
2. Kopier deretter VBA-koden nedenfor til en modul eller et prosjekt.

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. Til slutt klikker du på "CountFlaggedItems"-underrutinen og trykker på "F5"-knappen.
4. Når makroen er fullført, får du en melding som ber om det totale antallet av alle flaggede elementer, som bildet nedenfor.

Kast irriterende Outlook-problemer

I Outlook kan Outlook-problemer oppstå nå og da. Derfor bør du få tak i en tipp-topp og pålitelig Outlook-fiks nytte, som DataNumen Outlook Repair. Den kan skanne Outlook-filen din intelligent og reparere filfeilene i løpet av minutter.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med