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

本文將介紹如何計算Outlook中指定郵件帳號或所有郵箱下的資料夾數量。

使用VBA代碼計算指定郵件帳號或所有郵箱下的資料夾數量

「使用VBA代碼計算指定郵件帳號或所有郵箱下的資料夾數量」

您可以使用以下VBA代碼來計算指定郵件帳號或所有郵箱下的資料夾數量。請按照以下步驟操作。

1. 按下「Alt」+「F11」鍵，打開「Microsoft Visual Basic for Applications」窗口。

2. 在「Microsoft Visual Basic for Applications」窗口中，點擊「插入」>「用戶窗體」。參見截圖：

3. 然後在「UserForm1」中插入兩個「選項按鈕」和兩個「命令按鈕」，並根據以下截圖更改按鈕的顯示文字。

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

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」對話框，若要計算當前帳號下的資料夾數量，請選擇「當前帳號」選項並點擊「確定」按鈕。若要計算所有郵箱中的資料夾數量，請選擇「所有帳戶」選項，然後點擊「確定」按鈕。參見截圖：

9. 接著會彈出一個「Kutools for Outlook」對話框，告訴您當前帳號或所有郵箱中存在的資料夾數量，如下方截圖所示。請點擊「確定」按鈕。

便簽：所有隱藏的資料夾，例如「對話操作設定」資料夾和「快速步驟設定」資料夾都包含在資料夾計數中。

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！） 免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

• 智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
• 增強內容：自動優化您的郵件文字以提高清晰度和影響力。
• 輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
• 智能擴展：通過上下文感知建議來拓展您的思路。
• 摘要生成：即時獲取長郵件的簡潔概述。
• 全球觸及：輕鬆將您的郵件翻譯成任何語言。

此功能支援：

• 智能郵件回覆
• 優化的內容
• 基於關鍵字的草稿
• 智能內容擴展
• 郵件摘要生成
• 多語言翻譯

最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧

相關文章：

• 如何在Outlook中顯示「瀏覽資料夾」對話框以選擇資料夾？