Kā ātri eksportēt visas sadaļas “Izlase” Outlook mapes un vienumus uz Windows mapi

Ja vēlaties eksportēt visas Outlook mapes, kā arī tās vienumus sadaļā “Izlase”, varat skatīt šo rakstu. Šeit mēs parādīsim, kā to paveikt īsā laikā.

Parasti mapes un to vienumi sadaļā “Izlase” ir ļoti svarīgi un bieži nepieciešami. Tāpēc dažkārt varat tos eksportēt uz vietējo disku. Standarta veidā jums ir jāizveido Windows mapes atbilstoši mapēm “Izlase” un vienumi jāsaglabā kā MSG faili pa vienam vietējā diskā. Tas ir pārāk nogurdinoši. Tāpēc šeit mēs parādīsim daudz efektīvāku veidu. Tagad lasiet tālāk, lai to iegūtu.

Eksportējiet visas mapes un vienumus sadaļā “Izlase” uz Windows mapi

1. Vispirms programmā Outlook piekļūstiet VBA redaktoram, atsaucoties uz "Kā palaist VBA kodu programmā Outlook".
2. Pēc tam kopējiet šo kodu tukšā modulī.

Sub ExportAllFoldersItems_InFavorites_ToWindowsFolder()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFileSystem As Object
    Dim strWindowsFolder As String
    Dim objNavigationPane As Outlook.NavigationPane
    Dim objNavigationModule As Outlook.NavigationModule
    Dim objNavigationGroup As Outlook.NavigationGroup
    Dim objNavigationFolder As Outlook.NavigationFolder
    Dim objFolder As Outlook.Folder
    Dim strFolderPath As String
    Dim objItem As Object
    Dim strFilePath As String
    Dim i As Long
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
     
       'Get "Favorites" section
       Set objNavigationPane = Application.ActiveExplorer.NavigationPane
       Set objNavigationModule = objNavigationPane.Modules.GetNavigationModule(olModuleMail)
       Set objNavigationGroup = objNavigationModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup)
 
       'Export the folders and items in "Favorites" section
       For Each objNavigationFolder In objNavigationGroup.NavigationFolders
           Set objFolder = objNavigationFolder.Folder
           strFolderPath = strWindowsFolder & objFolder.Name
           objFileSystem.CreateFolder strFolderPath
 
           For Each objItem In objFolder.Items
               strSubject = objItem.Subject
               strFileName = strSubject & ".msg"
 
               i = 0
               Do Until False
                  strFilePath = strFolderPath & "\" & strFileName
                  If objFileSystem.FileExists(strFilePath) Then
                     i = i + 1
                     strFileName = strSubject & " (" & i & ").msg"
                  Else
                     Exit Do
                  End If
               Loop
 
               objItem.SaveAs strFilePath, olMSG
          Next
       Next
 
       'Open the Windows folder
       Call Shell("explorer.exe " & strWindowsFolder, vbNormalFocus)
    End If
End Sub

3. Pēc tam rīkjoslā noklikšķiniet uz ikonas “Palaist”.
4. Pēc tam uznirstošajā dialoglodziņā atlasiet mērķa Windows mapi un noklikšķiniet uz “OK”.
5. Kad makro ir pabeigts, tiks parādīta Windows mape.
6. Šajā Windows mapē mapes un to vienumi sadaļā “Izlase” ir eksportēti, piemēram, nākamajā ekrānuzņēmumā.

Atjaunot Outlook datus no dublējumiem

Ir ļoti ieteicams regulāri dublēt Outlook failus. Tas ir tāpēc, ka, ja ciešat no Outlook faila bojājumiem, varat atgūt Outlook viegli iegūt datus no dublējumkopijām. Bet, ja jums nav šāda dublējuma, jums ir jāmēģina sarežģīts Outlook labojums. Tajā laikā iesūtnes labošanas rīks daudz nepalīdzēs. Jums ir jāizmanto ārēja instrumenta labošana, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar