3 hitre metode za štetje vseh označenih elementov v vašem Outlooku

Outlook vam omogoča označevanje elementov za nadaljnje ukrepanje, kot je označevanje e-pošte, stikov in tako naprej. V tem scenariju boste včasih morda želeli prešteti označene elemente. Tukaj bomo z vami delili 3 pristope.

Morda ste v svojem Outlooku označili veliko število elementov za spremljanje. Na primer, lahko označite stik, ki ga nameravate poklicati pozneje. Glede na toliko označenih elementov lahko upate, da jih boste prešteli. V nadaljevanju vam bomo predstavili 3 sredstva.

1. način: štetje prek iskalne mape

Če preprosto želite prešteti označena e-poštna sporočila, lahko uporabite iskalno mapo. Tukaj so podrobni koraki.

1. Za začetek v podoknu za navigacijo po pošti z desno miškino tipko kliknite »Iskanje po mapah«.
2. Nato v kontekstnem meniju izberite »Nova iskalna mapa«.
3. V pojavnem pogovornem oknu izberite »Pošta označena za spremljanje« in kliknite »V redu«.
4. Končno boste v iskalni mapi prejeli skupno število označenih e-poštnih sporočil, kot je naslednji posnetek zaslona.

2. način: štetje na seznamu opravil

Če niste označili le e-pošte, ampak tudi stike, skupine stikov in tako naprej, boste morda želeli pridobiti skupno število vseh teh označenih elementov. V tej situaciji lahko uporabite naslednji način.

1. Najprej preklopite na navigacijsko podokno Opravila s tipko »Ctrl + 4«.
2. Nato odprite »Seznam opravil«, kjer boste videli vse označene elemente, prikazane na spodnji sliki:
3. Nato izberite vse te elemente in pritisnite tipko "Enter", da jih poskušate odpreti v serijah.
4. Kasneje boste prejeli opozorilo o odpiranju preveč elementov, kot je naslednja slika. V opozorilu je skupno število označenih elementov.

3. način: štetje z Outlook VBA

Morda ne želite samo pridobiti skupnega števila vseh označenih elementov, ampak želite pridobiti tudi število ločenih vrst označenih elementov. Tukaj je rešitev v zvezi s tem.

1. Za začetek dostopajte do urejevalnika Outlook VBA s sklicevanjem na objavo "Kako zagnati kodo VBA v Outlooku".
2. Nato kopirajte spodnjo kodo VBA v modul ali 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 koncu kliknite podprogram »CountFlaggedItems« in pritisnite gumb »F5«.
4. Ko se makro zaključi, boste prejeli sporočilo s pozivom za skupno število vseh označenih elementov, kot je prikazano na spodnji sliki.

Znebite se nadležnih Outlookovih težav

V Outlooku se lahko občasno pojavijo težave z Outlookom. Zato je bolje, da dobite vrhunskega in zaupanja vrednega Outlook popravek uporabnost, kot DataNumen Outlook Repair. Pametno lahko skenira vašo Outlookovo datoteko in popravi napake datoteke v nekaj minutah.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z mdf popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com