3 rychlé metody pro počítání všech označených položek ve vašem Outlooku

Outlook umožňuje označit položky pro další sledování, například označování e-mailů, kontaktů atd. V tomto scénáři někdy budete chtít počítat označené položky. Zde s vámi sdílíme 3 přístupy.

Možná jste ve svém Outlooku označili velké množství položek pro další sledování. Můžete například označit kontakt, u kterého plánujete zavolat tomuto kontaktu později. Tváří v tvář tolika označeným položkám můžete doufat, že jich získáte spoustu. Dále vám představíme 3 způsoby.

Metoda 1: Počítání pomocí složky Hledat

Pokud chcete jednoduše spočítat označené e-maily, můžete použít vyhledávací složku. Zde jsou podrobné kroky.

1. Začněte tím, že v navigačním panelu pošty kliknete pravým tlačítkem myši na „Hledat ve složkách“.
2. Poté v místní nabídce vyberte možnost „Nová složka hledání“.
3. V rozbalovacím dialogovém okně vyberte možnost „Pošta označena pro další kontrolu“ a klikněte na „OK“.
4. Nakonec ve složce hledání získáte celkový počet označených e-mailů, například následující snímek obrazovky.

Metoda 2: Počítání v seznamu úkolů

Pokud jste označili nejen e-maily, ale také kontakty, skupiny kontaktů atd., Možná budete chtít získat celkový počet všech těchto označených položek. V této situaci můžete použít následující způsob.

1. Nejprve přepněte do navigačního podokna Úkoly pomocí „Ctrl + 4“.
2. Poté přejděte do „Seznamu úkolů“, kde uvidíte všechny označené položky zobrazené jako obrázek níže:
3. Dále vyberte všechny tyto položky a stiskněte klávesu „Enter“ a zkuste je otevřít v dávkách.
4. Následně se zobrazí upozornění na otevření příliš mnoha položek, například následující obrázek. Ve varování je celkový počet označených položek.

Metoda 3: Počítání s Outlookem VBA

Možná nejen chcete získat celkový počet všech označených položek, ale také chcete získat počty samostatných typů označených položek. Zde je v tomto ohledu řešení.

1. Pro začátek otevřete editor VBA v Outlooku s odkazem na příspěvek „Jak spustit kód VBA ve vašem Outlooku".
2. Poté zkopírujte níže uvedený kód VBA do modulu nebo 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. Nakonec klikněte do podprogramu „CountFlaggedItems“ a stiskněte tlačítko „F5“.
4. Po dokončení makra se zobrazí zpráva s výzvou k celkovému počtu všech označených položek, jako je obrázek níže.

Zlikvidujte otravné potíže s Outlookem

V Outlooku může občas dojít k problémům s Outlookem. Raději byste se měli chytit tip-top a důvěryhodného Oprava aplikace Outlook nástroj, jako DataNumen Outlook Repair. Dokáže inteligentně skenovat váš soubor aplikace Outlook a opravit chyby souboru během několika minut.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com