Kuidas kiiresti eksportida Outlooki kaust koos kõigi alamkaustade ja üksustega Windowsi kausta

Mõnikord võite soovida Outlooki kausta koos kõigi alamkaustade ja üksustega pakkides eksportida Windowsi kausta. See artikkel õpetab teile sellist meetodit, mis rakendab Outlook VBA.

Kui soovite eksportida Outlooki kausta kohalikule draivile, kus kõik üksused on samas kaustastruktuuris, kui valite käsitsi salvestamise ja eksportimise, võtab see palju aega. Seega, miks te ei kasuta muid vahendeid, näiteks mis tahes eksporditööriistu või VBA-koode? Siin tutvustame teile sellist VBA-koodi tükki. See võimaldab teil seda saavutada kui imelihtne.

Eksportige kõik Outlooki kaustas olevad alamkaustad ja üksused Windowsi kausta

1. Alguses käivitage oma Outlooki programm.
2. Seejärel vajutage Outlooki põhiaknas kiirklahve "Alt + F11".
3. Seejärel ilmub aken "Microsoft Visual Basic for Applications".
4. Järgmisena peate avama tühja mooduli ja kopeerima sellesse järgmised VBA koodid.

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

5. Pärast seda peate tagama, et Outlook lubab makrosätetes makrosid.
6. Lõpuks võite proovida.

• Esiteks, tagasi uude makroaknasse.
• Järgmisena klõpsake alamprogrammi ExportFolderWithAllItems.
• Seejärel vajutage selle makro käivitamiseks klahvi F5.
• Pärast seda peate valima konkreetse kausta.
• Lõpuks, kui saate sõnumi "Täielik", pääsete juurde eelmääratletud kohalikule kaustale. Näete, et kõik üksused on salvestatud samasse kaustastruktuuri.

Andmete kadumise vältimine Outlooki krahhidest

Võib-olla olete kunagi kokku puutunud paljude Outlooki krahhidega. Enamasti töötab Outlook pärast taaskäivitamist normaalselt. Siiski on ka juhtumeid, kus meie PST-fail võib rikkuda. Sellisel juhul proovige oma PST-andmed taastada, näiteks pöördudes kogenud tööriista poole, näiteks DataNumen Outlook Repair. See on võimeline parandada Outlook vead ja eraldada andmeid ohustatud PST-failist ilma higistamata.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom