Hvordan batchåpne flere Outlook PST-filer samtidig i Outlook

Som standard støtter ikke Outlook deg for å åpne flere Outlook PST-filer samtidig. I denne artikkelen vil vi lære deg hvordan du bruker VBA til å åpne flere Outlook-datafiler samtidig i Outlook.

Når du vil åpne flere Outlook PST-filer i Outlook, har du vanligvis to måter. Den ene er å gå til "Kontoinnstillinger"-dialogboksen og deretter skifte til "Datafiler"-fanen og deretter klikke på "Legg til"-knappen for å velge Outlook-filen for å åpne den. Den andre er å gå til "Fil"-menyen i Outlook-vinduet og deretter klikke på "Åpne Outlook-datafil" -knappen under "Åpne" -fanen for å velge fil. Begge er praktiske. Imidlertid lar begge de to måtene deg bare åpne en enkelt PST-fil én gang. Du har ikke lov til å åpne flere på en gang. Derfor, hvis du ønsker å åpne mer enn én PST-fil i bulk, må du søke andre metoder. Her lærer vi deg å bruke VBA for å oppnå det på kort tid.

Batch åpne flere Outlook PST-filer samtidig

1. For det første, start Outlook-programmet ditt.
2. Trykk deretter på "Alt + F11"-tastene i hovedvinduet i Outlook.
3. Neste i Outlook VBA-editoren bør du åpne en ny modul.
4. Deretter kopierer og limer du inn følgende VBA-koder i modulen.

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. Deretter endrer du Outlook-makrosikkerhetsnivået til lavt.
6. Til slutt kan du klikke på "Kjør"-ikonet i verktøylinjen til VBA-redigering eller bare trykke på F5-tasten for å utløse dette nye VBA-prosjektet.
7. På en gang vil alle Outlook PST-filene i den forhåndsdefinerte lokale mappen åpnes i grupper.

Kjemp mot irriterende PST-feil

Siden Outlook er utsatt for feil og korrupsjon, bør du være oppmerksom på alle potensielle trusler, som virusinfeksjoner, feilaktig Outlook-avslutning samt feilkonfigurasjoner av Outlook. Alle av dem kan forårsake Outlook-korrupsjon uten å svette. Derfor må du sikkerhetskopiere PST-filen din med jevne mellomrom. Det vil hjelpe mye ved senere datagjenoppretting.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf gjenoppretting og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med