Ինչպես արագորեն պատճենել թղթապանակի կառուցվածքը մեկ Outlook PST ֆայլից մյուսին ՝ VBA- ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք պատճենել թղթապանակի կառուցվածքը մեկ Outlook PST ֆայլից մյուսը, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը, որը կսովորեցնի ձեզ, թե ինչպես օգտագործել VBA ՝ այն միանգամից ստանալու համար:

Թերեւս, ձեր էլ.փոստերը ավելի լավ կառավարելու համար ձեր հիմնական Outlook ֆայլում ստեղծել եք մի քանի հարմարեցված պանակ: Այսպիսով, նոր Outlook PST ֆայլ ստեղծելիս գուցե ցանկանաք կիրառել նույն թղթապանակի կառուցվածքը: Իրականում, իմ նախորդ հոդվածում ՝ «2 քայլ՝ Outlook-ի նոր ֆայլում ներկայիս թղթապանակի հիերարխիան պահպանելու համար”, Դուք կարող եք սովորել ավանդական մեթոդ, որն օգտագործում է« Արխիվ »հատկությունը դրան հասնելու համար: Այնուամենայնիվ, իրականում, այն դեռ մի քիչ հոգնեցուցիչ է: Դրա համեմատ VBA կոդերի օգտագործումը շատ ավելի արագ կլինի: Հետևաբար, հետևյալներում մենք ձեզ կպատմենք մանրամասն քայլերն ու ծածկագրերը:

Պատճենեք թղթապանակի կառուցվածքը մեկ Outlook PST ֆայլից մյուսը

Սկզբում գործարկեք ձեր Outlook ծրագիրը։
Ապա Outlook պատուհանում սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
Հաջորդը դուք կմտնեք Outlook VBA խմբագրի պատուհանը:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ 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

Դրանից հետո փոխեք ձեր մակրո անվտանգության մակարդակը ցածր:
Ավելի ուշ վերադառնալ VBA խմբագրի պատուհան և սեղմել «F5» ստեղնի կոճակը ՝ մակրոը գործարկելու համար:
Ի վերջո, մակրո մակրոտնտեսական աշխատանքն ավարտելուց հետո դուք կստանաք հաղորդագրություն, որը կհուշի «Ավարտված է»:
Այս պահին կարող եք անցնել փոստի նավիգացիոն պատուհան: Դուք կտեսնեք նոր Outlook տվյալների ֆայլ, որը նույն պանակի կառուցվածքում է, ինչպես աղբյուրի PST ֆայլը, ինչպես ստորև նկարը.

Հաղթահարեք PST- ի թուլացնող խնդիրները

Քանի որ Outlook PST- ն հակված է սխալներին, ձեզանից շատերը հավանաբար երբևէ բախվել են տարբեր խնդիրների Outlook- ում: Առերեսվելով նրանց հետ ՝ փորձելու համար նախ կարող եք օգտագործել Outlook մուտքի արկղի վերանորոգման գործիքը: Եթե դա ձախողվի, ապա կարող եք կիրառել ավելի ուժեղ երրորդ կողմի գործիք, ինչպիսիք են DataNumen Outlook Repair, որը կարող է շտկել Outlook- ը PST- ի սխալները քամու պես են:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server ուղղել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com