So stapeln Sie E-Mails stapelweise aus allen Unterordnern eines Ordners in einen anderen Ordner in Outlook

Vielleicht haben Sie einen Ordner, unter dem sich zahlreiche Unterordner befinden. Wenn Sie die darin enthaltenen E-Mails neu organisieren möchten, z. B. alle E-Mails schnell aus diesen Unterordnern in einen bestimmten Ordner verschieben möchten, können Sie die in diesem Artikel freigegebene Methode verwenden.

Manchmal müssen Sie die E-Mails aus bestimmten Gründen stapelweise aus allen Unterordnern eines Ordners in einen anderen Ordner verschieben, z. B. um E-Mails neu zu klassifizieren, sodass diese Unterordner nicht mehr nützlich sind. In diesem Fall ist die Verarbeitung dieser Unterordner nacheinander recht mühsam. Deshalb stellen wir Ihnen hier einen anderen Weg vor.

Batch-Verschieben von E-Mails aus allen Unterordnern eines Ordners in einen anderen Ordner

1. Starten Sie als Erstes Ihr Outlook-Programm.
2. Tippen Sie dann im Outlook-Hauptbildschirm auf die Tasten „Alt + F11“, um zum VBA-Editor zu gelangen.
3. Als Nächstes müssen Sie im neuen Fenster "Microsoft Visual Basic für Applikationen" ein Modul öffnen, das nicht verwendet wird.
4. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in dieses Modul ein.

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

5. Danach können Sie dieses Makro ausführen.

• Drücken Sie zunächst in diesem Makrofenster die Taste „F5“.
• Anschließend müssen Sie einen Quellordner auswählen, dessen Unterordner verarbeitet werden sollen.
• Danach müssen Sie den Zielordner angeben, in den Sie E-Mails verschieben möchten.
• Anschließend wird dieses Makro ausgeführt. Nach Abschluss des Vorgangs erhalten Sie die Meldung „Fertigstellen“.
• Schließlich können Sie auf den Zielordner zugreifen. Sie werden sehen, dass sich alle E-Mails der Unterordner des Quellordners dort befinden.

Stellen Sie gefährdete Outlook-Daten wieder her

Trotz zahlreicher Funktionen wie bei anderen E-Mail-Clients kann sich Outlook auch der Korruption nicht entziehen. Da immer mehr Daten gespeichert werden, ist Outlook zunehmend anfällig für Fehler und Schäden. Daher müssen Sie ein leistungsfähiges Reparaturwerkzeug bereithalten, wie z DataNumen Outlook Repair. Es ist speziell dafür konzipiert Outlook reparieren Probleme. Dadurch kann es mühelos beschädigte Outlook-Dateien scannen und wiederherstellen.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datKanumeren.com