如何统计指定电子邮件帐户或所有邮箱中的文件夹数量（Outlook 环境）？
本文将为您介绍如何统计指定电子邮件账户或所有邮箱中的文件夹数量（适用于 Outlook）。
通过 VBA 代码统计指定电子邮件帐户或所有邮箱下的文件夹数量
“通过 VBA 代码统计指定电子邮件帐户或所有邮箱下的文件夹数量”
您只需按照以下步骤操作，即可使用以下 VBA 代码统计指定邮箱账户或所有邮箱下的文件夹数量。
1. 按下“Alt”+“F11”键，即可打开“Microsoft Visual Basic for Applications”窗口。
2. 在“Microsoft Visual Basic for Applications”窗口中，点击“插入” > “用户窗体”。请参见下方截图：
3. 接下来，在“UserForm 1”中插入两个“选项按钮”和两个“命令按钮”，并按照下方截图所示，修改按钮的显示文本属性。
4. 将第一个选项按钮命名为“opbCurAccount”，并将其“value”属性设置为“True”。请参见截图：
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 Sub8. 按下“F5”键运行代码后，将弹出“UserForm 1”对话框。若需统计当前账户下的文件夹数量，请选择“当前账户”选项并点击“确定”按钮；如需统计所有邮箱下的文件夹数量，请选择“All Accounts”选项后点击“确定”按钮。请参见截图：
9. 此时将弹出“Kutools for Outlook”对话框，告知您当前账户或所有邮箱下的文件夹总数，如下图所示。请点击“确定”按钮。
注意：统计范围内包含所有隐藏文件夹（如会话操作设置文件夹、快捷步骤设置文件夹）。
Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）
通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。
该功能支持：
- 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
- 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
- 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
- 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
- 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
- 全球畅邮：轻松将邮件翻译为任意语言。
该功能支持：
- 智能邮件回复
- 内容优化
- 关键词草稿
- 智能内容扩展
- 邮件摘要
- 多语言翻译
相关文章：
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于数据分析革新智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 依赖下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见状态|比较区域和列…… | |
| 精选功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表批量发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线等） ...... | |
| 顶级 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，按路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|…… 以及更多 |
用 Kutools for Excel 全面提升您的 Excel 技能，体验前所未有的高效办公。Kutools for Excel 提供 300 多项高级功能，助您高效提升工作效率，节省宝贵时间。点击此处，立即获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更加轻松高效
- 在 Word、Excel、PowerPoint 中启用标签式编辑与阅读，同样适用于 Publisher、Access、Visio 和 Project。
- 在同一窗口中以新标签页的形式打开和创建多个文档，而无需另起新窗口。
- 让您的工作效率提升 50%，每天为您减少上百次鼠标点击！
所有 Kutools 插件，一键安装
Kutools for Office 套件集成了 Excel、Word、Outlook 和 PowerPoint 插件，以及 Office Tab Pro，非常适合需要跨 Office 应用协作的团队。
- 全能套件— Excel、Word、Outlook 及 PowerPoint 插件 + Office Tab Pro
- 一键安装，一证多用— 数分钟完成部署（支持 MSI）
- 协同更高效— 实现 Office 应用间高效协作
- 30 天完整功能试用— 无需注册，无需信用卡
- 极致性价比— 比单独购买插件更省钱