Qovluq strukturunu VBA vasitəsilə bir Outlook PST faylından digərinə necə tez kopyalamaq olar

Qovluq strukturunu bir Outlook PST faylından digərinə köçürmək istəyirsinizsə, bu məqalədə təqdim olunan metoddan istifadə edə bilərsiniz, bu üsul sizə VBA-dan bir anda necə istifadə etməyi öyrədir.

Yəqin ki, e-poçtlarınızı daha yaxşı idarə etmək üçün siz əsas Outlook faylınızda bir neçə xüsusi qovluq yaratmısınız. Beləliklə, yeni bir Outlook PST faylı yaratarkən, eyni qovluq strukturunu tətbiq etmək istəyə bilərsiniz. Əslində, əvvəlki yazımda – “Mövcud Qovluq İyerarxiyasını Yeni Outlook Faylında Saxlamaq üçün 2 Addım”, siz ənənəvi metodu öyrənə bilərsiniz, buna nail olmaq üçün “Arxiv” funksiyasından istifadə edirsiniz. Buna baxmayaraq, əslində, hələ də bir az yorucudur. Bununla müqayisədə, onu əldə etmək üçün VBA kodlarından istifadə etmək daha sürətli olacaq. Buna görə də, aşağıda sizə ətraflı addımlar və kodları deyəcəyik.

Qovluq strukturunu bir Outlook PST faylından digərinə kopyalayın

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra Outlook VBA redaktoru pəncərəsinə daxil olacaqsınız.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb yeni modula yapışdırın.

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. Bundan sonra, makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişdirin.
6. Daha sonra VBA redaktoru pəncərəsinə qayıdın və makronu işə salmaq üçün “F5” düyməsini sıxın.
7. Nəhayət, makro işləməyi başa vurduqdan sonra "Tamamlandı!" Deyən bir mesaj alacaqsınız.
8. Bu nöqtədə, poçt naviqasiyası panelinə keçə bilərsiniz. Aşağıdakı şəkildəki kimi mənbə PST faylı ilə eyni qovluq strukturunda olan yeni Outlook Data Faylı görəcəksiniz:

Dispiritor PST Problemlərinin öhdəsindən gəlin

Outlook PST səhvlərə meylli olduğundan, bir çoxunuz Outlook-da müxtəlif problemlərlə qarşılaşmısınız. Onlarla qarşılaşdıqda, cəhd etmək üçün əvvəlcə Outlook gələnlər qutusu təmir alətindən istifadə edə bilərsiniz. Əgər uğursuz olarsa, siz daha güclü üçüncü tərəf alətini tətbiq edə bilərsiniz, məsələn DataNumen Outlook Repair, ola bilər Outlook-u düzəldin PST səhvləri bir meh kimi.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server düzeltmek və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com