Sådan kopierer du hurtigt mappestruktur fra en Outlook PST-fil til en anden via VBA

Hvis du vil kopiere mappestrukturen fra en Outlook PST-fil til en anden, kan du bruge metoden introduceret i denne artikel, som vil lære dig, hvordan du bruger VBA til at få den på én gang.

Måske, for bedre at kunne administrere dine e-mails, har du oprettet flere brugerdefinerede mapper i din primære Outlook-fil. Når du opretter en ny Outlook PST-fil, vil du måske anvende den samme mappestruktur. Faktisk, i min tidligere artikel - "2 trin til at bevare det nuværende mappehierarki i en ny Outlook-fil”, kan du lære en traditionel metode, som bruger "Arkiv"-funktionen til at opnå det. Ikke desto mindre er det faktisk stadig lidt træls. Sammenlignet med det vil det være meget hurtigere at bruge VBA-koder til at få det. Derfor fortæller vi dig i det følgende de omfattende trin og koder.

Kopier mappestruktur fra en Outlook PST-fil til en anden

1. Start dit Outlook-program helt fra starten.
2. Tryk derefter på "Alt + F11" -tasten i Outlook-vinduet.
3. Dernæst kommer du ind i Outlook VBA-editorvinduet.
4. Kopier og indsæt derefter følgende VBA-koder i et nyt 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. Derefter skal du ændre dit makrosikkerhedsniveau til lavt.
6. Senere tilbage til VBA-editorvinduet og tryk på "F5"-tasten for at køre makroen.
7. Til sidst, efter at makroen er færdig med at virke, får du en besked, der spørger "Udført!".
8. På dette tidspunkt kan du gå til postnavigationsruden. Du vil se en ny Outlook-datafil, som er i samme mappestruktur som kilde-PST-filen, som billedet nedenfor:

Håndter nedslående PST-problemer

Da Outlook PST er udsat for fejl, må mange af jer nogensinde have stødt på forskellige problemer i Outlook. Stillet over for dem kan du først bruge Outlook-indbakkereparationsværktøjet til at prøve. Hvis det mislykkes, kan du derefter anvende et mere potent tredjepartsværktøj, som f.eks DataNumen Outlook Repair, Hvilket kan rette Outlook PST-fejl som en leg.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server fastsætte og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com