Cómo combinar archivos PST a través de Outlook VBA

Si desea fusionar varios archivos PST en un solo archivo, puede utilizar el método presentado en este artículo. Le permitirá obtenerlo rápidamente a través de Outlook VBA.

Si tiene muchos archivos PST, seguramente le resultará bastante difícil administrarlos todos mientras tanto. Más específicamente, si se le solicita con frecuencia que acceda a los datos de estos archivos PST, será una tarea tediosa para usted revisar todos los archivos para encontrar lo que desea. En este caso, la mejor solución es fusionarlos todos en un solo archivo PST, de modo que pueda administrarlos de manera mucho más fácil y efectiva.

En general, si solo desea fusionar dos archivos en uno, puede importar uno al otro. Sin embargo, si desea fusionar varios, hacerlo manualmente será considerablemente problemático. Entonces, aquí le presentaremos para fusionar múltiples archivos PST en un tiempo rápido a través de VBA. Ahora, sigue leyendo para obtenerlo en detalle.

Fusionar archivos PST a través de Outlook VBA

1. En primer lugar, debe abrir todos los archivos PST que desea fusionar. Acerca de la apertura por lotes de varios archivos PST, puede consultar nuestro otro artículo: "Cómo abrir por lotes varios archivos PST de Outlook a la vez en Outlook"
2. Después de abrirlos, debe acceder al editor de Outlook VBA, ya sea haciendo clic en el botón "Visual Basic" en la pestaña "Desarrollador" o presionando las teclas "Alt + F11".
3. Luego, en la ventana "Microsoft Visual Basic para Aplicaciones", abra un módulo.
4. A continuación, copie y pegue los siguientes códigos VBA en la ventana del módulo.

Public objNewPSTFileFolder As Outlook.Folder

Private Sub CreateNewPSTFile()
    'Create a new PST file
    Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst"
    Set objNewPSTFileFolder = Session.Folders.GetLast()
    Call SelectANDMergePSTFiles
End Sub

Sub SelectANDMergePSTFiles()
    Dim objSourceFile As Object
    Dim strMsg As String
    Dim nResponse As Integer
 
    'Select the source PST file
    Set objSourceFile = Outlook.Application.Session.PickFolder
    Call CopyFolder(objSourceFile)
 
    'Ask if select one more PST file
    strMsg = "One Completes! Do you want to select one more PST file?"
    nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files")
  
    If nResponse = vbYes Then
       Call SelectANDMergePSTFiles
    Else
       MsgBox ("All Complete!")
    End If
End Sub

Sub CopyFolder(ByVal objCurrentFile As Object)
    Dim objFolder As Outlook.Folder
 
    For Each objFolder In objCurrentFile.Folders
        objFolder.CopyTo objNewPSTFileFolder
    Next objFolder
End Sub

5. Posteriormente, debe confirmar que Outlook permite macros.
6. Finalmente puedes intentarlo.

• En primer lugar, haga clic en la subrutina "CreateNewPST".
• Luego haga clic en el icono "Ejecutar" en la barra de herramientas.
• A continuación, deberá seleccionar el archivo de origen en el cuadro de diálogo emergente como la siguiente captura de pantalla:
• Después de seleccionar uno, haga clic en "Aceptar".
• Luego, Outlook copiará todos los elementos del archivo seleccionado al nuevo archivo PST.
• Después de eso, recibirá un mensaje preguntándole si debe seleccionar un archivo más. Pulse "Sí", puede seleccionar el siguiente archivo PST de origen.
• Siempre que termine de seleccionar y fusionar todos los archivos de origen deseados, puede seleccionar "No".
• Por último, obtendrá con éxito un nuevo archivo PST que es el archivo combinado de todos los archivos de origen seleccionados.

¿Qué pasa si el archivo PST se corrompe?

Como el archivo PST de Outlook es susceptible a errores y daños, debe hacer esfuerzos para proteger sus datos PST. Sin duda, uno de los most Las precauciones efectivas son persistir en las copias de seguridad de datos regulares, lo que le permitirá recuperar Outlook datos mucho más fácilmente. Además, es mejor tener a mano una potente herramienta de reparación, como DataNumen Outlook Repair.

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 reparar SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com