Ako zlúčiť súbory PST cez Outlook VBA

Ak chcete zlúčiť viacero súborov PST do jedného súboru, môžete použiť metódu uvedenú v tomto článku. Umožní vám to rýchlo získať cez Outlook VBA.

Ak máte veľa súborov PST, určite bude pre vás dosť ťažké ich medzitým spravovať. Konkrétnejšie, ak sa od vás často vyžaduje prístup k údajom v týchto súboroch PST, bude pre vás zdĺhavá úloha prejsť všetky súbory, aby ste zistili, čo chcete. V tomto prípade je najlepším riešením zlúčiť ich všetky do jedného súboru PST, takže ich budete môcť spravovať oveľa jednoduchšie a efektívnejšie.

Vo všeobecnosti, ak by ste chceli zlúčiť dva súbory do jedného, ​​stačí importovať jeden do druhého. Ak však chcete zlúčiť viacero, manuálne to bude značne problematické. Takže tu vám predstavíme rýchle zlúčenie viacerých súborov PST prostredníctvom VBA. Teraz čítajte ďalej, aby ste to pochopili podrobne.

Zlúčiť súbory PST cez Outlook VBA

1. V prvom rade by ste mali otvoriť všetky súbory PST, ktoré chcete zlúčiť. O dávkovom otváraní viacerých súborov PST si môžete prečítať náš ďalší článok – „Ako dávkové otváranie viacerých súborov PST programu Outlook naraz v programe Outlook"
2. Po ich otvorení by ste mali pristúpiť k editoru Outlook VBA buď kliknutím na tlačidlo „Visual Basic“ na karte „Vývojár“ alebo stlačením klávesov „Alt + F11“.
3. Potom v okne „Microsoft Visual Basic for Applications“ otvorte modul.
4. Potom skopírujte a prilepte nasledujúce 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ásledne by ste mali potvrdiť, že váš Outlook povoľuje makrá.
6. Nakoniec to môžete vyskúšať.

• Najprv kliknite na podprogram „CreateNewPST“.
• Potom kliknite na ikonu „Spustiť“ na paneli s nástrojmi.
• Ďalej budete musieť vybrať zdrojový súbor v kontextovom dialógovom okne, ako je nasledujúca snímka obrazovky:
• Po výbere kliknite na „OK“.
• Potom Outlook skopíruje všetky položky z vybratého súboru do nového súboru PST.
• Potom dostanete správu s otázkou, či vybrať ešte jeden súbor. Stlačte „Áno“, môžete vybrať ďalší zdrojový súbor PST.
• Keď dokončíte výber a zlúčenie všetkých požadovaných zdrojových súborov, môžete vybrať „Nie“.
• Nakoniec úspešne získate nový súbor PST, ktorý je zlúčeným súborom všetkých vybratých zdrojových súborov.

Čo ak dôjde k poškodeniu súboru PST?

Keďže súbor PST programu Outlook je náchylný na chyby a poškodenie, musíte vynaložiť úsilie na ochranu svojich údajov PST. Jedným z najúčinnejších opatrení je nepochybne pravidelné zálohovanie údajov, ktoré vám umožní obnoviť Outlook dáta oveľa jednoduchšie. Navyše je lepšie mať po ruke účinný nástroj na opravu, napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane fixné SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S