如何統計 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. 在第二個統計對話方塊中，切換至「月內天統計」或「週內天統計」索引標籤，即可查看各日期收到的郵件總數。請參閱截圖：
此外，在「摘要」索引標籤中，您還能快速掌握所有帳戶之所有收件匣資料夾於今日／昨日收到的郵件總數。