Outlook で特定のフォルダー配下にあるサブフォルダーの数をカウントするには、どうすればよいでしょうか？

ルートフォルダー配下にいくつかのフォルダーを作成したとします。そのルートフォルダー直下にサブフォルダーがいくつあるかを知りたい場合、どうすればよいでしょうか？単にルートフォルダーを展開して、サブフォルダーを一つひとつ手動で数えるしかないのでしょうか？本記事では、この操作を簡単に実現する方法をご紹介します。

VBA コードでサブフォルダー数をカウントする

---

VBA コードでサブフォルダー数をカウントする

次の VBA コードを使えば、Outlook で特定のルートフォルダー配下にあるサブフォルダーの数を簡単にカウントできます。以下の手順に従ってください。

1。「Alt＋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 でそのフォルダーを検索するにはどうすればよいでしょうか？