如何計算Outlook中某些文件夾下的子文件夾數量?
假設您已經在根文件夾下創建了一些文件夾。 現在,您想知道根文件夾下有多少個子文件夾,怎麼辦? 只需展開根文件夾並手動逐個計數所有子文件夾? 本文將為您介紹一個簡單的方法來實現它。
用VBA代碼計算子文件夾的數量
以下VBA代碼可以幫助您計算Outlook中某個根文件夾下的子文件夾數。 請執行以下操作。
1。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到“代碼”窗口中。
VBA代碼:計算Outlook中某些文件夾下的子文件夾數
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub
3。 按 F5 鍵來運行代碼。
4.在開幕 選擇“文件夾” 在對話方塊中,選擇一個要計算其子資料夾的資料夾,然後按一下 OK 按鈕。 看截圖:
5.然後 Kutools for Outlook 彈出對話框告訴您指定資料夾中存在多少個子資料夾。 看截圖:
相關文章:
- 如何計算Outlook中指定電子郵件帳戶或所有郵箱下的文件夾數量?
- 如何統一多個帳戶的所有收件箱以在Outlook中一起顯示所有電子郵件?
- 如何顯示“瀏覽文件夾”對話框以在Outlook中選擇文件夾?
- 如何找到丟失的文件夾在Outlook中意外移動的?
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。