Hur man satsar på att flytta e-post från alla undermappar i en mapp till en annan mapp i Outlook

Du kanske har en mapp under vilken det finns många undermappar. Om du vill omorganisera e-postmeddelandena i dem, som att snabbt flytta alla e-postmeddelanden från dessa undermappar till en viss mapp, kan du använda det sätt som delas i den här artikeln.

Ibland kan det hända att du måste flytta e-postmeddelanden från alla undermappar i en mapp till en annan mapp av vissa anledningar, som om du vill omklassificera e-postmeddelanden, så dessa undermappar är inte användbara längre. I det här fallet är det ganska besvärligt att bearbeta dessa undermappar en efter en. Därför kommer vi här att presentera dig på ett annat sätt.

Batch flytta e-postmeddelanden från alla undermappar i en mapp till en annan mapp

1. Starta ditt Outlook-program redan från början.
2. Tryck sedan på “Alt + F11” -tangentknapparna på huvudskärmen i Outlook, som tar dig till VBA-redigeraren.
3. Därefter måste du i det nya fönstret "Microsoft Visual Basic for Applications" öppna en modul som inte används.
4. Kopiera sedan och klistra in följande VBA-kod i den här modulen.

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. Därefter kan du köra detta makro.

• Först och främst, i detta makrofönster, tryck på “F5” -tangentknappen.
• Då måste du välja en källmapp vars undermappar ska bearbetas.
• Därefter måste du ange destinationsmappen som du vill flytta e-post till.
• Därefter kommer makrot att börja fungera. När det är klart får du ett meddelande som uppmanar till "Slutfört".
• Slutligen kan du komma åt målmappen. Du kommer att se att alla e-postmeddelanden i undermapparna under källmappen har hamnat där.

Återställ komprometterade Outlook-data

Trots att det finns många funktioner, som andra e-postklienter, kan Outlook inte heller fly från korruption heller. Med mer och mer lagrad data blir Outlook alltmer benägen för fel och skador. Därför måste du ha ett kraftfullt reparationsverktyg till hands, som DataNumen Outlook Repair. Det är speciellt utformat för att fixa Outlook frågor. Därigenom kan den enkelt skanna och återställa skadad Outlook-fil.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-återställning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datKanumen.com