Ako rýchlo exportovať priečinok Outlook so všetkými podpriečinkami a položkami do priečinka Windows

Občas budete možno chcieť hromadne exportovať priečinok Outlook so všetkými podpriečinkami a položkami do priečinka Windows. Tento článok vás naučí takúto metódu, ktorá používa aplikáciu Outlook VBA.

Ak chcete exportovať priečinok programu Outlook na lokálny disk so všetkými položkami v rovnakej štruktúre priečinkov, ak sa rozhodnete uložiť a exportovať ručne, bude vám to trvať veľa času. Prečo sa teda neuchýlite k iným prostriedkom, ako sú napríklad akékoľvek nástroje na export alebo kódy VBA? Tu vám odhalíme taký kúsok kódu VBA. Umožní vám to dosiahnuť ako vánok.

Exportujte všetky podpriečinky a položky v priečinku Outlook do priečinka Windows

1. Na samom začiatku spustite program Outlook.
2. Potom v hlavnom okne Outlooku stlačte klávesové skratky „Alt + F11“.
3. Následne sa zobrazí okno „Microsoft Visual Basic for Applications“.
4. Ďalej musíte otvoriť prázdny modul a skopírovať do neho nasledujúce kódy 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

5. Potom sa musíte ubezpečiť, že váš Outlook povoľuje makrá v nastaveniach makier.
6. Nakoniec to môžete vyskúšať.

• Najskôr späť do nového okna makra.
• Ďalej kliknite na podprogram „ExportFolderWithAllItems“.
• Toto makro potom spustíte stlačením klávesu F5.
• Potom musíte vybrať konkrétny priečinok.
• Nakoniec, keď dostanete správu s textom „Dokončené“, máte prístup k preddefinovanému miestnemu priečinku. Nájdete všetky položky, ktoré boli uložené v rovnakej štruktúre priečinkov.

Zabráňte strate údajov pri zlyhaní Outlooku

Možno ste sa už stretli s mnohými zlyhaniami Outlooku. Väčšinou po reštarte Outlook funguje normálne. Existuje však aj prípad, že sa váš súbor PST poškodí. V takom prípade sa budete snažiť obnoviť svoje súbory PST, napríklad pomocou skúseného nástroja, ako je DataNumen Outlook Repair, Je schopný opraviť Outlook chyby a extrahovať údaje z napadnutého súboru PST bez toho, aby ste sa zapotili.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server oprava a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S