Kā ātri kopēt mapju struktūru no viena Outlook PST faila uz citu, izmantojot VBA

Ja vēlaties kopēt mapju struktūru no viena Outlook PST faila uz citu, varat izmantot šajā rakstā ieviesto metodi, kas iemācīs jums izmantot VBA, lai to iegūtu vienā piegājienā.

Iespējams, lai labāk pārvaldītu e-pastus, savā galvenajā Outlook failā esat izveidojis vairākas pielāgotas mapes. Tādējādi, veidojot jaunu Outlook PST failu, ieteicams izmantot to pašu mapju struktūru. Patiesībā manā iepriekšējā rakstā -2 darbības, lai saglabātu pašreizējo mapju hierarhiju jaunā Outlook failā”, Jūs varat iemācīties tradicionālu metodi, kuras izmantošanai tiek izmantota funkcija“ Arhīvs ”. Neskatoties uz to, patiesībā tas joprojām ir mazliet garlaicīgs. Salīdzinot ar to, VBA kodu izmantošana, lai to iegūtu, būs daudz ātrāka. Tāpēc tālāk mēs jums pateiksim sarežģītās darbības un kodus.

Kopēt mapju struktūru no viena Outlook PST faila uz citu

1. Pašā sākumā palaidiet savu Outlook programmu.
2. Pēc tam Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Pēc tam ievadīsit Outlook VBA redaktora logu.
4. Pēc tam nokopējiet un ielīmējiet šādus VBA kodus jaunā 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. Pēc tam mainiet makro drošības līmeni uz zemu.
6. Vēlāk atgriezieties VBA redaktora logā un nospiediet taustiņu “F5”, lai palaistu makro.
7. Visbeidzot, pēc tam, kad makro būs pabeidzis darbu, jūs saņemsit ziņojumu ar aicinājumu “Pabeigts!”.
8. Šajā brīdī varat doties uz pasta navigācijas rūti. Jūs redzēsiet jaunu Outlook datu failu, kas atrodas tajā pašā mapes struktūrā kā avota PST fails, piemēram, zemāk redzamais attēls:

Tikt galā ar nomierinošām PST problēmām

Tā kā Outlook PST ir tendence uz kļūdām, daudziem no jums, iespējams, kādreiz ir bijušas dažādas problēmas programmā Outlook. Saskaroties ar viņiem, vispirms varat izmēģināt Outlook iesūtnes labošanas rīku. Ja tas neizdodas, pēc tam varat izmantot spēcīgāku trešās puses rīku, piemēram, DataNumen Outlook Repair, kas var labot Outlook PST kļūdas, piemēram, brīze.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server noteikts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar