Outlook で特定のメールアカウント、またはすべてのメールボックス配下にあるフォルダの数をカウントするには、どうすればよいですか？

著者Siluvia変更日2025-04-18

この記事では、Outlook で特定のメールアカウントまたはすべてのメールボックス配下にあるフォルダの数をカウントする方法をご紹介します。

VBA コードを使用して、特定のメールアカウントまたはすべてのメールボックス配下のフォルダ数をカウントする

「VBAコードを使用して、特定のメールアカウントまたはすべてのメールボックス配下のフォルダ数をカウントする」

以下の VBA コードを使えば、特定のメールアカウントまたはすべてのメールボックス配下にあるフォルダ数を簡単にカウントできます。次の手順に従ってください。

1。「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

2。「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」＞「ユーザーフォーム」をクリックしてください。スクリーンショットをご参照ください。

doc-count-number-of-folders-1

3。次に、「UserForm1」にオプションボタンを2 つとコマンドボタンを2 つ挿入し、下記のスクリーンショットのように各ボタンの表示テキストを変更してください。

doc-count-number-of-folders-2

4。最初のオプションボタンの名前を「opbCurAccount」に変更し、「value」プロパティを「True」に設定してください。スクリーンショットをご参照ください。

doc-count-number-of-folders-3

5。続けて、2 番目のオプションボタンの名前を「opbAllAccounts」に変更し、その後、2 つのコマンドボタンの名前をそれぞれ「cdbOk」と「cdbCancel」に設定します。

6。UserForm1 の空白部分をダブルクリックし、「UserForm1 (コード)」ウィンドウに表示されている既存のコードを、以下の 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 Sub

8。「F5」キーを押してコードを実行すると、「UserForm1」ダイアログボックスが表示されます。現在のアカウントのフォルダ数をカウントする場合は、「Current Account」オプションを選択し、「OK」ボタンをクリックしてください。すべてのメールボックスのフォルダ数をカウントする場合は、「All Accounts」オプションを選択してから「OK」ボタンをクリックします。スクリーンショットをご参照ください。

doc-count-number-of-folders-4

9。その後、「Kutools for Outlook」ダイアログボックスが表示され、下記のスクリーンショットのように、現在のアカウントまたはすべてのメールボックスに存在するフォルダ数が通知されます。「OK」ボタンをクリックしてください。

doc-count-number-of-folders-5

注：会話アクション設定フォルダやクイックステップ設定フォルダなど、非表示フォルダもフォルダ数のカウントに含まれます。

Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！

Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。

この機能は以下のサポートを提供します：

スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
グローバル対応：メールをあらゆる言語に簡単に翻訳できます。

この機能は以下のサポートを提供します：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メール要約
多言語翻訳

今すぐ始めましょう—AI メールアシスタントを今すぐダウンロードして、AI メールアシスタントを今すぐダウンロード！

Outlook でフォルダを選択する際に表示される「フォルダ参照」ダイアログを呼び出す方法は？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！