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ę 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:
Policz liczbę dzisiejszych, wczorajszych, przeczytanych, nieprzeczytanych, łączną liczbę elementów ... w programie Outlook
Z Kutools dla programu Outlookjest potężny Statistics funkcja, możesz uzyskać liczbę elementów na podstawie daty, wybranych elementów, przeczytanych, nieprzeczytanych i tak dalej, jak potrzebujesz. Kutools dla programu Outlook: z ponad 100+ poręcznymi dodatkami Excela, możesz wypróbować bez ograniczeń przez 60 dni. Pobierz i wypróbuj bezpłatną wersję próbną już teraz!
|
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.