如何通过 Outlook VBA 合并 PST 文件

展望解决方案 2025 年 10 月 3 日

如果要将多个 PST 文件合并为一个文件，可以使用本文介绍的方法。它会让您通过 Outlook VBA 快速获取它。

如果您有很多 PST 文件，您肯定会发现很难同时管理所有这些文件。更具体地说，如果您经常需要访问这些 PST 文件中的数据，那么浏览所有文件以找出您想要的内容将是一项繁琐的任务。在这种情况下，最好的解决方案是将它们全部合并到一个 PST 文件中，这样您就可以更轻松有效地管理它们。

一般来说，如果您只想将两个文件合并为一个文件，则只需将一个文件导入另一个文件即可。但是，如果要合并多个，手动操作会很麻烦。所以，在这里我们将向您介绍如何通过 VBA 快速合并多个 PST 文件。现在，继续阅读以详细了解它。

通过 Outlook VBA 合并 PST 文件

首先，您应该打开所有要合并的 PST 文件。关于批量打开多个PST文件，可以参考我们的另一篇文章——》如何在 Outlook 中一次批量打开多个 Outlook PST 文件=
打开它们后，您应该访问 Outlook VBA 编辑器，方法是单击“开发人员”选项卡下的“Visual Basic”按钮或按“Alt + F11”键。
然后在“Microsoft Visual Basic for Applications”窗口中，打开一个模块。
接下来将以下 VBA 代码复制并粘贴到模块窗口中。

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

随后，您应该确认您的 Outlook 允许宏。
最后你可以试试看。

首先，点击进入“CreateNewPST”子程序。
然后单击工具栏中的“运行”图标。
接下来，您需要在弹出对话框中选择源文件，如下图所示：
选择一个后，单击“确定”。
然后 Outlook 会将所选文件中的所有项目复制到新的 PST 文件中。
之后，您将收到一条消息，询问是否再选择一个文件。点击“是”，您可以选择下一个源 PST 文件。
只要您完成选择并合并所有需要的源文件，您就可以选择“否”。
最后，您将成功获得一个新的 PST 文件，它是所有选定源文件的合并文件。

如果 PST 文件损坏怎么办

由于 Outlook PST 文件容易出错和损坏，您必须采取措施保护您的 PST 数据。毫无疑问，最有效的预防措施之一是坚持定期数据备份，这将使您能够…… 恢复 Outlook 数据更容易。此外，您最好随身携带一个强大的修复工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括固定 SQL Server 和 outlook 修复软件产品。欲了解更多信息，请访问 datanumen.com