Ինչպես արագ արտահանել Outlook թղթապանակը բոլոր ենթաթղթապանակներով և տարրերով Windows թղթապանակ

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

Երբեմն դուք կարող եք խմբաքանակով արտահանել Outlook թղթապանակը բոլոր ենթաթղթապանակներով և տարրերով Windows թղթապանակ: Այս հոդվածը ձեզ կսովորեցնի այնպիսի մեթոդ, որը կիրառվում է Outlook VBA-ում:

Երբ դուք ցանկանում եք արտահանել Outlook թղթապանակը տեղական սկավառակ բոլոր տարրերով նույն պանակի կառուցվածքում, եթե ընտրեք ձեռքով պահել և արտահանել, դա ձեզ շատ ժամանակ կխլի: Այսպիսով, ինչու՞ չեք դիմում այլ միջոցների, ինչպիսիք են արտահանման ցանկացած գործիք կամ VBA կոդ: Այստեղ մենք ձեզ կներկայացնենք VBA կոդի նման մի կտոր: Դա թույլ կտա ձեզ հասնել դրան, ինչպես քամի:

Արտահանել Outlook-ի բոլոր ենթաթղթապանակները և տարրերը Windows թղթապանակ

Սկզբում գործարկեք ձեր Outlook ծրագիրը։
Այնուհետև Outlook-ի հիմնական պատուհանում սեղմեք «Alt + F11» ստեղնաշարի դյուրանցումները:
Այնուհետև կբացվի «Microsoft Visual Basic հավելվածների համար» պատուհանը:
Հաջորդը դուք պետք է բացեք դատարկ մոդուլ և պատճենեք հետևյալ VBA կոդերը դրա մեջ:

Private objFileSystem As Object
 
Private Sub ExportFolderWithAllItems()
    Dim objFolder As Outlook.Folder
    Dim strPath As String
 
    'Specify the root local folder
    'Change it as per your needs
    strPath = "E:\Outlook\"
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    'Select a Outlook PST file or Outlook folder
    Set objFolder = Outlook.Application.Session.PickFolder
 
    Call ProcessFolders(objFolder, strPath)
 
    MsgBox "Complete", vbExclamation
End Sub
 
Private Sub ProcessFolders(objCurrentFolder As Outlook.Folder, strCurrentPath As String)
    Dim objItem As Object
    Dim strSubject, strFileName, strFilePath As String
    Dim objSubfolder As Outlook.Folder
 
    'Create the local folder based on the Outlook folder
    strCurrentPath = strCurrentPath & objCurrentFolder.Name
    objFileSystem.CreateFolder strCurrentPath
 
    For Each objItem In objCurrentFolder.Items
 
        strSubject = objItem.Subject
 
        'Remove unsupported characters in the subject
        strSubject = Replace(strSubject, "/", " ")
        strSubject = Replace(strSubject, "\", " ")
        strSubject = Replace(strSubject, ":", "")
        strSubject = Replace(strSubject, "?", " ")
        strSubject = Replace(strSubject, Chr(34), " ")

        strFileName = strSubject & ".msg"
 
        i = 0
        Do Until False
           strFilePath = strCurrentPath & "\" & strFileName
           'Check if there exist a file in the same name
           If objFileSystem.FileExists(strFilePath) Then
              'Add a sequence order to the file name
              i = i + 1
              strFileName = strSubject & " (" & i & ").msg"
           Else
              Exit Do
          End If
        Loop
 
        'Save as MSG file
        objItem.SaveAs strFilePath, olMSG
    Next
 
    'Process subfolders recursively
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder, strCurrentPath & "\")
       Next
    End If
End Sub

Դրանից հետո դուք պետք է համոզվեք, որ ձեր Outlook-ը թույլ է տալիս մակրոներ տեղադրել մակրո պարամետրերում:
Ի վերջո, կարող եք փորձել:

Նախ, վերադառնանք նոր մակրո պատուհանին:
Հաջորդը սեղմեք «ExportFolderWithItems» ենթածրագրի վրա:
Այնուհետև սեղմեք F5 կոճակը՝ այս մակրո գործարկելու համար:
Դրանից հետո դուք պետք է ընտրեք կոնկրետ թղթապանակ:
Վերջապես, երբ հաղորդագրություն եք ստանում «Ավարտել» ասելով, կարող եք մուտք գործել նախապես սահմանված տեղական թղթապանակ: Դուք կտեսնեք, որ բոլոր տարրերը պահվել են նույն թղթապանակի կառուցվածքում:

Կանխել տվյալների կորուստը Outlook-ի խափանումներից

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

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

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