Outlookの特定のフォルダーの下にあるサブフォルダーの数を数える方法は？

ルートフォルダの下にいくつかのフォルダを作成したとします。 ルートフォルダの下にあるサブフォルダの数を知りたいのですが、どうすればよいですか？ ルートフォルダを展開し、すべてのサブフォルダをXNUMXつずつ手動でカウントしますか？ この記事では、それを実現するための簡単な方法を紹介します。

VBAコードでサブフォルダーの数を数える

VBAコードでサブフォルダーの数を数える

次のVBAコードは、Outlookの特定のルートフォルダーの下にあるサブフォルダーの数を数えるのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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 - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入