3 hurtige metoder til at tælle alle mærkede elementer i din Outlook

Outlook giver dig mulighed for at markere elementer til opfølgning, såsom markering af e-mails, kontakter og så videre. I dette scenarie vil du nogle gange måske tælle de markerede elementer. Her vil vi dele 3 tilgange med dig.

Måske har du markeret et stort antal elementer til opfølgning i din Outlook. For eksempel kan du markere en kontakt, fordi du planlægger at ringe til denne kontakt senere. I lyset af så mange markerede genstande håber du måske at få en optælling af dem. Herefter vil vi præsentere dig for 3 midler.

Metode 1: Tæl via søgemappe

Hvis du blot ønsker at tælle de markerede e-mails, kan du gøre brug af søgemappen. Her er de detaljerede trin.

1. Til at starte med skal du højreklikke på "Søg i mapper" i navigationsruden til e-mail.
2. Vælg derefter "Ny søgemappe" fra dens kontekstmenu.
3. I pop op-dialogboksen skal du vælge "Mail markeret til opfølgning" og klikke på "OK".
4. Endelig vil du få et samlet antal markerede e-mails i søgemappen, som det følgende skærmbillede.

Metode 2: Tæl på opgavelisten

Hvis du har markeret ikke kun e-mails, men også kontakter, kontaktgrupper og så videre, vil du måske få et samlet antal af alle disse markerede elementer. I denne situation kan du bruge følgende måde.

1. Skift først til Opgaver-navigationsruden med "Ctrl + 4".
2. Gå derefter til "To-Do List", hvor du vil se alle de markerede elementer, vist som billedet nedenfor:
3. Vælg derefter alle disse elementer og tryk på "Enter"-tasten, og prøv at åbne dem i batches.
4. Efterfølgende vil du få en advarsel om at åbne for mange varer, som det følgende billede. I advarslen er der en samlet optælling af de markerede varer.

Metode 3: Tæl med Outlook VBA

Måske ønsker du ikke kun at få en samlet optælling af alle markerede varer, men du ønsker også at få optællingen af ​​separate typer af markerede varer. Her er en løsning i denne henseende.

1. Til at starte med skal du åbne Outlook VBA-editoren med henvisning til indlægget "Sådan køres VBA-kode i din Outlook".
2. Kopier derefter VBA-koden nedenfor til et modul eller 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. Til sidst skal du klikke på "CountFlaggedItems"-underrutinen og trykke på "F5"-knappen.
4. Når makroen er færdig, får du en meddelelse, der beder om det samlede antal af alle markerede elementer, som billedet nedenfor.

Bortskaf irriterende Outlook-problemer

I Outlook kan Outlook-problemer opstå nu og da. Derfor må du hellere have fat i en tip-top og troværdig Outlook-rettelse hjælpeprogram, ligesom DataNumen Outlook Repair. Det kan scanne din Outlook-fil intelligent og reparere filfejlene inden for få minutter.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com