默認情況下，Outlook不支持您批量打開多個Outlook PST文件。 在本文中，我們將教您如何使用VBA在Outlook中一次批量打開多個Outlook數據文件。
通常，當您要在Outlook中打開其他Outlook PST文件時，有兩種方法。 一種是轉到“帳戶設置”對話框，然後轉到“數據文件”選項卡，然後單擊“添加”按鈕以選擇要打開的Outlook文件。 另一種是轉到Outlook窗口中的“文件”菜單，然後單擊“打開”選項卡下的“打開Outlook數據文件”按鈕以選擇文件。 他們倆都很方便。 但是，這兩種方式都只允許您一次打開一個PST文件。 您一口氣不能打開多個門。 因此，如果您要批量打開多個PST文件，則必須尋求其他方法。 在這裡，我們將教您使用VBA快速實現它。
一次批量打開多個Outlook PST文件
- 首先，啟動 Outlook 程式。
- 然後在Outlook主窗口中按“ Alt + F11”鍵按鈕。
- 接下來，在Outlook VBA編輯器中，您應該打開一個新模塊。
- 隨後，將以下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
- 之後，將您的Outlook宏安全級別更改為低。
- 最終，您可以單擊VBA編輯器工具欄中的“運行”圖標，或直接按F5鍵觸發此新的VBA項目。
- 一次，預定義的本地文件夾中的所有Outlook PST文件將被批量打開。
消除惱人的PST錯誤
由於Outlook易受錯誤和損壞的影響，因此您應注意所有潛在的威脅，例如病毒感染，不正確的Outlook關閉以及Outlook配置錯誤。 所有這些都可能導致 Outlook損壞 不費吹灰之力。 因此，您必須定期備份PST文件。 這將對以後的數據恢復有很大幫助。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf恢復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM