Jak sloučit soubory PST pomocí aplikace Outlook VBA

Pokud chcete sloučit více souborů PST do jednoho souboru, můžete použít metodu uvedenou v tomto článku. Umožní vám to rychle získat prostřednictvím aplikace Outlook VBA.

Pokud máte mnoho souborů PST, určitě pro vás bude mezitím docela obtížné je všechny spravovat. Přesněji řečeno, pokud se od vás často vyžaduje přístup k datům v těchto souborech PST, bude pro vás zdlouhavý úkol projít všechny soubory a zjistit, co si přejete. V tomto případě je nejlepším řešením sloučit všechny do jednoho souboru PST, takže je budete moci spravovat mnohem snadněji a efektivněji.

Obecně platí, že pokud chcete sloučit pouze dva soubory do jednoho, stačí importovat jeden do druhého. Pokud však chcete sloučit více, bude to dělat manuálně značně problematické. Zde vám tedy představíme sloučení více souborů PST v rychlém čase pomocí VBA. Nyní čtěte dále, abyste získali podrobnost.

Sloučení souborů PST prostřednictvím aplikace Outlook VBA

1. Nejprve byste měli otevřít všechny soubory PST, které chcete sloučit. O dávkovém otevírání více souborů PST se můžete podívat na náš další článek - „Jak dávkové otevření více souborů PST aplikace Outlook najednou v aplikaci Outlook"
2. Po jejich otevření byste měli přejít do editoru Outlook VBA, buď kliknutím na tlačítko „Visual Basic“ na kartě „Developer“ nebo stisknutím kláves „Alt + F11“.
3. Poté v okně „Microsoft Visual Basic for Applications“ otevřete modul.
4. Dále zkopírujte a vložte následující kódy VBA do okna modulu.

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. Následně byste měli potvrdit, že váš Outlook povoluje makra.
6. Nakonec to můžete vyzkoušet.

• Nejprve klikněte na podprogram „CreateNewPST“.
• Poté klikněte na ikonu „Spustit“ na panelu nástrojů.
• Dále budete muset vybrat zdrojový soubor v rozevíracím dialogovém okně, jako je následující snímek obrazovky:
• Po výběru klikněte na „OK“.
• Poté Outlook zkopíruje všechny položky z vybraného souboru do nového souboru PST.
• Poté dostanete zprávu s dotazem, zda chcete vybrat ještě jeden soubor. Stiskněte „Ano“, můžete vybrat další zdrojový soubor PST.
• Pokud dokončíte výběr a sloučení všech požadovaných zdrojových souborů, můžete vybrat „Ne“.
• Nakonec úspěšně získáte nový soubor PST, který je sloučeným souborem všech vybraných zdrojových souborů.

Co když se soubor PST poškodí

Protože soubor PST aplikace Outlook je náchylný k chybám a poškozením, musíte vyvinout úsilí k ochraně dat PST. Není pochyb o tom, že jeden z most efektivní preventivní opatření je vytrvat v pravidelném zálohování dat, což vám umožní obnovit Outlook data mnohem snadněji. Navíc je lepší mít po ruce mocný nástroj pro opravu DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com