如何在 Outlook 中一次批量打开多个 Outlook PST 文件

默认情况下，Outlook 不支持您批量打开多个 Outlook PST 文件。 在本文中，我们将教您如何使用 VBA 在您的 Outlook 中一次批量打开多个 Outlook 数据文件。

当您想在 Outlook 中打开其他 Outlook PST 文件时，通常有两种方法。 一种是转到“帐户设置”对话框，然后切换到“数据文件”选项卡，然后单击“添加”按钮选择要打开的 Outlook 文件。 另一种是前往 Outlook 窗口中的“文件”菜单，然后单击“打开”选项卡下的“打开 Outlook 数据文件”按钮以选择文件。 他们两个都很方便。 但是，这两种方式都只允许您打开一个 PST 文件一次。 不允许一次打开多个。 因此，如果您想批量打开多个 PST 文件，则必须寻求其他方法。 在这里，我们将教您使用 VBA 快速实现它。

一次批量打开多个 Outlook PST 文件

1. 首先，启动 Outlook 程序。
2. 然后在 Outlook 主窗口中按“Alt + F11”键按钮。
3. 接下来，在 Outlook VBA 编辑器中，您应该打开一个新模块。
4. 随后，将以下 VBA 代码复制并粘贴到模块中。

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. 之后，将您的 Outlook 宏安全级别更改为低。
6. 最后，您可以单击 VBA 编辑器工具栏中的“运行”图标或简单地按 F5 键来触发这个新的 VBA 项目。
7. 一次，将批量打开预定义本地文件夹中的所有 Outlook PST 文件。

对抗恼人的 PST 错误

由于 Outlook 容易出错和损坏，您应该注意所有潜在的威胁，例如病毒感染、不正确的 Outlook 关闭以及 Outlook 的错误配置。 所有这些都可能导致 前景腐败 毫不费力。 因此，您必须定期备份 PST 文件。 对以后的数据恢复有很大帮助。

作者简介：

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