3 kiiret meetodit kõigi Outlookis märgistatud üksuste loendamiseks

Outlook võimaldab teil märgistada üksusi jälgimiseks, näiteks märgistada meilid, kontaktid ja nii edasi. Selle stsenaariumi korral võite mõnikord soovida märgistatud üksusi üles lugeda. Siin jagame teiega 3 lähenemist.

Võib-olla olete oma Outlookis märkinud jälgimiseks palju üksusi. Näiteks saate märgistada kontakti, kellele kavatsete hiljem helistada. Arvestades nii palju märgistatud üksusi, võite loota, et saate need kokku lugeda. Edaspidi tutvustame teile 3 vahendit.

1. meetod: loendage otsingukausta kaudu

Kui soovite lihtsalt märgistatud e-kirju üles lugeda, võite kasutada otsingukausta. Siin on üksikasjalikud sammud.

1. Alustamiseks paremklõpsake meili navigeerimispaanil valikul „Otsi kaustadest”.
2. Seejärel valige selle kontekstimenüüst "Uus otsingukaust".
3. Hüpikdialoogiboksis valige "Järeltegevuseks märgistatud kiri" ja klõpsake "OK".
4. Lõpuks näete otsingukausta märgistatud meilide koguarvu, nagu järgmine ekraanipilt.

2. meetod: loendage ülesannete loendis

Kui olete märgistanud mitte ainult meilid, vaid ka kontaktid, kontaktirühmad ja nii edasi, võite soovida saada kõigi nende märgistatud üksuste koguarvu. Sellises olukorras saate kasutada järgmist meetodit.

1. Esiteks lülituge navigeerimispaanile Tasks, vajutades klahvikombinatsiooni Ctrl + 4.
2. Seejärel avage ülesannete loend, kus näete kõiki märgistatud üksusi, mis on näidatud alloleval pildil:
3. Järgmisena valige kõik need üksused ja vajutage sisestusklahvi, proovides neid partiidena avada.
4. Seejärel kuvatakse teile hoiatus liiga paljude üksuste avamise kohta, nagu järgmine pilt. Hoiatuses on märgitud märgistatud üksuste koguarv.

3. meetod: loendage Outlook VBA-ga

Võib-olla soovite saada mitte ainult kõigi märgistatud üksuste koguarvu, vaid ka eri tüüpi märgistatud üksuste arvu. Siin on selles osas lahendus.

1. Alustuseks avage Outlooki VBA redaktor, viidates postitusele „Kuidas Outlookis VBA-koodi käivitada".
2. Seejärel kopeerige allolev VBA kood moodulisse või projekti.

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. Lõpuks klõpsake alamprogrammi "CountFlaggedItems" ja vajutage nuppu "F5".
4. Kui makro on lõpule viidud, saate teate, milles kuvatakse kõigi märgistatud üksuste koguarv, nagu alloleval pildil.

Kõrvaldage tüütud Outlooki probleemid

Outlookis võivad Outlooki probleemid aeg-ajalt ilmneda. Seega oleks parem hankida tipptasemel ja usaldusväärne Outlooki parandus utiliit, nagu DataNumen Outlook Repair. See suudab teie Outlooki faili arukalt skannida ja mõne minuti jooksul failivead parandada.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom