Kā grupēt e-pasta ziņojumu pārvietošanu no visām vienas mapes apakšmapēm uz citu Outlook mapi

Varbūt jums ir mape, zem kuras ir vairākas apakšmapes. Ja vēlaties pārkārtot tajos esošos e-pasta ziņojumus, piemēram, ātri pārvietot visus e-pasta ziņojumus no šīm apakšmapēm uz noteiktu mapi, varat izmantot šajā rakstā aprakstīto veidu.

Dažkārt jums var būt nepieciešams pārvietot e-pasta ziņojumus no visām vienas mapes apakšmapēm uz citu mapi kādu iemeslu dēļ, piemēram, ja vēlaties pārklasificēt e-pasta ziņojumus, tāpēc šīs apakšmapes vairs nav noderīgas. Šajā gadījumā šo apakšmapju apstrāde pa vienai ir diezgan apgrūtinoša. Tāpēc šeit mēs jūs iepazīstināsim ar citu veidu.

Pārvietojiet e-pasta ziņojumus no visām vienas mapes apakšmapēm uz citu mapi

1. Pašā sākumā palaidiet savu Outlook programmu.
2. Pēc tam galvenajā Outlook ekrānā pieskarieties pogām Alt + F11, kas novirzīs jūs uz VBA redaktoru.
3. Pēc tam jaunajā logā “Microsoft Visual Basic for Applications” ir jāatver modulis, kas netiek lietots.
4. Pēc tam šajā modulī nokopējiet un ielīmējiet šādu VBA kodu.

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. Pēc tam varat palaist šo makro.

• Vispirms šajā makro logā nospiediet taustiņu “F5”.
• Pēc tam jums būs jāizvēlas avota mape, kuras apakšmapes tiks apstrādātas.
• Pēc tam jums jānorāda mērķa mape, uz kuru vēlaties pārvietot e-pastus.
• Pēc tam šis makro sāks darboties. Kad tas būs pabeigts, jūs saņemsiet ziņojumu ar aicinājumu “Pabeigts”.
• Galu galā jūs varat piekļūt mērķa mapei. Jūs redzēsiet, ka visi e-pasti no apakšmapēm zem avota mapes ir tur.

Atjaunot apdraudētos Outlook datus

Neskatoties uz daudzām funkcijām, piemēram, citiem e-pasta klientiem, Outlook joprojām nevar izvairīties no korupcijas. Uzglabājot arvien vairāk datu, programma Outlook būs arvien vairāk pakļauta kļūdām un bojājumiem. Tāpēc jums ir jābūt pa rokai spēcīgs remonta rīks, piemēram DataNumen Outlook Repair. Tas ir īpaši izstrādāts, lai labot Outlook jautājumiem. Tādējādi tā var bez piepūles skenēt un atjaunot bojāto Outlook failu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datKanumen.com