Outlook で削除する前に、フォルダー内のアイテムを親フォルダーに自動移動する方法

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

デフォルトでは、Outlook でフォルダーを削除すると、そのアイテムも [削除済みアイテム] フォルダーに移動します。 Outlook でフォルダー内のアイテムを削除する前に親フォルダーに自動的に移動する場合は、この記事で共有されている方法を使用できます。

フォルダーを削除すると、その内容がすべて「削除済みアイテム」フォルダーにも移動されるという警告が Outlook から表示されます。でも、most 場合によっては、フォルダーに保存されているアイテムを含めずに、このフォルダーを削除したいだけです。したがって、アイテムをフォルダーの親フォルダーに自動的に移動できることを望みます。ここでは、VBAを介してそれを実現する方法を教えます。 VBA について何も知らない場合は、最初に私の以前の記事を読むことができます – 「OutlookでVBAコードを実行する方法"

フォルダ内のアイテムを削除する前に親フォルダに自動移動

まず、「Alt + F11」からOutlookVBAエディターにアクセスします。
次に、新しいウィンドウで「ThisOutlookSession」プロジェクトを開きます。
続いて、次のVBAコードをコピーしてこのプロジェクトに貼り付けます。

'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

その後、すぐに撮影できます。
まず、削除したいサブフォルダを右クリックします。
次に、コンテキストメニューから「[スマート] フォルダを削除」オプションを選択します。
すぐに、Outlook はフォルダーを削除し、そのアイテムを親フォルダーに移動します。
私の例では、「To Bob」サブフォルダーを削除します。その親フォルダは「送信済みアイテム」です。したがって、次のスクリーンショットのように、すべてのアイテムが「送信済みアイテム」に移動されました。

Outlookは脆弱であることに注意してください

疑いの余地のない事実を心に留めておく必要があります。Outlook はエラーや破損の影響を受けやすいです。したがって、ウイルス、不適切な終了など、Outlook データファイルの周りのすべての潜在的な脅威に注意する必要があります。さらに、次のような強力で信頼できる Outlook 修正ツールを準備することをお勧めします。 DataNumen Outlook Repair。それはあなたを助けることができます Outlookを修正する数分以内の問題

著者紹介：

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