OutlookでXNUMXつのフォルダーのすべてのサブフォルダーから別のフォルダーに電子メールをバッチ移動する方法

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

おそらく、その下に多数のサブフォルダーがあるフォルダーがあります。これらのサブフォルダーから特定のフォルダーにすべての電子メールをすばやく移動するなど、それらの電子メールを再編成する場合は、この記事で共有されている方法を使用できます。

電子メールを再分類したいなどの理由で、あるフォルダのすべてのサブフォルダから別のフォルダに電子メールをバッチ移動する必要がある場合があります。そのため、これらのサブフォルダはもはや役に立ちません。この場合、これらのサブフォルダーをXNUMXつずつ処理するのは非常に面倒です。したがって、ここでは別の方法を紹介します。

あるフォルダのすべてのサブフォルダから別のフォルダにメールをバッチ移動する

まず最初に、Outlookプログラムを起動してください。
次に、Outlookのメイン画面で[Alt + F11]キーボタンをタップすると、VBAエディターが表示されます。
次に、新しい「Microsoft Visual Basic for Applications」ウィンドウで、使用されていないモジュールを開く必要があります。
続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

その後、このマクロを実行できます。

まず、このマクロウィンドウで「F5」キーボタンを押します。
次に、サブフォルダーを処理するソースフォルダーを選択する必要があります。
その後、メールの移動先フォルダを指定する必要があります。
その後、このマクロが動作を開始します。完了すると、「完了」というメッセージが表示されます。
最終的に、目的のフォルダにアクセスできます。ソースフォルダの下にあるサブフォルダのすべてのメールがそこに移動されていることが確認できます。

侵害されたOutlookデータを復元する

他の電子メールクライアントのように多くの機能を誇っていますが、Outlookも破損から逃れることはできません。保存されるデータが増えるにつれ、Outlookはエラーや損傷を受けやすくなります。したがって、次のような強力な修復ツールを手元に置いておく必要があります。 DataNumen Outlook Repair。それは特に Outlookを修正する問題。これにより、破損したOutlookファイルを簡単にスキャンして復元できます。

著者紹介：

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