如何計算 Outlook 中指定電子郵件帳戶或所有郵件匣底下的資料夾數量？

作者Siluvia修改日期2025-04-18

本文將介紹如何計算 Outlook 中指定電子郵件帳戶或所有郵件匣底下的資料夾數量。

使用 VBA 程式碼計算指定電子郵件帳戶或所有郵件匣底下的資料夾數量

「使用 VBA 程式碼計算指定電子郵件帳戶或所有郵件匣底下的資料夾數量」

您可透過以下 VBA 程式碼，輕鬆計算指定電子郵件帳戶或所有郵件匣底下的資料夾數量。請依照下列步驟操作：

1. 按下「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 在「Microsoft Visual Basic for Applications」視窗中，點選「插入」>「使用者表單」。請參閱截圖：

doc-count-number-of-folders-1

3. 接著在「UserForm 1」中插入兩個「選項按鈕」與兩個「命令按鈕」，並依照下方截圖所示調整按鈕的顯示文字。

doc-count-number-of-folders-2

4. 將第一個選項按鈕的名稱改為「opbCurAccount」，並將其「value」屬性設為「True」。請參閱截圖：

doc-count-number-of-folders-3

5. 繼續將第二個選項按鈕的名稱變更為「opbAllAccounts」，並將兩個命令按鈕的名稱分別設為「cdbOk」與「cdbCancel」。

6. 在 UserForm 1 的任意空白區域按兩下，然後於「UserForm 1 （程式碼）」視窗中，以以下 VBA 程式碼取代原有內容。

VBA 程式碼：計算 Outlook 中的資料夾數量

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. 按下「F5」鍵執行程式碼，此時將彈出「UserForm 1」對話方塊。若要計算目前帳戶中的資料夾數量，請選擇「目前帳戶」選項，再點擊「確定」按鈕；若要計算所有郵件匣中的資料夾數量，則請選擇「所有帳戶」選項，然後點擊「確定」按鈕。請參閱截圖：

doc-count-number-of-folders-4

9. 接著會彈出「Kutools for Outlook」對話方塊，顯示目前帳戶或所有郵件匣中的資料夾總數（如以下截圖所示），請點擊「確定」按鈕。

doc-count-number-of-folders-5

注意：所有隱藏資料夾（例如「對話動作設定」資料夾與「快速步驟設定」資料夾）均已計入資料夾總數中。

Outlook 中的 AI 郵件助理：聰明回覆、清晰溝通，一鍵輕鬆搞定！

透過 Kutools for Outlook 的 AI 郵件助理，輕鬆簡化您每日的 Outlook 工作！這款強大工具能學習您過往的郵件內容，提供智慧又精準的回覆建議、優化郵件文字，並協助您毫不費力地起草與潤飾訊息。

此功能支援：

智慧回覆：根據您過往的對話，量身打造精準到位的回應，立即可用。
內容強化：自動優化您的郵件文字，提升清晰度與影響力。
輕鬆撰寫：只需提供關鍵字，其餘交給 AI 處理，並支援多種潤色風格。
智慧擴充：根據上下文提供貼心建議，延伸您的創意與想法。
摘要功能：立即獲取長篇郵件的簡明摘要。
全球溝通：輕鬆將郵件翻譯成任何語言。

此功能支援：

智慧郵件回覆
優化內容
關鍵字草稿
智慧內容擴充
郵件摘要
多語言翻譯

別再等待——立即下載 AI 郵件助理，盡情享受！

如何在 Outlook 中開啟「瀏覽資料夾」對話方塊以選擇所需資料夾？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料與產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依性下拉式清單｜多重選擇下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單寄送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……更多功能