Outlook で複数のフォルダーまたはサブフォルダーを一括削除する方法は？

Outlook では、ナビゲーションから一度に削除できるフォルダーは1 つだけとなっており、複数のフォルダーを一括で削除する直接的な方法は提供されていません。特定のフォルダー配下の複数のサブフォルダー、あるいはすべてのサブフォルダーを削除したい場合、ひとつずつ手作業で削除するのは非常に面倒で時間がかかります。このガイドでは、Outlook で複数のフォルダーやサブフォルダーを素早く削除するための2 つの効率的な方法をご紹介します。

方法1：VBA を使用して指定されたフォルダーのすべてのサブフォルダーを削除する

方法2：一時フォルダーを使用して複数のフォルダーを一括で削除する

---

方法1：VBA を使用して指定されたフォルダーのすべてのサブフォルダーを削除する

この方法では、選択したフォルダー内のすべてのサブフォルダーを一括で削除するのに VBA を使用します。以下の手順に従ってください。

手順1：親フォルダーを選択する

メールビューで、サブフォルダーを削除したいフォルダーに移動してください。

手順2：VBA エディターを開く

Alt＋F11キーを押すと、Microsoft Visual Basic for Applications（VBA）ウィンドウが開きます。

手順3：VBA コードを挿入して実行する

1．［挿入］＞［標準モジュール］をクリックして、新しいモジュールを作成しましょう。

2．次の VBA コードをモジュールにコピー＆ペーストしてください。

Sub Delete_All_SubFolders()
Dim oCurrFolder As Folder
Dim oSubFolders As Folders
Dim i As Long

On Error Resume Next

Set oCurrFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set oSubFolders = oCurrFolder.Folders

For i = oSubFolders.Count To 1 Step -1
oSubFolders.Item(i).Delete
Next
End Sub

F5キーを押して、コードを実行しましょう。

結果：

VBA スクリプトを実行すると、選択したフォルダー内のすべてのサブフォルダーが即座に削除されます。

---

方法2：一時フォルダーを使用して複数のフォルダーを一括で削除する

Outlook アカウント内に点在する複数のフォルダーを削除する必要がある場合は、一度それらを一時フォルダーにまとめて、まとめて削除できます。

手順1：一時フォルダーを作成する

1．ナビゲーションでメールアカウントを右クリックし、「新しいフォルダ」を選択します。

2．新しいフォルダの名前を「Temp」に設定します。

手順2：フォルダーを一時フォルダーに移動する

1．削除したいフォルダーをそれぞれ一時フォルダにドラッグしてください。

2．ドラッグ中は、マウスボタンを離す前に一時フォルダがハイライトされていることをご確認ください。

3．確認ダイアログが表示された場合は、「はい」をクリックして移動を確定してください。

手順3：一時フォルダーを削除する

1．不要なすべてのフォルダーを Temp 内に移動したら、そのフォルダーを右クリックして［フォルダーの削除］を選択してください。

2．Microsoft Outlook の警告ダイアログで「はい」をクリックし、削除を確定してください。

結果：

一時フォルダの削除が確定されると、選択したすべてのファイルが一括で削除されます。

---

関連記事