Jak policzyć liczbę oznaczonych wiadomości w Outlooku?

W programie Outlook możesz oflagować wiadomości, kontakty lub zadania w celu wyróżnienia ich, ale czasami trzeba policzyć liczbę oznaczonych elementów w programie Outlook. Jak poradzisz sobie z tym zadaniem w Outlooku?

Policz liczbę oflagowanych wiadomości na jednym koncie z folderami wyszukiwania

Policz liczbę oznaczonych wiadomości / kontaktów / zadań oddzielnie na wszystkich kontach z kodem VBA

Policz liczbę oflagowanych wiadomości na jednym koncie z folderami wyszukiwania

Aby policzyć liczbę oflagowanych wiadomości e-mail na koncie programu Outlook, plik Wyszukaj foldery funkcja może ci pomóc, wykonaj następujące czynności:

1. Kliknij prawym przyciskiem myszy Wyszukaj foldery pod swoim kontem e-mail, a następnie wybierz Nowy folder wyszukiwaniazobacz zrzut ekranu:

2. Następnie Nowy folder wyszukiwania pojawi się okno dialogowe, kliknij Poczta oznaczona do dalszych działań opcja w Czytanie poczty sekcja, patrz zrzut ekranu:

3. Następnie kliknij OK, a wszystkie oflagowane wiadomości są kopiowane do Do dalszych działań folder, a całkowita liczba oflagowanych wiadomości e-mail jest wyświetlana w postaci poniższego zrzutu ekranu:

Policz liczbę oznaczonych wiadomości / kontaktów / zadań oddzielnie na wszystkich kontach z kodem VBA

Jeśli chcesz oddzielnie policzyć liczbę wszystkich oznaczonych elementów, takich jak wiadomości e-mail, kontakty i zadania w programie Outlook, skorzystaj z następującego kodu VBA.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu, zobacz zrzut ekranu:

Kod VBA: Policz liczbę oznaczonych razy w programie Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okienko z informacją o łącznej liczbie wszystkich oznaczonych elementów, jak pokazano na poniższym zrzucie ekranu:

---

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki Pro: Zapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

Czytaj więcej       Darmowe pobieranie      Zakup