Kako grupno premjestiti e-poruke iz svih podfoldera jedne mape u drugu mapu u Outlooku

Možda imate fasciklu u kojoj se nalaze brojne podmape. Ako želite reorganizirati e-poruke u njima, kao što je brzo premještanje svih e-poruka iz ovih podmapa u određenu mapu, možete koristiti način koji je podijeljen u ovom članku.

Ponekad ćete možda morati grupno premjestiti e-poruke iz svih podfoldera jedne mape u drugu iz nekih razloga, kao što je da želite ponovo klasifikovati e-poštu, tako da ove podfoldere više nisu korisne. U ovom slučaju, obrada ovih podfoldera jednog po jednog je prilično problematična. Stoga ćemo vam ovdje predstaviti još jedan način.

Grupno premještanje e-poruka iz svih podfoldera jednog foldera u drugi folder

1. Na samom početku pokrenite Outlook program.
2. Zatim, na glavnom Outlook ekranu, dodirnite tastere „Alt + F11“, što će vas dovesti do VBA editora.
3. Zatim, u novom prozoru „Microsoft Visual Basic za aplikacije“, potrebno je da otvorite modul koji nije u upotrebi.
4. Nakon toga, kopirajte i zalijepite sljedeći VBA kod u ovaj 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. Nakon toga, možete pokrenuti ovaj makro.

• Prvo, u ovom makro prozoru, pritisnite dugme “F5”.
• Zatim će se od vas tražiti da odaberete izvornu fasciklu čije podmape će se obraditi.
• Nakon toga morate odrediti odredišni folder u koji želite premjestiti e-poštu.
• Nakon toga, ovaj makro će početi raditi. Kada se završi, dobit ćete poruku "Završeno".
• Konačno, možete pristupiti ciljnoj mapi. Vidjet ćete da su sve e-poruke iz podmapa unutar izvorne mape bile tamo.

Vratite kompromitovane Outlook podatke

Uprkos tome što se može pohvaliti brojnim funkcijama, poput drugih klijenata e-pošte, ni Outlook još uvijek ne može pobjeći od oštećenja. Sa sve više i više pohranjenih podataka, Outlook će biti sve skloniji greškama i oštećenjima. Stoga morate imati pri ruci moćan alat za popravku, npr DataNumen Outlook Repair. Posebno je dizajniran da popravi Outlook problemi. Na taj način može skenirati i vratiti oštećenu Outlook datoteku bez napora.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datKanumen.com