Cum să mutați în lot e-mailurile din toate subfolderele unui folder în altul în Outlook

Poate că aveți un folder sub care există numeroase subdosare. Dacă doriți să reorganizați e-mailurile din ele, cum ar fi mutarea rapidă a tuturor e-mailurilor din aceste subdosare într-un anumit dosar, puteți utiliza modul partajat în acest articol.

Uneori, poate fi necesar să mutați e-mailurile din toate subfolderele dintr-un dosar în alt dosar din anumite motive, cum ar fi doriți să reclasificați e-mailurile, astfel încât aceste subfoldere nu mai sunt utile. În acest caz, procesarea acestor subdosare unul câte unul este destul de deranjantă. Prin urmare, aici vă vom prezenta o altă modalitate.

Mutați în lot e-mailurile din toate subdosarele unui folder în altul

1. Chiar de la început, porniți programul Outlook.
2. Apoi, în ecranul principal Outlook, atingeți butoanele tastei „Alt + F11”, care vă vor aduce la editorul VBA.
3. Apoi, în noua fereastră „Microsoft Visual Basic for Applications”, trebuie să deschideți un modul care nu este utilizat.
4. Ulterior, copiați și inserați următorul cod VBA în acest modul.

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. După aceea, puteți rula această macrocomandă.

• În primul rând, în această fereastră macro, apăsați butonul „F5”.
• Apoi, vi se va cere să alegeți un folder sursă ale cărui subfoldere să fie procesate.
• După aceea, trebuie să specificați folderul de destinație în care doriți să mutați e-mailurile.
• Ulterior, această macrocomandă va începe să funcționeze. Când se termină, veți primi un mesaj care vă va solicita „Finalizat”.
• În cele din urmă, puteți accesa folderul țintă. Veți vedea că toate e-mailurile din subfolderele din folderul sursă au fost acolo.

Restaurați datele Outlook compromise

În ciuda faptului că se lăuda cu numeroase funcții, ca și alți clienți de e-mail, Outlook încă nu poate scăpa de corupție. Cu tot mai multe date stocate, Outlook va fi din ce în ce mai predispus la erori și daune. Prin urmare, trebuie să aveți la îndemână un instrument puternic de reparare, cum ar fi DataNumen Outlook Repair. Este special conceput pentru remediați Outlook probleme. Astfel, poate scana și restaura fișierul Outlook deteriorat cu ușurință.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datKanumen.com