如何計算Outlook中指定郵件帳號或所有郵箱下的資料夾數量？

Author Siluvia Last modified 2025-08-23

本文將介紹如何計算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. 然後在「UserForm1」中插入兩個「選項按鈕」和兩個「命令按鈕」，並根據以下截圖更改按鈕的顯示文字。

doc-count-number-of-folders-2

4. 將第一個選項按鈕的名稱更改為“opbCurAccount”，並將其「值」屬性設置為「True」。參見截圖：

doc-count-number-of-folders-3

5. 繼續將第二個選項按鈕的名稱更改為「opbAllAccounts」。然後分別將兩個命令按鈕的名稱設置為「cdbOk」和「cdbCancel」。

6. 雙擊UserForm1的任意空白處，然後在Userform1（代碼）窗口中用以下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」鍵運行代碼。然後會彈出一個「UserForm1」對話框，若要計算當前帳號下的資料夾數量，請選擇「當前帳號」選項並點擊「確定」按鈕。若要計算所有郵箱中的資料夾數量，請選擇「所有帳戶」選項，然後點擊「確定」按鈕。參見截圖：

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 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多