Paano Mabilis na Kopyahin ang Istruktura ng Folder mula sa Isang Outlook PST File patungo sa Isa pa sa pamamagitan ng VBA

Kung gusto mong kopyahin ang istraktura ng folder mula sa isang Outlook PST file patungo sa isa pa, maaari mong gamitin ang pamamaraang ipinakilala sa artikulong ito, na magtuturo sa iyo kung paano gamitin ang VBA upang makuha ito nang sabay-sabay.

Marahil, upang mas mahusay na pamahalaan ang iyong mga email, gumawa ka ng ilang mga custom na folder sa iyong pangunahing Outlook file. Kaya kapag gumagawa ng bagong Outlook PST file, maaaring gusto mong ilapat ang parehong istraktura ng folder. Sa totoo lang, sa aking nakaraang artikulo - "2 Hakbang para Panatilihin ang Kasalukuyang Hierarchy ng Folder sa isang Bagong Outlook File”, maaari kang matuto ng tradisyonal na pamamaraan, na gumagamit ng feature na “Archive” para makamit ito. Gayunpaman, sa totoo lang, medyo nakakapagod pa rin. Kung ikukumpara dito, magiging mas mabilis ang paggamit ng mga VBA code para makuha ito. Samakatuwid, sa mga sumusunod, sasabihin namin sa iyo ang detalyadong mga hakbang at code.

Kopyahin ang Istruktura ng Folder mula sa Isang Outlook PST File patungo sa Isa pa

1. Sa pinakasimula pa lang, simulan ang iyong programa sa Outlook.
2. Pagkatapos sa window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Susunod na papasok ka sa window ng editor ng Outlook VBA.
4. Pagkatapos, kopyahin at i-paste ang mga sumusunod na VBA code sa isang bagong module.

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. Pagkatapos noon, baguhin ang antas ng iyong macro security sa mababa.
6. Mamaya bumalik sa VBA editor window at pindutin ang "F5" key button upang patakbuhin ang macro.
7. Sa wakas, pagkatapos na gumana ang macro, makakatanggap ka ng isang mensahe, na mag-prompt ng "Nakumpleto!".
8. Sa puntong ito, maaari kang pumunta sa pane ng nabigasyon ng mail. Makakakita ka ng bagong Outlook Data File na nasa parehong istraktura ng folder tulad ng pinagmulang PST file, tulad ng larawan sa ibaba:

Makayanan ang Nakakapanghinayang PST Troubles

Dahil madaling magkaroon ng error ang Outlook PST, malamang na marami sa inyo ang nakatagpo ng iba't ibang isyu sa Outlook. Nakaharap sa kanila, maaari mo munang gamitin ang Outlook inbox repair tool upang subukan. Kung nabigo ito, maaari kang maglapat ng mas mabisang tool ng third party, gaya ng DataNumen Outlook Repair, Kung saan maaari ayusin ang Outlook PST errors parang amihan.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa