如何計算 Outlook 中已標記郵件的數量?
在 Outlook 中,您可以標記郵件、聯絡人或任務,以使它們突出顯示。但有時,您需要計算 Outlook 中已標記項目的數量。該如何在 Outlook 中處理此任務呢?
使用 VBA 程式碼分別計算所有帳戶中已標記郵件/聯絡人/任務的數量
a name="a1"> 使用搜尋資料夾計算單一帳戶中已標記郵件的數量
要計算 Outlook 帳戶中已標記郵件的數量,搜尋資料夾功能可以幫助您,請按照以下步驟操作:
1. 右鍵點擊您的郵件帳戶下的 搜尋資料夾,然後選擇新建搜尋資料夾,請參閱截圖:

2. 接著會彈出一個新建搜尋資料夾對話框,在閱讀郵件部分中點擊需後續工作的郵件選項,請參閱截圖:

3. 然後點擊確定,所有已標記的郵件都會複製到 需後續工作資料夾中,並且已標記郵件的總數會如下方截圖所示顯示:

a name="a2"> 使用 VBA 程式碼分別計算所有帳戶中已標記郵件/聯絡人/任務的數量
如果您想分別計算所有已標記項目(例如郵件、聯絡人和任務)的數量,以下 VBA 程式碼可以幫助您完成此任務。
1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。
2. 然後,點擊插入 > 模組,將以下程式碼複製並貼到打開的空白模組中,請參閱截圖:
VBA 程式碼:計算 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. 然後按 F5 鍵運行程式碼,會彈出一個提示框,告訴您所有已標記項目的總數,如下方截圖所示:

計算 Outlook 中今天、昨天、已讀、未讀、總項目數... 借助 Kutools for Outlook 的強大統計功能,您可以根據日期、選中的項目、已讀、未讀等需求獲取項目數量。 ![]() Kutools for Outlook:擁有 70 多個實用且免費的 Outlook 增益集,立即下載免費版本。 |
最佳辦公室生產力工具
最新消息:Kutools for Outlook推出免費版本!
體驗全新的Kutools for Outlook免費版本,擁有70多項令人驚嘆的功能,永久使用!立即點擊下載!
🤖 Kutools AI :使用先進的AI技術輕鬆處理郵件,包括答覆、摘要、優化、擴展、翻譯和撰寫郵件。
📧 郵件自動化:自動回覆(適用於POP和IMAP) / 計劃發送郵件 / 發送郵件時按規則自動抄送密送 / 自動轉發(高級規則) / 自動新增問候語 / 自動將多收件人郵件拆分為個別郵件...
📨 郵件管理:撤回郵件 / 按主題和其他方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾...
📁 附件專業版:批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮...
🌟 介面魔法:😊更多漂亮和酷炫的表情符号 / 當重要郵件到來時提醒您 / 最小化Outlook而不是關閉...
👍 一鍵奇蹟:帶附件全部答復 / 防止網絡釣魚郵件 / 🕘顯示發件人的時區...
👩🏼🤝👩🏻 聯絡人和日曆:從選中郵件批量新增聯絡人 / 將聯絡人組拆分為個別組 / 移除生日提醒...
立即單擊解鎖Kutools for Outlook。不要等待,立即下載並提升您的效率!

