Outlookの特定のフォルダーの下にあるサブフォルダーの数を数える方法は?
ルートフォルダの下にいくつかのフォルダを作成したとします。 ルートフォルダの下にあるサブフォルダの数を知りたいのですが、どうすればよいですか? ルートフォルダを展開し、すべてのサブフォルダをXNUMXつずつ手動でカウントしますか? この記事では、それを実現するための簡単な方法を紹介します。
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の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。