如何统计 Outlook 中每天收到的邮件总数？

实际上，在 Outlook 中，您可以轻松搜索今天收到的所有“收件箱”邮件，或搜索某个邮箱账户的所有文件夹，甚至所有账户的全部文件夹，并统计搜索结果的总数。请按照以下步骤操作：

在“邮件”视图下，（1) 选择您要统计今日收件邮件的电子邮件帐户的“收件箱”文件夹；（2) 在“搜索”框中输入搜索条件“received:Today”；（3) 在“搜索”选项卡的“范围”组中指定搜索范围。如下图所示：

此时，Outlook 会在左下角显示所有搜索结果的总数，即今天收到的全部邮件数量，如下图所示。

一键统计 Outlook 中所选邮件数量

在 Outlook 文件夹中获取所有项目总数或未读项目数量非常简单。但如何快速获取某文件夹中选中项目的数量呢？这里，Kutools for Outlook 的选中项目统计功能，只需一键即可快速显示选中项目的数量！

此方法将指导您创建一个搜索文件夹，自动汇总今天收到的所有邮件，随后您可通过更改搜索文件夹属性来获取这些邮件的总数。请按照以下步骤操作：

1. 选择您希望在导航窗格中创建搜索文件夹的电子邮件账户，点击“文件夹”>“新建搜索文件夹”。如图所示：

2. 在“新建搜索文件夹”对话框中，选择“创建自定义搜索文件夹”选项，然后点击“选择”按钮，如下图所示：

3. 此时会弹出“自定义搜索文件夹”对话框。请在“名称”框中为您的新搜索文件夹命名。

4. 继续点击“自定义搜索文件夹”中的“条件”按钮。在“搜索文件夹条件”对话框中，（1) 点击“邮件”选项卡，（2) 在“时间”下拉列表中选择“received”，（3) 在后续下拉列表中指定“Today”，最后（4) 点击“确定”按钮。如下图所示：

5. 此时请返回“自定义搜索文件夹”对话框，点击“浏览”按钮。随后，在“选择文件夹”对话框中，（1) 仅勾选“收件箱”，同时勾选“搜索子文件夹”选项，并点击“确定”按钮。如下图所示：

6. 随后，连续点击“确定”按钮，依次关闭“自定义搜索文件夹”对话框和“新建搜索文件夹”对话框。

7. 右键单击刚刚创建的新建搜索文件夹，在右键菜单中选择“属性”。如图所示：

8. 在随后的弹出对话框中，勾选“显示项目总数”选项，然后点击“确定”。如下图所示：

从现在起，您每天收到的邮件副本都将自动保存到此搜索文件夹。新的一天开始时，搜索文件夹会自动清除所有旧邮件，并重新统计当天的新邮件。

注意：此方法仅适用于统计单个邮箱账户中收件箱今日收到邮件的总数。

除了上述方法外，您还可以通过 VBA 代码统计 Outlook 某一日期的邮件总数。请按照以下步骤操作。

1. 选择您希望统计每日新收邮件总数的文件夹，然后按下“Alt”+“F11”键，打开“Microsoft Visual Basic for Applications”。

2. 然后选择“插入”>“模块”以添加新模块，并将以下 VBA 代码粘贴进去。

VBA：统计每天总邮件数总数

Sub Countemailsperday()
    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Dim oDate As String
    
    oDate = InputBox("Type the date for count (format YYYY-m-d")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")
        On Error Resume Next
        Set objFolder = Application.ActiveExplorer.CurrentFolder
        If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
        End If
    EmailCount = objFolder.Items.Count
    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"
    Dim ssitem As MailItem
    Dim dateStr As String
    Dim myItems As Outlook.Items
    Dim dict As Object
    Dim msg As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set myItems = objFolder.Items
    myItems.SetColumns ("ReceivedTime")
    ' Determine date of each message:
    For Each myItem In myItems
        dateStr = GetDate(myItem.ReceivedTime)
        If dateStr = oDate Then
            If Not dict.Exists(dateStr) Then
                dict(dateStr) = 0
            End If
            dict(dateStr) = CLng(dict(dateStr)) + 1
        End If
    Next myItem
    ' Output counts per day:
    msg = ""
    For Each o In dict.Keys
        msg = msg & o & ": " & dict(o) & " items" & vbCrLf
    Next
    MsgBox msg
    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub
Function GetDate(dt As Date) As String
    GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function

3. 粘贴 VBA 代码后，请点击“运行”按钮。

4. 随后在弹出的对话框中输入要统计收件邮件总数的到某天，点击“确定”。如截图所示：

5. 弹窗提示所选文件夹内邮件数的总数，请点击“确定”按钮。在第二个弹出对话框中，您将看到今天收到的邮件数总数。如下图所示：

注意：
（1）此 VBA 仅能统计所选文件夹中截至某一天的所有收件总数。
（2）此 VBA 代码可在 Outlook 2010、2013 和 2016 中正常运行。

如果您已经安装了 Kutools for Outlook，可以轻松利用其统计功能，按天统计每月收到的邮件总数。请按照以下步骤操作：

1. 请点击“KUTOOLS PLUS”>“统计”。如下图：

2. 此时弹出统计对话框，请选择选择要统计邮件的文件夹，指定需要统计邮件的日期范围，并点击“确定”。如下图：

3. 在第二个统计对话框中，切换至“月内天统计”或“周内天统计”选项卡，即可查看每个日期收到的邮件总数。如下图所示：
另外，在“汇总”选项卡中，还可查看所有账户所有收件箱今天或昨天收到的邮件总数。