Como mover itens automaticamente em uma pasta para sua pasta pai antes de excluí-la no Outlook

Por padrão, no Outlook, quando você exclui uma pasta, seus itens também são movidos para a pasta “Itens Excluídos”. Se você deseja que o Outlook mova automaticamente os itens de uma pasta para sua pasta pai antes de excluí-la, use os meios compartilhados neste artigo.

Quando você exclui uma pasta, o Outlook avisa que todo o seu conteúdo também será movido para a pasta “Itens Excluídos”. Mas most de tempo, você simplesmente deseja excluir esta pasta, não incluindo os itens armazenados nela. Portanto, você espera que os itens possam ser movidos automaticamente para a pasta pai da pasta. Aqui vamos ensinar como realizá-lo via VBA. Se você não sabe nada sobre VBA, você pode primeiro ler meu artigo anterior – “Como executar o código VBA no seu Outlook".

Mover itens automaticamente em uma pasta para sua pasta principal antes de excluí-la

1. Para começar, acesse o editor VBA do Outlook via “Alt + F11”.
2. Em seguida, na nova janela, abra o projeto “ThisOutlookSession”.
3. Posteriormente, copie e cole o seguinte código VBA neste projeto.

'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

4. Depois disso, você pode ter uma chance agora.
5. Primeiro, clique com o botão direito do mouse na subpasta que deseja excluir.
6. Em seguida, no menu de contexto, escolha a opção “[Smart] Delete Folder”.
7. Imediatamente, o Outlook excluirá a pasta e moverá seus itens para a pasta pai.
8. No meu caso, excluo a subpasta “To Bob”. Sua pasta pai é “Itens Enviados”. Portanto, todos os seus itens foram movidos para “Itens Enviados”, conforme a captura de tela a seguir.

Tenha em mente que o Outlook é vulnerável

Você deve ter em mente um fato inquestionável – o Outlook é suscetível a erros ou corrupção. Assim, você deve tomar cuidado com todas as ameaças potenciais em torno de seu arquivo de dados do Outlook, incluindo vírus, saída imprópria e assim por diante. Além disso, é melhor você preparar uma ferramenta de correção do Outlook poderosa e confiável, como DataNumen Outlook Repair. Ele pode ajudá-lo a corrigir Outlook problemas em minutos

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 conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com