Come aprire in batch più file PST di Outlook contemporaneamente in Outlook

Per impostazione predefinita, Outlook non supporta l'apertura collettiva di più file PST di Outlook. In questo articolo, ti insegneremo come utilizzare VBA per aprire in batch più file di dati di Outlook contemporaneamente in Outlook.

Quando desideri aprire ulteriori file PST di Outlook in Outlook, in genere hai due mezzi. Uno è andare alla finestra di dialogo "Impostazioni account", quindi passare alla scheda "File di dati" e fare clic sul pulsante "Aggiungi" per selezionare il file di Outlook per aprirlo. L'altro è andare al menu "File" nella finestra di Outlook e quindi fare clic sul pulsante "Apri file di dati di Outlook" nella scheda "Apri" per selezionare il file. Entrambi sono a portata di mano. Tuttavia, entrambi i due modi consentono solo di aprire un singolo file PST una volta. Non è consentito aprirne più di uno in una volta sola. Pertanto, se desideri aprire in blocco più di un file PST, devi cercare altri metodi. Qui ti insegneremo a usare VBA per raggiungerlo in tempi rapidi.

Batch Apri più file PST di Outlook contemporaneamente

1. In primo luogo, start il tuo programma Outlook.
2. Quindi premere i pulsanti "Alt + F11" nella finestra principale di Outlook.
3. Successivamente nell'editor VBA di Outlook, dovresti aprire un nuovo modulo.
4. Successivamente, copia e incolla i seguenti codici VBA nel modulo.

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. Successivamente, modifica il livello di sicurezza delle macro di Outlook su basso.
6. Alla fine, puoi fare clic sull'icona "Esegui" nella barra degli strumenti dell'editor VBA o semplicemente premere il tasto F5 per attivare questo nuovo progetto VBA.
7. Contemporaneamente, tutti i file PST di Outlook nella cartella locale predefinita verranno aperti in batch.

Lotta contro i fastidiosi errori PST

Poiché Outlook è suscettibile di errori e corruzione, è necessario prestare attenzione a tutte le potenziali minacce, come infezioni da virus, arresto improprio di Outlook e configurazioni errate di Outlook. Tutti loro possono causare Corruzione di Outlook senza sudare. Pertanto, è necessario eseguire regolarmente il backup del file PST. Aiuterà molto nel successivo recupero dei dati.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recupero mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com