Как да премествате групово имейлите от всички подпапки на една папка в друга папка в Outlook

Може би имате папка, в която има множество подпапки. Ако искате да реорганизирате имейлите в тях, като например бързо преместване на всички имейли от тези подпапки в определена папка, можете да използвате начина, споделен в тази статия.

Понякога може да се наложи пакетно преместване на имейлите от всички подпапки на една папка в друга папка по някакви причини, като например искате да прекласифицирате имейлите, така че тези подпапки вече не са полезни. В този случай обработката на тези подпапки една по една е доста обезпокоителна. Затова тук ще ви представим друг начин.

Групово преместване на имейли от всички подпапки на една папка в друга папка

1. В самото начало стартирайте програмата си Outlook.
2. След това на главния екран на Outlook докоснете бутоните на клавишите „Alt + F11“, което ще ви отведе до редактора на VBA.
3. След това в новия прозорец „Microsoft Visual Basic for Applications“ трябва да отворите модул, който не се използва.
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 с лекота.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете www.datKanumen.com