Kaustastruktuuri kiire kopeerimine ühest Outlooki PST-failist teise VBA kaudu

Kui soovite kopeerida kaustastruktuuri ühest Outlooki PST-failist teise, võite kasutada selles artiklis tutvustatud meetodit, mis õpetab teile, kuidas kasutada VBA-d selle ühe korraga hankimiseks.

Võib-olla olete oma e-kirjade paremaks haldamiseks loonud oma Outlooki põhifailis mitu kohandatud kausta. Seega võite uue Outlooki PST-faili loomisel rakendada sama kaustastruktuuri. Tegelikult minu eelmises artiklis - "2 sammu praeguse kaustahierarhia säilitamiseks uues Outlooki failis”, saate õppida traditsioonilist meetodit, mis kasutab selle saavutamiseks funktsiooni "Arhiiv". Sellegipoolest on see tegelikult ikkagi pisut tüütu. Võrreldes sellega on VBA-koodide kasutamine selle hankimiseks palju kiirem. Seetõttu räägime teile järgnevalt üksikasjalikud sammud ja koodid.

Kopeerige kaustastruktuur ühest Outlooki PST-failist teise

1. Alguses käivitage oma Outlooki programm.
2. Seejärel vajutage Outlooki aknas klahvikombinatsiooni Alt + F11.
3. Järgmisena sisenete Outlook VBA redaktori aknasse.
4. Seejärel kopeerige ja kleepige järgmised VBA koodid uude moodulisse.

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. Pärast seda muutke oma makroturbe tase madalaks.
6. Hiljem naaske VBA redaktori aknasse ja vajutage makro käivitamiseks klahvi "F5".
7. Lõpuks, pärast makro töö lõpetamist, kuvatakse teile teade "Lõpetatud!".
8. Sel hetkel saate minna meili navigeerimispaanile. Näete uut Outlooki andmefaili, mis asub lähte-PST-failiga samas kaustastruktuuris, nagu allolev pilt:

Tule toime masendavate PST-probleemidega

Kuna Outlook PST on tõrketundlik, on paljud teist kindlasti Outlookis erinevate probleemidega kokku puutunud. Nendega silmitsi seistes saate esmalt proovida Outlooki postkasti parandustööriista. Kui see ebaõnnestub, saate seejärel rakendada võimsamat kolmanda osapoole tööriista, näiteks DataNumen Outlook Repair, mis võib parandada Outlook PST vead nagu imelihtne.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server määrata ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom