3 бързи метода за преброяване на всички маркирани елементи във вашия Outlook

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 интелигентно и да поправи грешките във файла в рамките на минути.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com