Come spostare in batch le e-mail da tutte le sottocartelle di una cartella in un'altra cartella in Outlook

Forse hai una cartella in cui ci sono numerose sottocartelle. Se desideri riorganizzare le e-mail in esse contenute, ad esempio spostando rapidamente tutte le e-mail da queste sottocartelle a una cartella specifica, puoi utilizzare la modalità condivisa in questo articolo.

A volte, potrebbe essere necessario spostare in batch le e-mail da tutte le sottocartelle di una cartella in un'altra cartella per alcuni motivi, ad esempio se si desidera riclassificare le e-mail, quindi queste sottocartelle non sono più utili. In questo caso, l'elaborazione di queste sottocartelle una per una è piuttosto problematica. Pertanto, qui ti presenteremo un altro modo.

Sposta in batch le e-mail da tutte le sottocartelle di una cartella in un'altra cartella

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, nella schermata principale di Outlook, tocca i pulsanti "Alt + F11", che ti porteranno all'editor VBA.
3. Successivamente, nella nuova finestra "Microsoft Visual Basic for Applications", è necessario aprire un modulo che non è in uso.
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

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. Successivamente, puoi eseguire questa macro.

• Prima di tutto, in questa finestra macro, premi il tasto "F5".
• Quindi, ti verrà richiesto di scegliere una cartella di origine di cui elaborare le sottocartelle.
• Successivamente, è necessario specificare la cartella di destinazione in cui si desidera spostare le e-mail.
• Successivamente, questa macro inizierà a funzionare. Al termine, riceverai un messaggio che ti avviserà di "Completato".
• In definitiva, potrai accedere alla cartella di destinazione. Vedrai che tutte le email delle sottocartelle della cartella di origine sono state spostate lì.

Ripristina i dati di Outlook compromessi

Nonostante vanti numerose funzionalità, come altri client di posta elettronica, anche Outlook non può ancora sfuggire alla corruzione. Con sempre più dati archiviati, Outlook sarà sempre più soggetto a errori e danni. Quindi, è necessario tenere a portata di mano un potente strumento di riparazione, come DataNumen Outlook Repair. È appositamente progettato per riparare Outlook problemi. In tal modo, può scansionare e ripristinare file di Outlook danneggiati con facilità.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recupero mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datKanumen.com