Kako brzo kopirati strukturu mape iz jedne Outlook PST datoteke u drugu putem VBA

Ako želite da kopirate strukturu fascikli iz jedne Outlook PST datoteke u drugu, možete koristiti metodu predstavljenu u ovom članku, koja će vas naučiti kako da koristite VBA da biste je dobili u jednom potezu.

Možda ste, da biste bolje upravljali svojim e-porukama, kreirali nekoliko prilagođenih foldera u glavnoj Outlook datoteci. Stoga, kada kreirate novu Outlook PST datoteku, možda ćete htjeti primijeniti istu strukturu mapa. Zapravo, u mom prethodnom članku – “2 koraka za zadržavanje trenutne hijerarhije mapa u novoj Outlook datoteci“, možete naučiti tradicionalnu metodu, koja koristi funkciju “Arhiva” da biste to postigli. Ipak, zapravo, i dalje je pomalo zamorno. U poređenju sa njim, korišćenje VBA kodova za dobijanje će biti mnogo brže. Stoga ćemo vam u nastavku reći detaljne korake i kodove.

Kopirajte strukturu mape iz jedne Outlook PST datoteke u drugu

1. Na samom početku pokrenite Outlook program.
2. Zatim u Outlook prozoru pritisnite tipke “Alt + F11”.
3. Zatim ćete ući u prozor Outlook VBA editor.
4. Nakon toga, kopirajte i zalijepite sljedeće VBA kodove u novi modul.

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. Nakon toga promijenite nivo sigurnosti makroa na niski.
6. Kasnije se vratite u prozor VBA editora i pritisnite dugme “F5” da pokrenete makro.
7. Konačno, nakon što makro završi s radom, dobit ćete poruku u kojoj se traži "Završeno!".
8. U ovom trenutku možete otići u okno za navigaciju pošte. Vidjet ćete novu Outlook datoteku podataka koja je u istoj strukturi mapa kao izvorna PST datoteka, kao na slici ispod:

Nosite se s obeshrabrujućim PST problemima

Budući da je Outlook PST sklon greškama, mnogi od vas su sigurno ikada naišli na razne probleme u Outlooku. Suočeni s njima, prvo možete upotrijebiti Outlook alat za popravku pristigle pošte da biste isprobali. Ako ne uspije, tada možete primijeniti moćniji alat treće strane, kao što je DataNumen Outlook Repair, što može popravi Outlook PST greške kao povjetarac.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com