Ako rýchlo kopírovať štruktúru priečinkov z jedného súboru Outlook PST do druhého pomocou VBA

Ak chcete skopírovať štruktúru priečinkov z jedného súboru Outlook PST do druhého, môžete použiť metódu uvedenú v tomto článku, ktorá vás naučí, ako pomocou jazyka VBA získať súbor naraz.

Možno ste pre lepšiu správu svojich e-mailov vytvorili v hlavnom súbore Outlooku niekoľko vlastných priečinkov. Preto pri vytváraní nového súboru Outlook PST možno budete chcieť použiť rovnakú štruktúru priečinkov. Vlastne v mojom predchádzajúcom článku - „2 kroky na zachovanie aktuálnej hierarchie priečinkov v novom súbore programu Outlook”, Môžete sa naučiť tradičnú metódu, ktorá na dosiahnutie toho využíva funkciu„ Archív “. Napriek tomu je to v skutočnosti stále trochu zdĺhavé. V porovnaní s ním bude použitie kódov VBA oveľa rýchlejšie. Preto vám v nasledujúcich textoch povieme zložité kroky a kódy.

Skopírujte štruktúru priečinkov z jedného súboru PST programu Outlook do druhého

1. Na samom začiatku spustite program Outlook.
2. Potom v okne Outlooku stlačte klávesy „Alt + F11“.
3. Ďalej vstúpite do okna editora Outlook VBA.
4. Následne skopírujte a vložte nasledujúce kódy VBA do nového modulu.

Public objNewPSTFolder As Outlook.Folder
 
Sub CopyFolderStructure()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get the folders of the source Outlook PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    'Create the new pst file in your desired local folder and name
    Outlook.Application.Session.AddStore "E:\New PST File.pst"
    Set objNewPSTFolder = Session.Folders.GetLast()
 
    For Each objFolder In objFolders
        CreateFolder objFolder
    Next
 
    MsgBox "Completed!", vbOKOnly + vbInformation, "Copy Folder Structure"
End Sub
 
Sub CreateFolder(objFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
 
    'Only copy the mail folder
    If (objFolder.DefaultItemType = olMailItem) Then
       'New Outlook PST file auto includes the "Deleted Items" folder, so skip it
       'Skip the useless mail folders - "Conversation Action Settings" and "Quick Step Settings"
       If (objFolder.Name <> "Deleted Items") And (objFolder.Name <> "Conversation Action Settings") And (objFolder.Name <> "Quick Step Settings") Then
 
          'Create the new folder
          objNewPSTFolder.Folders.Add objFolder.Name
          Set objNewPSTFolder = objNewPSTFolder.Folders.Item(objFolder.Name)
 
          For Each objSubFolder In objFolder.Folders
              CreateFolder objSubFolder
          Next
 
          Set objNewPSTFolder = objNewPSTFolder.parent
       End If
    End If

End Sub

5. Potom zmeňte úroveň zabezpečenia makra na nízku.
6. Neskôr späť do okna editora VBA a stlačením klávesu „F5“ spustíte makro.
7. Nakoniec, keď makro dokončí prácu, dostanete správu s výzvou „Dokončené!“.
8. V tomto okamihu môžete prejsť na navigačnú tablu pošty. Uvidíte nový dátový súbor Outlook, ktorý je v rovnakej štruktúre priečinkov ako zdrojový súbor PST, napríklad obrázok nižšie:

Vyrovnajte sa s nespokojnými problémami s PST

Pretože je Outlook PST náchylný na chyby, mnohí z vás sa už určite stretli s rôznymi problémami v Outlooku. Keď im čelíte, môžete najskôr vyskúšať nástroj na opravu doručenej pošty v Outlooku. Ak zlyhá, môžete použiť silnejší nástroj tretej strany, ako je napr DataNumen Outlook Repair, ktorý môže opraviť Outlook Chyby PST ako vánok.

Ú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 SQL Server fixné a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S