Si të eksportoni shpejt një dosje Outlook me të gjitha nën-dosjet dhe artikujt në një dosje të Windows

Ndonjëherë, mund të dëshironi të eksportoni grupe një dosje Outlook me të gjithë nëndosjet dhe artikujt në një dosje Windows. Ky artikull do t'ju mësojë një metodë të tillë që është duke aplikuar Outlook VBA.

Kur dëshironi të eksportoni një dosje Outlook në diskun lokal me të gjithë artikujt në të njëjtën strukturë dosjeje, nëse zgjidhni të ruani dhe eksportoni manualisht, do t'ju marrë shumë kohë. Pra, pse nuk përdorni mjete të tjera, si për shembull mjete eksporti ose kode VBA? Këtu do të zbulojmë një pjesë të tillë të kodit VBA për ju. Do t'ju lejojë ta arrini atë si një fllad.

Eksporto të gjitha nëndosjet dhe artikujt në një dosje Outlook në një dosje të Windows

1. Që në fillim, nisni programin tuaj Outlook.
2. Pastaj në dritaren kryesore të Outlook, shtypni shkurtoret e tastit "Alt + F11".
3. Më pas, dritarja "Microsoft Visual Basic për aplikacione" do të shfaqet.
4. Më pas ju duhet të hapni një modul bosh dhe të kopjoni kodet e mëposhtme VBA në të.

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. Pas kësaj, duhet të siguroheni që Outlook juaj lejon makro në cilësimet e makrove.
6. Më në fund, mund të provoni.

• Së pari, kthehu te dritarja e re makro.
• Pastaj klikoni në nënprogramin "ExportFolderWithAllItems".
• Më pas shtypni butonin e tastit F5 për të ekzekutuar këtë makro.
• Pas kësaj, ju duhet të zgjidhni një dosje specifike.
• Së fundi, kur merrni një mesazh që thotë "Përfundo", mund të hyni në dosjen e paracaktuar lokale. Do të zbuloni se të gjithë artikujt janë ruajtur në të njëjtën strukturë dosjeje.

Parandaloni humbjen e të dhënave nga përplasjet e Outlook

Ndoshta keni hasur ndonjëherë shumë ndërprerje të Outlook-ut. Shumicën e kohës, pas një rinisjeje, Outlook do të jetë në gjendje të funksionojë normalisht. Megjithatë, ekziston edhe një rast që skedari ynë PST mund të dëmtohet. Në atë kohë, do të përpiqeni sa më mirë të rikuperoni të dhënat tuaja PST, si p.sh. duke përdorur një mjet me përvojë si DataNumen Outlook Repair. Është në gjendje të rregulloni Outlook gabime dhe nxjerr të dhëna nga skedari PST i komprometuar pa u lodhur.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server riparim dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com