Kako grupno premjestiti e-poštu iz svih podmapa jedne mape u drugu mapu u programu Outlook

Možda imate mapu ispod koje 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 upotrijebiti način podijeljen u ovom članku.

Ponekad ćete možda trebati grupno premjestiti e-poštu iz svih podmapa jedne mape u drugu mapu iz nekih razloga, primjerice želite ponovno klasificirati e-poštu, tako da te podmape više nisu korisne. U ovom slučaju obrada ovih podmapa jednu po jednu prilično je problematična. Stoga ćemo vam ovdje predstaviti još jedan način.

Skupno premještanje e-pošte iz svih podmapa jedne mape u drugu mapu

1. Na samom početku pokrenite Outlook.
2. Zatim, na glavnom zaslonu Outlooka, dodirnite gumbe s tipkama "Alt + F11", što će vas dovesti do VBA uređivača.
3. Zatim, u novom prozoru “Microsoft Visual Basic for Applications” trebate otvoriti 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 ovu makronaredbu.

• Prvo, u ovom prozoru makronaredbe pritisnite tipku "F5".
• Zatim ćete morati odabrati izvornu mapu čije podmape želite obraditi.
• Nakon toga trebate odrediti odredišnu mapu u koju želite premjestiti e-poštu.
• Nakon toga, ovaj makro će početi raditi. Kada završi, dobit ćete poruku "Završeno".
• Konačno, možete pristupiti ciljnoj mapi. Vidjet ćete da su sve e-poruke iz podmapa u izvornoj mapi bile tamo.

Vratite ugrožene Outlook podatke

Unatoč tome što se može pohvaliti brojnim značajkama, poput drugih klijenata e-pošte, Outlook još uvijek ne može pobjeći od korupcije. Uz sve više pohranjenih podataka, Outlook će biti sve skloniji pogreškama i oštećenjima. Stoga morate imati pri ruci moćan alat za popravak, npr DataNumen Outlook Repair. Posebno je dizajniran za popraviti Outlook pitanja. Stoga može skenirati i vratiti oštećenu Outlook datoteku s lakoćom bez napora.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datKanumen.com