3 szybkie metody liczenia wszystkich oznaczonych elementów w programie Outlook

Program Outlook umożliwia oznaczanie elementów do dalszych działań, takich jak oflagowywanie wiadomości e-mail, kontaktów i tak dalej. W tym scenariuszu czasami możesz chcieć policzyć oflagowane elementy. Tutaj podzielimy się z Tobą 3 podejściami.

Być może w Outlooku oznaczyłeś dużą liczbę elementów do dalszych działań. Na przykład możesz oflagować kontakt, w którym planujesz później do niego zadzwonić. W obliczu tak wielu oznaczonych elementów możesz mieć nadzieję, że uda Ci się je policzyć. W dalszej części przedstawimy Ci 3 sposoby.

Metoda 1: Policz za pomocą folderu wyszukiwania

Jeśli chcesz po prostu policzyć oflagowane wiadomości e-mail, możesz skorzystać z folderu wyszukiwania. Oto szczegółowe kroki.

1. Aby rozpocząć, w panelu nawigacyjnym poczty kliknij prawym przyciskiem myszy opcję „Foldery wyszukiwania”.
2. Następnie z menu kontekstowego wybierz „Nowy folder wyszukiwania”.
3. W wyskakującym oknie dialogowym wybierz „Poczta oflagowana do dalszych działań” i kliknij „OK”.
4. Na koniec otrzymasz całkowitą liczbę oflagowanych wiadomości e-mail w folderze wyszukiwania, jak na poniższym zrzucie ekranu.

Metoda 2: Policz na liście zadań do wykonania

Jeśli oflagowałeś nie tylko e-maile, ale także kontakty, grupy kontaktów itp., Możesz chcieć uzyskać łączną liczbę wszystkich oznaczonych elementów. W takiej sytuacji możesz skorzystać z następującego sposobu.

1. Po pierwsze, przejdź do okienka nawigacji Zadania, naciskając „Ctrl + 4”.
2. Następnie przejdź do „Listy rzeczy do zrobienia”, gdzie zobaczysz wszystkie oflagowane elementy, pokazane na poniższym obrazku:
3. Następnie wybierz wszystkie te elementy i naciśnij klawisz „Enter”, próbując otwierać je partiami.
4. Następnie otrzymasz ostrzeżenie o otwarciu zbyt wielu elementów, jak na poniższym obrazku. W ostrzeżeniu znajduje się łączna liczba oznaczonych elementów.

Metoda 3: Policz za pomocą programu Outlook VBA

Może nie tylko chcesz uzyskać łączną liczbę wszystkich oflagowanych elementów, ale także chcesz uzyskać zliczenia poszczególnych typów oflagowanych elementów. Oto rozwiązanie w tym zakresie.

1. Na początek uzyskaj dostęp do edytora VBA programu Outlook, odwołując się do wpisu „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie skopiuj poniższy kod VBA do modułu lub projektu.

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 koniec kliknij podprogram „CountFlaggedItems” i naciśnij przycisk „F5”.
4. Po zakończeniu działania makra zostanie wyświetlony komunikat z pytaniem o łączną liczbę wszystkich oznaczonych elementów, jak na poniższym obrazku.

Pozbądź się irytujących problemów z perspektywami

W programie Outlook problemy z programem Outlook mogą występować od czasu do czasu. Dlatego lepiej zdobyć najlepszego i godnego zaufania Poprawka programu Outlook narzędzie, jak DataNumen Outlook Repair. Może inteligentnie przeskanować plik programu Outlook i naprawić błędy pliku w ciągu kilku minut.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com