Jak szybko skopiować strukturę folderów z jednego pliku PST programu Outlook do innego za pośrednictwem VBA

Jeśli chcesz skopiować strukturę folderów z jednego pliku PST programu Outlook do innego, możesz skorzystać z metody przedstawionej w tym artykule, która nauczy Cię, jak korzystać z VBA, aby uzyskać ją za jednym razem.

Być może w celu lepszego zarządzania wiadomościami e-mail utworzono kilka niestandardowych folderów w głównym pliku Outlooka. Dlatego podczas tworzenia nowego pliku PST programu Outlook możesz chcieć zastosować tę samą strukturę folderów. Właściwie w moim poprzednim artykule - „2 kroki do zachowania aktualnej hierarchii folderów w nowym pliku programu Outlook”, Możesz nauczyć się tradycyjnej metody, która wykorzystuje do tego funkcję„ Archiwizuj ”. Niemniej jednak w rzeczywistości jest to trochę uciążliwe. W porównaniu z nim użycie kodów VBA, aby go uzyskać, będzie znacznie szybsze. Dlatego poniżej przedstawimy szczegółowe kroki i kody.

Skopiuj strukturę folderów z jednego pliku PST programu Outlook do innego

1. Na samym początku uruchom program Outlook.
2. Następnie w oknie Outlooka wciśnij klawisze „Alt + F11”.
3. Następnie przejdziesz do okna edytora Outlook VBA.
4. Następnie skopiuj i wklej następujące kody VBA do nowego modułu.

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. Następnie zmień poziom bezpieczeństwa makr na niski.
6. Później wróć do okna edytora VBA i naciśnij klawisz „F5”, aby uruchomić makro.
7. Wreszcie, po zakończeniu działania makra, zostanie wyświetlony komunikat „Ukończono!”.
8. W tym momencie możesz przejść do okienka nawigacji poczty. Zobaczysz nowy plik danych programu Outlook, który ma taką samą strukturę folderów jak źródłowy plik PST, jak na poniższym obrazku:

Radzenie sobie z przygnębiającymi problemami z PST

Ponieważ Outlook PST jest podatny na błędy, wielu z was musiało kiedykolwiek napotkać różne problemy w programie Outlook. W obliczu nich możesz najpierw wypróbować narzędzie do naprawy skrzynki odbiorczej Outlooka. Jeśli się nie powiedzie, możesz zastosować silniejsze narzędzie innej firmy, takie jak DataNumen Outlook Repair, Który może naprawić Outlooka Błędy PST to pestka.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com