Jak spočítat počet označených zpráv v Outlooku?
V Outlooku můžete označit zprávy, kontakty nebo úkoly, aby byly vynikající, ale někdy musíte počítat počet označených položek v Outlooku. Jak jste se mohli s tímto úkolem vypořádat v Outlooku?
Spočítat počet označených zpráv v jednom účtu pomocí složky Hledat
Počítat počet označených zpráv / kontaktů / úkolů samostatně ve všech účtech s kódem VBA
Spočítat počet označených zpráv v jednom účtu pomocí složky Hledat
Chcete-li spočítat počet označených e-mailů v účtu aplikace Outlook, Hledat složky funkce vám může pomoci, udělejte prosím toto:
1. Klikněte pravým tlačítkem myši Hledat složky pod svým e-mailovým účtem a poté vyberte Nová vyhledávací složka, viz screenshot:
2. Pak Nová vyhledávací složka dialogové okno vyskočí, klikněte na Pošta označena pro další sledování možnost v Čtení pošty sekce, viz screenshot:
3. Pak klikněte na tlačítko OKa všechny označené zprávy se zkopírují do složky Pro sledování složka a celkový počet označených e-mailů se zobrazí jako následující snímek obrazovky:
Počítat počet označených zpráv / kontaktů / úkolů samostatně ve všech účtech s kódem VBA
Pokud chcete počítat počet všech označených položek, například e-mailů, kontaktů a úkolů v Outlooku, můžete si udělat laskavost pomocí následujícího kódu VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:
Kód VBA: Spočítejte počet označených časů v aplikaci 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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám řekne celkový počet všech označených položek, jak je uvedeno níže:
Spočítat počet dnes, včera, přečtených, nepřečtených, celkových položek ... v Outlooku
S Kutools pro aplikaci Outlookje mocný Statistika funkce, můžete získat počet itmes na základě data, vybraných položek, číst, nepřečtené a tak dále, jak potřebujete. Kutools pro aplikaci Outlook: s více než 100+ užitečnými doplňky aplikace Excel, můžete to vyzkoušet bez omezení za 60 dní. Stáhněte si a vyzkoušejte bezplatnou zkušební verzi hned teď!
|
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.