Ինչպե՞ս արագ արտահանել Outlook- ի բոլոր պանակներն ու իրերը «Ընտրյալներ» բաժնում Windows թղթապանակ

Եթե ​​ցանկանում եք արտահանել Outlook-ի բոլոր թղթապանակները, ինչպես նաև դրա տարրերը «Ընտրյալներ» բաժնում, կարող եք անդրադառնալ այս հոդվածին: Այստեղ մենք ձեզ ցույց կտանք, թե ինչպես դա անել արագ ժամանակում:

Ընդհանրապես, «Ընտրյալներ» բաժնում թղթապանակները և դրանց տարրերը մեծ նշանակություն ունեն և հաճախակի կարիք ունեն: Հետևաբար, երբեմն դուք կարող եք դրանք արտահանել տեղական սկավառակ: Ստանդարտ եղանակով դուք պետք է ստեղծեք Windows թղթապանակներ՝ ըստ «Favorites»-ի թղթապանակների և պահեք տարրերը որպես MSG ֆայլեր մեկ առ մեկ տեղական սկավառակում: Դա չափազանց հոգնեցուցիչ է: Այսպիսով, այստեղ մենք կբացահայտենք շատ ավելի արդյունավետ միջոց: Այժմ կարդացեք այն ստանալու համար:

Արտահանեք «Ընտրյալներ» բաժնի բոլոր թղթապանակները և իրերը Windows թղթապանակ

1. Սկսելու համար մուտք գործեք VBA խմբագիր Outlook-ում՝ հղում կատարելով «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
2. Այնուհետև պատճենեք հետևյալ կոդը դատարկ մոդուլի մեջ:

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. Այնուհետև կտտացրեք «Գործարկել» պատկերակը գործիքագոտում:
4. Հաջորդը, բացվող երկխոսության վանդակում ընտրեք նպատակակետ Windows պանակը և սեղմեք «OK»:
5. Երբ մակրո ավարտվի, Windows թղթապանակը կցուցադրվի:
6. Windows-ի այս պանակում «Ընտրյալներ» բաժնում պանակներն ու դրա տարրերը արտահանվել են, ինչպես հետևյալ սքրինշոթը:

Վերականգնեք Outlook- ի տվյալների պահուստավորումից

Խորհուրդ է տրվում կանոնավոր կերպով կրկնօրինակել Outlook ֆայլերը: Դա պայմանավորված է նրանով, որ եթե դուք տառապում եք Outlook ֆայլի կոռումպացվածությունից, կարող եք վերականգնել Outlook- ը տվյալների կրկնօրինակներից հեշտությամբ: Բայց, եթե նման պահուստավորում չունեք, դուք պետք է փորձեք դժվար Outlook-ի շտկում: Այդ ժամանակ փոստարկղի վերանորոգման գործիքը մեծ օգնություն չի տա: Դուք պետք է օգնեք ամրացնել արտաքին գործիքը, ինչպես, օրինակ DataNumen Outlook Repair.

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

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