Cómo abrir por lotes varios archivos PST de Outlook a la vez en Outlook

De forma predeterminada, Outlook no le permite abrir varios archivos PST de Outlook de forma masiva. En este artículo, le enseñaremos cómo usar VBA para abrir por lotes varios archivos de datos de Outlook a la vez en su Outlook.

Cuando desee abrir archivos PST de Outlook adicionales en su Outlook, generalmente tiene dos medios. Una es ir al cuadro de diálogo "Configuración de la cuenta" y luego cambiar a la pestaña "Archivos de datos" y luego hacer clic en el botón "Agregar" para seleccionar el archivo de Outlook para abrirlo. El otro es dirigirse al menú "Archivo" en la ventana de Outlook y luego hacer clic en el botón "Abrir archivo de datos de Outlook" en la pestaña "Abrir" para seleccionar el archivo. Ambos son útiles. Sin embargo, ambas formas solo le permiten abrir un solo archivo PST una vez. No se le permite abrir varios de una vez. Por lo tanto, si desea abrir masivamente más de un archivo PST, debe buscar otros métodos. Aquí te enseñaremos a usar VBA para lograrlo en poco tiempo.

Abrir por lotes varios archivos PST de Outlook a la vez

1. En primer lugar, start su programa Outlook.
2. Luego presione los botones de tecla "Alt + F11" en la ventana principal de Outlook.
3. A continuación, en el editor de Outlook VBA, debe abrir un nuevo módulo.
4. Posteriormente, copie y pegue los siguientes códigos VBA en el módulo.

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. Después de eso, cambie su nivel de seguridad macro de Outlook a bajo.
6. Finalmente, puede hacer clic en el icono "Ejecutar" en la barra de herramientas del editor de VBA o simplemente presionar la tecla F5 para activar este nuevo proyecto de VBA.
7. De una vez, todos los archivos PST de Outlook en la carpeta local predefinida se abrirán en lotes.

Lucha contra los molestos errores de PST

Dado que Outlook es susceptible a errores y corrupción, debe prestar atención a todas las amenazas potenciales, como infecciones de virus, cierre incorrecto de Outlook y configuraciones incorrectas de Outlook. Todos ellos pueden causar Corrupción de Outlook sin sudar. Por lo tanto, debe realizar una copia de seguridad de su archivo PST con regularidad. Ayudará mucho en la recuperación de datos posterior.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperación de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com