OutlookVBAを介してフォルダーとそのすべてのサブフォルダー内のアイテムの総数をすばやく取得する方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

特定のフォルダーの下に複数のサブフォルダーがあり、このフォルダーとそのすべてのサブフォルダー内のアイテムをカウントする場合は、この記事で紹介した方法を使用できます。

Outlook VBAを介して、フォルダーとそのすべてのサブフォルダー内のアイテムの総数をすばやく取得する一般に、XNUMXつのフォルダー内のアイテムの総数を確認するには、XNUMXつの方法があります。 XNUMXつはこのフォルダを選択することで、ステータスバーの左下隅にアイテムの数を表示できます。 もうXNUMXつは、フォルダのプロパティを変更して、アイテムの総数を表示するように設定することです。 ただし、このフォルダーの下に複数のサブフォルダーがある場合、上記のXNUMXつの手段の両方で、サブフォルダーをカウントに含めることはできません。 したがって、フォルダとそのすべてのサブフォルダ内のアイテムの総数を取得する場合は、次のような他の手段を探す必要があります。 VBAコードを利用して、このような合計数をすばやく達成しています。 その手の込んだ手順とVBAコードを取得するために読んでください。

フォルダとそのすべてのサブフォルダ内のアイテムの総数を取得する

  1. 非常に最初に、あなたはすることができますtarいつものようにOutlookプログラム。
  2. 次に、「Alt + F11」キーボタンを押して、OutlookVBAエディターを表示します。
  3. 次に、空のモジュールを開くことができます。
  4. 続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。
Sub CountItems()
    Dim objMainFolder As Outlook.Folder
    Dim lItemsCount As Long
 
    'Select a folder
    Set objMainFolder = Outlook.Application.Session.PickFolder
 
    If objMainFolder Is Nothing Then
       MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"
    Else
       'Initialize the total count
       lItemsCount = 0
       Call LoopFolders(objMainFolder, lItemsCount)
    End If
 
    'Display a message for the total count
    MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items"
End Sub

Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    lCurrentItemsCount = lCurrentItemsCount + objCurrentFolder.Items.Count
 
    'Process all folders and subfolders recursively
    If objCurrentFolder.Folders.Count Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call LoopFolders(objSubfolder, lCurrentItemsCount)
       Next
    End If
End Sub

VBAコード-フォルダーとそのすべてのサブフォルダー内のアイテムの総数を取得します

  1. その後、Outlookマクロのセキュリティレベルを低に変更する必要があります。
  2. 最後に、試してみることができます。
  • 新しいマクロウィンドウで、F5キーボタンを押します。
  • すぐに、フォルダを選択する必要があります。フォルダーを選択
  • すぐに、次の図のように、選択したフォルダーとそのすべてのサブフォルダー内のアイテムの総数を求める新しいメッセージが表示されます。アイテムを数える

古いアイテムを時間内にアーカイブする

PSTファイル内の古いアイテムをできるだけ早くアーカイブすることを常にお勧めします。 そうしないと、このファイルに蓄積されるアイテムが増えるため、エラーや破損が発生しやすくなります。 PSTファイルが危険にさらされると、元に戻すために多くの努力を費やします 破損したOutlook データ。 あなたがのような経験豊富なツールに再発しない限り、それはかなり難しいでしょう DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 腐敗した SQL Server と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。