Hoe u meerdere Outlook PST-bestanden tegelijk in uw Outlook kunt openen

Outlook-oplossingen 29 september 2025

Standaard ondersteunt Outlook u niet om meerdere Outlook PST-bestanden in bulk te openen. In dit artikel leren we u hoe u VBA kunt gebruiken om meerdere Outlook-gegevensbestanden tegelijk in uw Outlook te openen.

Wanneer u extra Outlook PST-bestanden in uw Outlook wilt openen, heeft u over het algemeen twee middelen. Een daarvan is om naar het dialoogvenster "Accountinstellingen" te gaan en vervolgens naar het tabblad "Gegevensbestanden" te gaan en vervolgens op de knop "Toevoegen" te klikken om het Outlook-bestand te selecteren om het te openen. De andere is om naar het menu "Bestand" in het Outlook-venster te gaan en vervolgens op de knop "Open Outlook-gegevensbestand" onder het tabblad "Openen" te klikken om het bestand te selecteren. Beiden zijn handig. Op beide manieren kunt u echter maar één keer een enkel PST-bestand openen. Het is niet toegestaan ​​om meerdere in één keer te openen. Daarom, als u meer dan één PST-bestand in bulk wilt openen, moet u andere methoden zoeken. Hier leren we je VBA te gebruiken om dit snel te bereiken.

Batch Meerdere Outlook PST-bestanden tegelijk openen

Batch Meerdere Outlook PST-bestanden tegelijk openen

  1. Start allereerst uw Outlook-programma.
  2. Druk vervolgens op de toetsen "Alt + F11" in het hoofdvenster van Outlook.
  3. Vervolgens moet u in de Outlook VBA-editor een nieuwe module openen.
  4. Kopieer en plak vervolgens de volgende VBA-codes in de module.
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

VBA-code - Batch Open meerdere Outlook PST-bestanden tegelijk

  1. Wijzig daarna uw Outlook-macrobeveiligingsniveau naar laag.
  2. Uiteindelijk kunt u op het pictogram "Uitvoeren" in de werkbalk van de VBA-editor klikken of eenvoudig op de F5-toets drukken om dit nieuwe VBA-project te activeren.
  3. In één keer worden alle Outlook PST-bestanden in de vooraf gedefinieerde lokale map in batches geopend.Verschillende PST-bestanden worden geopend

Vecht tegen irritante PST-fouten

Aangezien Outlook vatbaar is voor fouten en corruptie, moet u letten op alle mogelijke bedreigingen, zoals virusinfecties, onjuist afsluiten van Outlook en verkeerde configuraties van Outlook. Ze kunnen allemaal veroorzaken Outlook corruptie zonder te zweten. Daarom moet u regelmatig een back-up van uw PST-bestand maken. Het zal veel helpen bij later gegevensherstel.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.