So stapeln Sie mehrere Outlook-PST-Dateien gleichzeitig in Ihrem Outlook

Standardmäßig unterstützt Outlook das Öffnen mehrerer Outlook PST-Dateien in großen Mengen nicht. In diesem Artikel erfahren Sie, wie Sie mit VBA mehrere Outlook-Datendateien gleichzeitig in Ihrem Outlook stapelweise öffnen.

Wenn Sie zusätzliche Outlook PST-Dateien in Ihrem Outlook öffnen möchten, haben Sie im Allgemeinen zwei Möglichkeiten. Gehen Sie zum Dialogfeld "Kontoeinstellungen", wechseln Sie zur Registerkarte "Datendateien" und klicken Sie auf "Hinzufügen", um die Outlook-Datei zum Öffnen auszuwählen. Die andere Möglichkeit besteht darin, im Outlook-Fenster zum Menü „Datei“ zu wechseln und dann auf der Registerkarte „Öffnen“ auf die Schaltfläche „Outlook-Datendatei öffnen“ zu klicken, um die Datei auszuwählen. Beide sind praktisch. Auf beiden Arten können Sie eine einzelne PST-Datei jedoch nur einmal öffnen. Sie dürfen nicht mehrere auf einmal öffnen. Wenn Sie mehr als eine PST-Datei in großen Mengen öffnen möchten, müssen Sie daher nach anderen Methoden suchen. Hier lernen Sie, wie Sie VBA verwenden, um dies in kurzer Zeit zu erreichen.

Öffnen Sie mehrere Outlook-PST-Dateien gleichzeitig

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Drücken Sie dann im Outlook-Hauptfenster die Tasten „Alt + F11“.
3. Als Nächstes sollten Sie im Outlook VBA-Editor ein neues Modul öffnen.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in das Modul ein.

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Ändern Sie danach die Sicherheitsstufe Ihres Outlook-Makros auf niedrig.
6. Schließlich können Sie in der Symbolleiste des VBA-Editors auf das Symbol „Ausführen“ klicken oder einfach die Taste F5 drücken, um dieses neue VBA-Projekt auszulösen.
7. Alle Outlook PST-Dateien im vordefinierten lokalen Ordner werden sofort in Stapeln geöffnet.

Kampf gegen lästige PST-Fehler

Da Outlook anfällig für Fehler und Korruption ist, sollten Sie alle potenziellen Bedrohungen wie Virusinfektionen, unsachgemäßes Herunterfahren von Outlook sowie Fehlkonfigurationen von Outlook berücksichtigen. Alle von ihnen können verursachen Outlook-Korruption ohne ins Schwitzen zu geraten. Daher müssen Sie Ihre PST-Datei regelmäßig sichern. Dies wird bei der späteren Datenwiederherstellung sehr hilfreich sein.

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.datanumen.com €XNUMX