So verschieben Sie alle E-Mails in einer Outlook-PST-Datei stapelweise über VBA in einen bestimmten Ordner

Wenn Sie alle E-Mails in einer PST-Datei in einen bestimmten Ordner in einer anderen PST-Datei verschieben möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Hier erfahren Sie, wie Sie VBA verwenden, um es schnell zu erhalten.

Aus bestimmten Gründen müssen Sie manchmal alle E-Mails in einer bestimmten PST-Datei in einen bestimmten Ordner in einer anderen PST-Datei verschieben. In diesem Fall wird es zweifellos ziemlich mühsam sein, wenn Sie es manuell tun. Daher werden wir hier eine schnelle Methode lehren, die VBA verwendet, um alle Ordner in einer bestimmten PST-Datei zu durchlaufen und jede E-Mail in einen bestimmten Ordner zu verschieben. Lesen Sie weiter, um die ausführlichen Schritte und Codes zu erreichen.

Batch Verschieben Sie alle E-Mails in einer Outlook-PST-Datei in einen bestimmten Ordner

1. Starten Sie gleich zu Beginn Ihre Outlook-Anwendung.
2. Anschließend können Sie zur Registerkarte "Entwickler" wechseln und auf die Schaltfläche "Visual Basic" klicken. Oder drücken Sie die Tastenkombinationen „Alt + F11“.
3. Öffnen Sie anschließend im Popup-Fenster des VBA-Editors ein nicht verwendetes Modul oder fügen Sie direkt ein neues Modul ein.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Modul ein.

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. Ändern Sie danach die Sicherheitsstufe Ihres Outlook-Makros auf niedrig.
6. Schließlich können Sie das neue Makro ausführen, indem Sie auf das Symbol „Ausführen“ in der Symbolleiste klicken oder die Taste „F5“ drücken.
7. Alle E-Mails aller Ordner in einem bestimmten Ordner werden sofort stapelweise in den vorgegebenen Ordner verschoben.

Retten Sie Ihre PST-Daten rechtzeitig

Wenn du leider leidest PST-Schaden, Was werden Sie dann tun? Im Allgemeinen muss Ihr erster Gedanke darin bestehen, die kompromittierten PST-Daten so schnell wie möglich zurückzugewinnen. Der einfachste Weg ist wie üblich die Wiederherstellung von einer aktuellen Datensicherung. Wenn die Datensicherung jedoch mehrere Wochen alt ist, ist sie möglicherweise unbrauchbar. In diesem Fall haben Sie keine andere Wahl, als zu einem leistungsstarken Wiederherstellungswerkzeug wie z DataNumen Outlook Repair.

Einführung des Autors:

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