Sådan batches Flyt e-mails fra alle undermapper i en mappe til en anden mappe i Outlook

Måske har du en mappe, hvorunder der er adskillige undermapper. Hvis du gerne vil omorganisere e-mails i dem, såsom hurtigt at flytte alle e-mails fra disse undermapper til en bestemt mappe, kan du bruge den måde, der deles i denne artikel.

Til tider kan det være nødvendigt at flytte e-mails fra alle undermapper i en mappe til en anden mappe af nogle årsager, som om du vil omklassificere e-mails, så disse undermapper er ikke nyttige længere. I dette tilfælde er behandling af disse undermapper en efter en ret besværlig. Derfor introducerer vi dig her på en anden måde.

Batch flytte e-mails fra alle undermapper i en mappe til en anden mappe

1. Start dit Outlook-program helt fra starten.
2. Derefter skal du på hovedskærmen i Outlook trykke på “Alt + F11” -tasten, hvilket bringer dig til VBA-editor.
3. Derefter skal du i det nye vindue “Microsoft Visual Basic for Applications” åbne et modul, der ikke er i brug.
4. Kopier og indsæt derefter følgende VBA-kode i dette 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. Derefter kan du køre denne makro.

• Først skal du trykke på "F5" -tasten i dette makrovindue.
• Derefter skal du vælge en kildemappe, hvis undermapper skal behandles.
• Derefter skal du angive den destinationsmappe, som du vil flytte e-mails til.
• Derefter vil denne makro begynde at virke. Når den er færdig, får du en besked, der siger "Færdig".
• I sidste ende kan du få adgang til destinationsmappen. Du vil se, at alle e-mails i undermapperne under kildemappen er placeret der.

Gendan kompromitterede Outlook-data

På trods af prale af adskillige funktioner, ligesom andre e-mail-klienter, kan Outlook heller ikke undslippe fra korruption. Med flere og flere lagrede data vil Outlook i stigende grad være udsat for fejl og skader. Derfor skal du holde et kraftigt reparationsværktøj praktisk, ligesom DataNumen Outlook Repair. Det er specielt designet til rette Outlook problemer. Dermed kan den scanne og gendanne beskadiget Outlook-fil uden besvær.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datKanumen.com