如何通過Outlook VBA合併PST文件

Outlook解決方案 2025 年 10 月 3 日

如果要將多個PST文件合併到一個文件中，可以使用本文介紹的方法。它可以讓您通過Outlook VBA快速獲得它。

如果您有許多PST文件，那麼您肯定會發現同時管理所有這些文件非常困難。更具體地說，如果經常需要訪問這些PST文件中的數據，那麼遍歷所有文件以查找所需內容將是一項繁瑣的任務。在這種情況下，最好的解決方案是將所有這些合併到一個PST文件中，這樣您就可以更加輕鬆，有效地管理它們。

通常，如果您只想將兩個文件合併到一個文件中，則可以將一個文件導入另一個文件中。但是，如果您要合併多個，則手動執行此操作會很麻煩。因此，在這裡，我們將向您介紹如何通過VBA快速合併多個PST文件。現在，繼續閱讀以獲取詳細信息。

通過Outlook VBA合併PST文件

首先，您應該打開要合併的所有PST文件。關於批量打開多個PST文件，您可以參考我們的另一篇文章-“如何在Outlook中一次批量打開多個Outlook PST文件“
打開它們後，您應該通過單擊“開發人員”選項卡下的“ Visual Basic”按鈕或按“ Alt + F11”鍵來訪問Outlook VBA編輯器。
然後在“ 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