Фолдерын бүтцийг нэг Outlook PST файлаас нөгөө файл руу VBA-ээр хэрхэн хурдан хуулах вэ

Хэрэв та хавтасны бүтцийг нэг Outlook PST файлаас нөгөө файл руу хуулахыг хүсвэл энэ нийтлэлд оруулсан аргыг ашиглаж болох бөгөөд ингэснээр VBA-г хэрхэн яаж нэг дор авахыг заах болно.

Магадгүй имэйлээ илүү сайн удирдахын тулд үндсэн Outlook файл дээрээ хэд хэдэн захиалсан хавтас үүсгэсэн байж магадгүй юм. Тиймээс Outlook PST файлыг шинээр үүсгэхдээ та ижил фолдерын бүтцийг ашиглахыг хүсч магадгүй юм. Үнэндээ миний өмнөх нийтлэлд “Одоогийн фолдерын шатлалыг шинэ Outlook файлд хадгалах 2 алхам", Та үүнийг хэрэгжүүлэхийн тулд" Архив "функцийг ашиглаж байгаа уламжлалт аргыг сурч болно. Гэсэн хэдий ч үнэн хэрэгтээ энэ нь жаахан уйтгартай хэвээр байна. Үүнтэй харьцуулахад VBA код ашиглан үүнийг авах нь илүү хурдан болно. Тиймээс, дараахь алхамууд дээр бид нарийвчилсан алхам, кодыг танд хэлэх болно.

Фолдерын бүтцийг нэг Outlook PST файлаас нөгөө рүү хуулах

1. Хамгийн эхэнд Outlook програмаа эхлүүлээрэй.
2. Дараа нь Outlook цонхонд “Alt + F11” товчлууруудыг дарна уу.
3. Дараа нь та Outlook VBA засварлагч цонхонд орно.
4. Дараа нь дараахь VBA кодыг хуулж шинэ модуль дээр буулгана уу.

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. Үүний дараа макро аюулгүй байдлын түвшинг доод түвшинд өөрчлөх хэрэгтэй.
6. Дараа нь VBA засварлагч цонх руу буцаж очоод “F5” товчийг дарж макро ажиллуулна уу.
7. Эцэст нь макро ажиллаж дууссаны дараа танд "Дууссан!" Гэсэн мессеж ирэх болно.
8. Энэ үед та имэйлийн навигацийн хэсэг рүү орж болно. Дараах зураг шиг эх файлын PST файлтай ижил хавтас бүтцэд багтсан шинэ Outlook Data File харах болно.

PST-ийн бэрхшээлийг арилгах

Outlook PST нь алдаатай байдаг тул та нарын олонх нь Outlook дээр янз бүрийн асуудалтай тулгарч байсан байх. Тэдэнтэй тулгараад та эхлээд Outlook ирсэн мэйлийн засварын хэрэгслийг ашиглаж үзээрэй. Хэрэв энэ нь бүтэлгүйтвэл та илүү хүчтэй гуравдагч этгээдийн хэрэгслийг ашиглаж болно DataNumen Outlook RepairАль болох Outlook засах PST алдаа нь сэвшээ салхи шиг.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com