3 brza metoda za prebrojavanje svih označenih stavki u vašem Outlooku

Outlook vam omogućava da označite stavke za praćenje, kao što je označavanje e-pošte, kontakata i tako dalje. U ovom scenariju, ponekad ćete možda htjeti prebrojati označene stavke. Ovdje ćemo s vama podijeliti 3 pristupa.

Možda ste označili veliki broj stavki za praćenje u svom Outlooku. Na primjer, možete označiti kontakt koji namjeravate nazvati kasnije. Suočeni s toliko označenih stavki, možda ćete se nadati da ćete ih prebrojati. Nakon toga ćemo vam predstaviti 3 sredstva.

Metoda 1: Brojanje preko foldera za pretragu

Ako jednostavno želite da prebrojite označene e-poruke, možete koristiti folder za pretragu. Evo detaljnih koraka.

1. Za početak, u oknu za navigaciju pošte, kliknite desnim tasterom miša na "Pretraži mape".
2. Zatim, iz njegovog kontekstnog menija, izaberite „Nova fascikla za pretragu“.
3. U iskačućem dijaloškom okviru odaberite “Pošta označena za praćenje” i kliknite “OK”.
4. Konačno, dobićete ukupan broj označenih e-poruka u folderu za pretragu, kao na sledećem snimku ekrana.

Metod 2: Brojite na listi obaveza

Ako ste označili ne samo e-poštu već i kontakte, grupe kontakata i tako dalje, možda biste željeli dobiti ukupan broj svih ovih označenih stavki. U ovoj situaciji možete koristiti sljedeći način.

1. Prvo, prebacite se na okno za navigaciju Zadaci pomoću “Ctrl + 4”.
2. Zatim, pristupite “To-Do Listi”, gdje ćete vidjeti sve označene stavke, prikazane na slici ispod:
3. Zatim odaberite sve ove stavke i pritisnite tipku "Enter", pokušavajući ih otvoriti u serijama.
4. Nakon toga ćete dobiti upozorenje o otvaranju previše stavki, kao na sljedećoj slici. U upozorenju je ukupan broj označenih stavki.

Metoda 3: Brojite sa Outlook VBA

Možda ne samo da želite da dobijete ukupan broj svih označenih stavki, već želite da dobijete i broj odvojenih tipova označenih stavki. Evo rješenja u tom pogledu.

1. Za početak, pristupite Outlook VBA editoru prema objavi "Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim kopirajte VBA kod ispod u modul ili projekat.

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. Na kraju, kliknite na potprogram “CountFlaggedItems” i pritisnite dugme “F5”.
4. Kada se makro završi, dobit ćete poruku koja će tražiti ukupan broj svih označenih stavki, kao na slici ispod.

Uklonite dosadne probleme s Outlookom

U programu Outlook, problemi s Outlookom mogu se pojaviti povremeno. Stoga je bolje da nabavite vrhunskog i pouzdanog Outlook popravka korisnost, kao DataNumen Outlook Repair. Može inteligentno skenirati vašu Outlook datoteku i popraviti greške u datoteci u roku od nekoliko minuta.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com