Slik flytter du e-poster fra alle undermapper i én mappe til en annen mappe i Outlook

Kanskje du har en mappe der det er mange undermapper. Hvis du ønsker å omorganisere e-postene i dem, for eksempel raskt flytte alle e-poster fra disse undermappene til en bestemt mappe, kan du bruke måten som er delt i denne artikkelen.

Noen ganger kan det hende du må flytte e-postene fra alle undermappene i en mappe til en annen mappe av noen grunner, for eksempel hvis du ønsker å omklassifisere e-poster, så disse undermappene er ikke nyttige lenger. I dette tilfellet er det ganske vanskelig å behandle disse undermappene én etter én. Derfor vil vi her presentere deg på en annen måte.

Batch-flytt e-poster fra alle undermapper i én mappe til en annen mappe

1. Start Outlook-programmet helt fra starten av.
2. Deretter, i hovedskjermbildet i Outlook, trykker du på "Alt + F11" tasteknappene, som tar deg til VBA-redigering.
3. Deretter, i det nye "Microsoft Visual Basic for Applications"-vinduet, må du åpne en modul som ikke er i bruk.
4. Deretter kopierer og limer du inn følgende VBA-kode i denne 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. Etter det kan du kjøre denne makroen.

• Først av, i dette makrovinduet, trykk på "F5"-tasten.
• Deretter må du velge en kildemappe hvis undermapper skal behandles.
• Etter det må du spesifisere målmappen du vil flytte e-poster til.
• Deretter vil denne makroen begynne å fungere. Når den er fullført, får du en melding som ber om «Fullført».
• Til slutt kan du få tilgang til målmappen. Du vil se at alle e-postene i undermappene under kildemappen har vært der.

Gjenopprett kompromitterte Outlook-data

Til tross for å skryte av mange funksjoner, som andre e-postklienter, kan Outlook fortsatt ikke unnslippe korrupsjon heller. Med mer og mer lagret data vil Outlook bli stadig mer utsatt for feil og skader. Derfor må du ha et kraftig reparasjonsverktøy tilgjengelig, som DataNumen Outlook Repair. Den er spesielt designet for å fikse Outlook problemer. Dermed kan den skanne og gjenopprette skadet Outlook-fil med uanstrengt letthet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf gjenoppretting og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datKanumen.com