Přejít k hlavnímu obsahu

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:

počet označených položek 1

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:

počet označených položek 2

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čet označených položek 3


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

počet označených položek 4

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:

počet označených položek 5


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.

počet označených položek 6

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

???? 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 ProDá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.

Více       Stažení zdarma      Nákup
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Das ist ja jetzt wohl nicht die Wahrheit. Ich brauche VBA oder soll umständliche Ordneraktionen durchführen um die Zahl der aktuell gewählten Kontakte zu lesen? So lange es solche Zumutungen bei Office gibt wird Arbeiten mit dieser Suite keinen Spaß machen. Ich stoße immer wieder auf Funktionen, die man als Anwender bei einem Officeprogramm voraussetzt und muß dann leidvoll erfahren, dass man einfachste Vorgängen nur mit Kopfständen oder eben VBA erledigen kann. Super, Microsoft!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations