Como mover e-mails em lote de todas as subpastas de uma pasta para outra pasta no Outlook

Talvez você tenha uma pasta na qual existem várias subpastas. Se você deseja reorganizar os e-mails neles, como mover rapidamente todos os e-mails dessas subpastas para uma pasta específica, pode usar o caminho compartilhado neste artigo.

Às vezes, pode ser necessário mover em lote os e-mails de todas as subpastas de uma pasta para outra por alguns motivos, como você deseja reclassificar os e-mails, para que essas subpastas não sejam mais úteis. Nesse caso, processar essas subpastas uma a uma é bastante problemático. Portanto, aqui apresentaremos outra maneira.

Lote mover e-mails de todas as subpastas de uma pasta para outra pasta

1. Para começar, abra o programa Outlook.
2. Em seguida, na tela principal do Outlook, toque nos botões de teclas “Alt + F11”, que o levarão ao editor VBA.
3. Em seguida, na nova janela “Microsoft Visual Basic for Applications”, você precisa abrir um módulo que não está em uso.
4. Posteriormente, copie e cole o seguinte código VBA neste módulo.

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. Depois disso, você pode executar esta macro.

• Primeiro, nesta janela de macro, pressione o botão de tecla “F5”.
• Em seguida, você será solicitado a escolher uma pasta de origem cujas subpastas serão processadas.
• Depois disso, você precisa especificar a pasta de destino para a qual deseja mover os e-mails.
• Em seguida, essa macro começará a funcionar. Quando terminar, você receberá uma mensagem informando "Concluído".
• Por fim, você poderá acessar a pasta de destino. Você verá que todos os e-mails das subpastas da pasta de origem foram transferidos para lá.

Restaurar dados comprometidos do Outlook

Apesar de ostentar vários recursos, como outros clientes de e-mail, o Outlook também não consegue escapar da corrupção. Com cada vez mais dados armazenados, o Outlook estará cada vez mais sujeito a erros e danos. Portanto, você precisa manter uma ferramenta de reparo potente à mão, como DataNumen Outlook Repair. É especialmente projetado para corrigir Outlook problemas. Assim, ele pode digitalizar e restaurar arquivos danificados do Outlook com facilidade e sem esforço.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperação mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datKanumen.com