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

实际上，通过“收件箱”文件夹、某个邮箱账户的所有文件夹或Outlook中所有账户的所有文件夹来搜索今天收到的所有邮件并统计结果总数非常容易。请按照以下步骤操作：

在“邮件”视图中，(1) 选择一个邮箱账户的“收件箱”文件夹以统计今天收到的邮件；(2) 在“即时搜索”框中输入搜索条件“received:Today”，然后 (3) 在“搜索”选项卡的“范围”组中指定搜索范围。参见截图：

现在，所有搜索结果的总数（即今天收到的邮件总数）会显示在Outlook窗口左下角，如下截图所示。

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

获取Outlook文件夹中所有项目或未读项目的总数很容易。但是，如何快速获取Outlook文件夹中选中项目的数量呢？这里推荐使用Kutools for Outlook的 Count Selected Items 功能，只需单击一下即可快速显示选中项目的数量！

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

1. 在导航窗格中选择要创建搜索文件夹的邮箱账户，然后点击“文件夹” > “新建搜索文件夹”。参见截图：

2. 在“新建搜索文件夹”对话框中，选择“创建自定义搜索文件夹”选项，并点击“选择”按钮。参见截图：

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

4. 接着点击“自定义搜索文件夹”中的“条件”按钮。在“搜索文件夹条件”对话框中，(1) 点击“邮件”选项卡，(2) 从“时间”下拉列表中选择“接收时间”，(3) 在随后的下拉列表中指定“今天”，然后 (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. 在第二个“统计”对话框中，转到“月内天统计”选项卡或“周内天统计”选项卡，您可以查看每个日期收到的邮件总数。参见截图：
顺便提一下，您还可以在“概要”选项卡中获取所有邮箱账户的收件箱中今天/昨天收到的邮件总数。