Ձեր Outlook-ում բոլոր դրոշակված տարրերը հաշվելու 3 արագ մեթոդ

Outlook-ը թույլ է տալիս դրոշակել իրերը՝ հետևելու համար, ինչպիսիք են էլ. նամակները, կոնտակտները և այլն: Այս սցենարում երբեմն կարող եք ցանկանալ հաշվել դրոշակավորված տարրերը: Այստեղ մենք ձեզ հետ կկիսվենք 3 մոտեցումներով։

Հավանաբար, դուք նշել եք բազմաթիվ տարրեր ձեր Outlook-ում հետևելու համար: Օրինակ, դուք կարող եք դրոշակել այն կոնտակտին, որը նախատեսում եք զանգահարել այս կոնտակտին ավելի ուշ: Ի դեմս այդքան շատ դրոշակավորված իրերի, դուք կարող եք հույս ունենալ, որ կստանաք դրանց թիվը: Այնուհետև ձեզ կներկայացնենք 3 միջոց։

Մեթոդ 1. Հաշվել որոնման թղթապանակի միջոցով

Եթե ​​դուք պարզապես ցանկանում եք հաշվել դրոշակավորված նամակները, կարող եք օգտվել որոնման թղթապանակից: Ահա մանրամասն քայլերը:

1. Սկսելու համար, փոստի նավիգացիայի վահանակում աջ սեղմեք «Փնտրել թղթապանակներ» վրա։
2. Այնուհետև համատեքստի ընտրացանկից ընտրեք «Նոր որոնման թղթապանակ»:
3. Բացվող երկխոսության վանդակում ընտրեք «Փոստը դրոշակված է հետևելու համար» և սեղմեք «OK»:
4. Վերջապես, որոնման թղթապանակում դուք կստանաք դրոշակավորված նամակների ընդհանուր թիվը, ինչպես հետևյալ սքրինշոթը:

Մեթոդ 2. Հաշվել անելիքների ցանկում

Եթե ​​դուք դրոշակավորել եք ոչ միայն նամակները, այլև կոնտակտները, կոնտակտային խմբերը և այլն, ապա կարող եք ստանալ այս բոլոր դրոշակավորված տարրերի ընդհանուր թիվը: Այս իրավիճակում կարող եք օգտագործել հետևյալ կերպ.

1. Նախ, անցեք «Առաջադրանքների» նավիգացիոն վահանակ «Ctrl + 4» կոճակով:
2. Այնուհետև մուտք գործեք «Անելիքների ցանկ», որտեղ կտեսնեք դրոշակված բոլոր տարրերը, որոնք ներկայացված են ստորև ներկայացված պատկերի նման.
3. Հաջորդը, ընտրեք այս բոլոր տարրերը և սեղմեք «Enter» ստեղնը՝ փորձելով դրանք խմբաքանակով բացել:
4. Այնուհետև դուք նախազգուշացում կստանաք չափազանց շատ իրեր բացելու մասին, ինչպես հետևյալ նկարը: Նախազգուշացման մեջ առկա է դրոշակավորված իրերի ընդհանուր թիվը:

Մեթոդ 3. Հաշվեք Outlook VBA- ով

Միգուցե ոչ միայն ցանկանում եք ստանալ բոլոր դրոշակավորված տարրերի ընդհանուր թիվը, այլ նաև ցանկանում եք ստանալ դրոշակավորված տարրերի առանձին տեսակների քանակը: Ահա այս առումով լուծում.

1. Սկսելու համար մուտք գործեք Outlook VBA խմբագրիչ՝ հղում անելով «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
2. Այնուհետև պատճենեք ստորև ներկայացված VBA կոդը մոդուլի կամ նախագծի մեջ:

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. Ի վերջո, սեղմեք «CountFlaggedItems» ենթածրագրի մեջ և սեղմեք «F5» կոճակը:
4. Երբ մակրոն ավարտվի, դուք կստանաք հաղորդագրություն, որը հուշում է դրոշակված բոլոր տարրերի ընդհանուր թիվը, ինչպես ստորև նկարում:

Հեռացրեք Outlook-ի անհանգստացնող խնդիրները

Outlook-ում Outlook-ի հետ կապված խնդիրներ կարող են առաջանալ երբեմն: Այսպիսով, դուք ավելի լավ է ձեռք բերեք բարձրորակ և վստահելի անձնավորություն Outlook- ի շտկում օգտակարություն, ինչպես DataNumen Outlook Repair. Այն կարող է խելամտորեն սկանավորել ձեր Outlook ֆայլը և րոպեների ընթացքում վերականգնել ֆայլի սխալները:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com