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
- In primo luogo, start il tuo programma Outlook.
- Quindi premere i pulsanti "Alt + F11" nella finestra principale di Outlook.
- Successivamente nell'editor VBA di Outlook, dovresti aprire un nuovo modulo.
- Successivamente, copia e incolla i seguenti codici VBA nel modulo.
Sub BatchOpenMultiplePSTFiles() 'È possibile modificare il percorso in base alle proprie esigenze 'È inoltre possibile specificare una cartella diversa da un'unità 'Ad esempio: Call LoopFolders("C:\Users\Test\My Documents\Outlook Files") Call LoopFolders( "E:\") MsgBox "Apri correttamente!", vbExclamation + vbOKOnly, "Apri file di dati di Outlook" 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") Imposta objFolder = objFileSystem.GetFolder(strPath) For Each objFile In objFolder.Files 'Trova il file pst per estensione file strFileExtension = objFileSystem.GetExtensionName(objFile) If LCase(strFileExtension) = "pst" Quindi imposta objPSTFile = objFile 'Apri il file PST Outlook.Application.Session.AddStore (objPSTFile.Path) End If Next 'Elabora tutte le cartelle e le sottocartelle nell'unità locale E If objFolder.SubFolders.Count > 0 Then For each objSubFolder In objFolder .SubFolders 'Salta il sistema e le cartelle nascoste If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Successivamente, modifica il livello di sicurezza delle macro di Outlook su basso.
- 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.
- 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