Wenn Sie die Ordnerstruktur von einer Outlook PST-Datei in eine andere kopieren möchten, können Sie die in diesem Artikel vorgestellte Methode verwenden, mit der Sie lernen, wie Sie VBA verwenden, um sie auf einmal abzurufen.
Um Ihre E-Mails besser verwalten zu können, haben Sie möglicherweise mehrere benutzerdefinierte Ordner in Ihrer Outlook-Hauptdatei erstellt. Wenn Sie eine neue Outlook PST-Datei erstellen, möchten Sie möglicherweise dieselbe Ordnerstruktur anwenden. Eigentlich in meinem vorherigen Artikel - “2 Schritte zum Beibehalten der aktuellen Ordnerhierarchie in einer neuen Outlook-Datei“Können Sie eine traditionelle Methode erlernen, bei der die Funktion„ Archivieren “verwendet wird, um dies zu erreichen. Trotzdem ist es eigentlich noch ein bisschen langweilig. Im Vergleich dazu ist die Verwendung von VBA-Codes viel schneller. Daher werden wir Ihnen im Folgenden die ausführlichen Schritte und Codes erläutern.
Kopieren Sie die Ordnerstruktur von einer Outlook-PST-Datei in eine andere
- Starten Sie als Erstes Ihr Outlook-Programm.
- Drücken Sie dann im Outlook-Fenster die Tasten „Alt + F11“.
- Als Nächstes rufen Sie das Outlook VBA-Editorfenster auf.
- Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in ein neues Modul ein.
Public objNewPSTFolder As Outlook.Folder
Sub CopyFolderStructure()
Dim objFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
'Get the folders of the source Outlook PST file
Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
'Create the new pst file in your desired local folder and name
Outlook.Application.Session.AddStore "E:\New PST File.pst"
Set objNewPSTFolder = Session.Folders.GetLast()
For Each objFolder In objFolders
CreateFolder objFolder
Next
MsgBox "Completed!", vbOKOnly + vbInformation, "Copy Folder Structure"
End Sub
Sub CreateFolder(objFolder As Outlook.Folder)
Dim objSubFolder As Outlook.Folder
'Only copy the mail folder
If (objFolder.DefaultItemType = olMailItem) Then
'New Outlook PST file auto includes the "Deleted Items" folder, so skip it
'Skip the useless mail folders - "Conversation Action Settings" and "Quick Step Settings"
If (objFolder.Name <> "Deleted Items") And (objFolder.Name <> "Conversation Action Settings") And (objFolder.Name <> "Quick Step Settings") Then
'Create the new folder
objNewPSTFolder.Folders.Add objFolder.Name
Set objNewPSTFolder = objNewPSTFolder.Folders.Item(objFolder.Name)
For Each objSubFolder In objFolder.Folders
CreateFolder objSubFolder
Next
Set objNewPSTFolder = objNewPSTFolder.parent
End If
End If
End Sub
- Ändern Sie danach Ihre Makrosicherheitsstufe auf niedrig.
- Kehren Sie später zum VBA-Editorfenster zurück und drücken Sie die Taste „F5“, um das Makro auszuführen.
- Nachdem das Makro funktioniert hat, erhalten Sie eine Meldung mit der Aufforderung "Abgeschlossen!".
- An dieser Stelle können Sie zum Mail-Navigationsbereich wechseln. Sie sehen eine neue Outlook-Datendatei, die sich in derselben Ordnerstruktur wie die PST-Quelldatei befindet (siehe Abbildung unten):
Bewältigen Sie entmutigende PST-Probleme
Da Outlook PST fehleranfällig ist, müssen viele von Ihnen jemals auf verschiedene Probleme in Outlook gestoßen sein. Vor diesem Hintergrund können Sie zunächst das Outlook-Tool zur Reparatur des Posteingangs verwenden, um es auszuprobieren. Wenn dies fehlschlägt, können Sie ein leistungsfähigeres Tool von Drittanbietern anwenden, z DataNumen Outlook Repair, Denen Outlook reparieren PST-Fehler wie ein Kinderspiel.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server fixieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX