如何计算Outlook中已标记邮件的数量?
在Outlook中,您可以标记邮件,联系人或任务以使其出色,但是有时,您需要计算Outlook中标记的项目数。 您如何在Outlook中处理此任务?
使用VBA代码分别计算所有帐户中已标记消息/联系人/任务的数量
使用“搜索文件夹”计算一个帐户中已标记邮件的数量
要计算Outlook帐户中已标记电子邮件的数量, 搜索文件夹 功能可以为您提供帮助,请按以下步骤操作:
1。 右键点击 搜索文件夹 在您的电子邮件帐户下,然后选择 新搜寻资料夹,请参见屏幕截图:
2。 然后一个 新搜寻资料夹 弹出对话框,单击 邮件已标记为可跟进 在选项 阅读邮件 部分,请参见屏幕截图:
3。 然后点击 OK,并将所有标记的邮件复制到 进行跟进 文件夹,并显示标记的电子邮件总数,如以下屏幕截图所示:
使用VBA代码分别计算所有帐户中已标记消息/联系人/任务的数量
如果要分别计算所有已标记项目的数量,例如Outlook中的电子邮件,联系人和任务,则以下VBA代码可以帮您一个忙。
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
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:具有超过100个便捷的Excel加载项,可以在60天内免费试用,没有限制。 立即下载并尝试免费试用!
|
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。