3 brze metode za brojanje svih označenih stavki u vašem Outlooku

Outlook vam omogućuje označavanje stavki 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 u svom Outlooku označili velik broj stavki za praćenje. Na primjer, možete označiti kontakt koji planirate nazvati kasnije. S obzirom na toliko označenih stavki, možete se nadati da ćete ih prebrojati. U nastavku ćemo vam predstaviti 3 načina.

Metoda 1: Prebrojavanje putem mape za pretraživanje

Ako jednostavno želite brojati označene e-poruke, možete koristiti mapu za pretraživanje. Evo detaljnih koraka.

1. Za početak, u navigacijskom oknu pošte desnom tipkom miša kliknite "Pretraži mape".
2. Zatim iz kontekstnog izbornika odaberite "Nova mapa za pretraživanje".
3. U skočnom dijaloškom okviru odaberite "Pošta označena za praćenje" i kliknite "U redu".
4. Konačno, dobit ćete ukupan broj označenih e-poruka u mapi za pretraživanje, kao na sljedećoj snimci zaslona.

Metoda 2: Brojite na popisu obveza

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

1. Prvo se prebacite na navigacijsko okno Zadaci pomoću "Ctrl + 4".
2. Zatim pristupite "To-Do Listu", gdje ćete vidjeti sve označene stavke, prikazane na slici ispod:
3. Zatim odaberite sve te 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 postoji ukupan broj označenih stavki.

Metoda 3: Brojite uz Outlook VBA

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

1. Za početak, pristupite Outlook VBA editoru s obzirom na objavu "Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim kopirajte donji VBA kod u modul ili 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. Na kraju kliknite na potprogram “CountFlaggedItems” i pritisnite gumb “F5”.
4. Kada se makronaredba završi, dobit ćete poruku s upitom o ukupnom broju svih označenih stavki, kao na slici ispod.

Riješite se dosadnih Outlook problema

U Outlooku se tu i tamo mogu pojaviti problemi s Outlookom. Stoga je bolje da nabavite vrhunskog i pouzdanog Outlook popravak korisnost, poput DataNumen Outlook Repair. Može skenirati vašu Outlook datoteku inteligentno i popraviti pogreške datoteke u roku od nekoliko minuta.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com