Ինչպես խմբաքանակով էլփոստը տեղափոխել Outlook-ում մեկ թղթապանակի բոլոր ենթաթղթապանակներից մեկ այլ թղթապանակ

Հավանաբար դուք ունեք մի թղթապանակ, որի տակ կան բազմաթիվ ենթաթղթապանակներ: Եթե ​​ցանկանում եք վերակազմավորել դրանցում առկա նամակները, ինչպես, օրինակ, արագ տեղափոխել բոլոր նամակներն այս ենթաթղթապանակներից կոնկրետ թղթապանակ, կարող եք օգտագործել այս հոդվածում ներկայացված եղանակը:

Երբեմն ձեզ կարող է անհրաժեշտ լինել խմբաքանակով նամակները մի թղթապանակի բոլոր ենթաթղթապանակներից մյուս թղթապանակ տեղափոխել ինչ-ինչ պատճառներով, օրինակ՝ ցանկանում եք վերադասակարգել էլ. Այս դեպքում այս ենթաթղթապանակները մեկ առ մեկ մշակելը բավականին անհանգիստ է։ Ուստի այստեղ ձեզ կներկայացնենք մեկ այլ ճանապարհ.

Փաթեթային տեղափոխեք էլփոստի նամակները մեկ թղթապանակի բոլոր ենթաթղթապանակներից մեկ այլ թղթապանակ

1. Սկզբում գործարկեք ձեր Outlook ծրագիրը։
2. Այնուհետև Outlook-ի հիմնական էկրանին սեղմեք «Alt + F11» ստեղնաշարի կոճակները, որոնք ձեզ կբերեն VBA խմբագրիչ:
3. Հաջորդը, նոր «Microsoft Visual Basic հավելվածների համար» պատուհանում, դուք պետք է բացեք մի մոդուլ, որը չի օգտագործվում:
4. Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը այս մոդուլում:

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Դրանից հետո կարող եք գործարկել այս մակրոը:

• Նախ, այս մակրո պատուհանում սեղմեք «F5» ստեղնը:
• Այնուհետև ձեզանից կպահանջվի ընտրել աղբյուրի թղթապանակ, որի ենթաթղթապանակները պետք է մշակվեն:
• Դրանից հետո դուք պետք է նշեք նպատակակետ թղթապանակը, որտեղ ցանկանում եք տեղափոխել էլ.
• Հետագայում այս մակրոն կսկսի աշխատել։ Երբ այն ավարտվի, դուք կստանաք «Ավարտված» հաղորդագրություն։
• Վերջիվերջո, դուք կարող եք մուտք գործել նպատակային թղթապանակ։ Դուք կտեսնեք, որ սկզբնական թղթապանակի ենթաթղթապանակների բոլոր էլ.փոստերը այնտեղ են եղել։

Վերականգնել Outlook- ի կոմպրոմիսային տվյալները

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

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

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