Outlookのすべての空のサブフォルダーをバッチ削除する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookの空のサブフォルダーをすべて一括削除する場合は、この記事で紹介した方法を利用できます。 OutlookVBAを使用してサブフォルダーをバッチで削除する方法を説明します。

Outlookのメールをより適切に分類・管理するために、受信トレイ、送信済みアイテム、下書きフォルダなど、既定のフォルダの下に多くのカスタムサブフォルダを作成していることでしょう。しかし、場合によっては、あまり使用されていないサブフォルダがあることに気づくかもしれません。そのため、ほとんどの場合、それらのサブフォルダには何もアイテムが入っていません。このような場合、空のサブフォルダをすべて削除したいと思うでしょう。

通常、このようなサブフォルダを右クリックして、右クリックメニューから[フォルダの削除]を選択できます。それでも、空のサブフォルダーが多い場合は、XNUMXつずつ削除するのは非常に面倒です。したがって、それらすべてをまとめて削除するためのヒントを待ち望んでいる必要があります。 Outlookにはそのような機能はありませんが、VBAコードを使用して短時間で実現できます。以下では、手の込んだ手順とコードを紹介します。

空のサブフォルダーをすべてバッチ削除

まず最初に、Outlookプログラムを起動してください。
次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
次に、「Microsoft Visual Basic for Applications」ウィンドウで、使用されていないモジュールを開きます。
続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

その後、Outlookマクロのセキュリティレベルを低に変更します。
最終的には、現在のマクロウィンドウで「F5」キーボタンを押すことにより、このマクロを実行できます。
すぐに、すべての空のサブフォルダーが削除されることがわかります。

破損したOutlookのPSTデータを取得する

Outlookはエラーや損傷を受けやすいため、OutlookPSTファイルの保護に注意を払う必要があります。たとえば、PSTデータを定期的にバックアップする必要があります。また、 Outlookを修復するできるだけ早く問題を解決するには、次のような信頼できる強力な修正ツールを準備する必要があります。 DataNumen Outlook Repair.

著者紹介：

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