3種快速計算Outlook中所有標記項目的方法

Outlook允許您標記要跟踪的項目，例如標記電子郵件，聯繫人等。 在這種情況下，有時您可能希望計算標記的項目。 在這裡，我們將與您分享3種方法。

也許您已經在Outlook中標記了很多項目需要跟進。 例如，您可以在計劃稍後再呼叫該聯繫人的情況下標記該聯繫人。 面對如此多的標記項目，您可能希望得到計數。 以下，我們將為您介紹3種方法。

方法1：通過搜索文件夾計數

如果您只想計算已標記的電子郵件，則可以使用搜索文件夾。 以下是詳細步驟。

1. 首先，在郵件導覽窗格中，以滑鼠右鍵按一下「搜尋資料夾」。
2. 然後，從其上下文菜單中選擇“新建搜索文件夾”。
3. 在彈出對話框中，選擇“標記為要跟踪的郵件”，然後單擊“確定”。
4. 最後，您將在搜索文件夾中獲得標記的電子郵件總數，如以下屏幕截圖所示。

方法2：待辦事項列表中計數

如果您不僅標記了電子郵件，還標記了聯繫人，聯繫人組等，則您可能希望獲得所有這些標記項目的總數。 在這種情況下，您可以使用以下方式。

1. 首先，通過“ Ctrl + 4”切換到“任務”導航窗格。
2. 然後，訪問“待辦事項列表”，您將在其中看到所有標記的項目，如下圖所示：
3. 接下來，選擇所有這些項目，然後按“ Enter”鍵按鈕，嘗試批量打​​開它們。
4. 隨後，您將收到有關打開太多項目的警告，如下圖所示。 在警告中，已標記項目的總數。

方法3：用Outlook VBA計數

也許您不僅希望獲得所有已標記項目的總數，而且還希望獲得不同類型的已標記項目的計數。 這是這方面的解決方案。

1. 首先，請參考貼文“如何在Outlook中運行VBA代碼“。
2. 然後將下面的VBA代碼複製到模塊或項目中。

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. 最後，單擊“ CountFlaggedItems”子例程，然後按“ F5”按鈕。
4. 宏完成後，您會收到一條消息，提示所有標記項目的總數，如下圖所示。

處理煩人的Outlook問題

在Outlook中，有時會出現Outlook問題。 因此，您最好掌握頂尖和值得信賴的方法 Outlook修復 實用程序，例如 DataNumen Outlook Repair。 它可以智能地掃描Outlook文件，並在數分鐘內修復文件錯誤。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM