Kako hitro kopirati strukturo map iz ene datoteke Outlook PST v drugo prek VBA

Če želite kopirati strukturo map iz ene datoteke Outlook PST v drugo, lahko uporabite metodo, predstavljeno v tem članku, ki vas bo naučila, kako z uporabo VBA pridobiti naenkrat.

Morda ste za boljše upravljanje e-pošte ustvarili več map po meri v svoji glavni Outlookovi datoteki. Tako boste pri ustvarjanju nove datoteke Outlook PST morda želeli uporabiti isto strukturo map. Pravzaprav v prejšnjem članku - "2 koraka za ohranitev trenutne hierarhije map v novi Outlookovi datoteki", Lahko se naučite tradicionalne metode, ki za doseganje uporablja funkcijo" Arhiviraj ". Kljub temu je pravzaprav še vedno nekoliko dolgočasno. V primerjavi z njim bo uporaba kod VBA veliko hitrejša. Zato vam bomo v nadaljevanju povedali podrobne korake in kode.

Kopirajte strukturo map iz ene datoteke Outlook PST v drugo

1. Na samem začetku zaženite program Outlook.
2. Nato v Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato odprete okno urejevalnika Outlook VBA.
4. Nato kopirajte in prilepite naslednje kode VBA v nov 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. Po tem spremenite raven varnosti makra na nizko.
6. Kasneje nazaj v okno urejevalnika VBA in pritisnite tipko “F5”, da zaženete makro.
7. Nazadnje, ko makro konča z delom, boste prejeli sporočilo s pozivom »Končano!«.
8. Na tej točki lahko odprete podokno za krmarjenje po pošti. Videli boste novo Outlookovo podatkovno datoteko, ki je v isti strukturi map kot izvorna datoteka PST, kot je spodnja slika:

Obvladovanje težav s PST

Ker je Outlook PST nagnjen k napakam, ste se mnogi že kdaj srečevali z različnimi težavami v Outlooku. Če se z njimi soočite, lahko najprej poskusite z orodjem za popravilo mape »Prejeto«. Če ne uspe, lahko nato uporabite močnejše orodje tretje osebe, kot je DataNumen Outlook Repair, ki lahko popraviti Outlook PST napake, kot je vetrič.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server fiksna in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com