Cómo mover automáticamente elementos de una carpeta a su carpeta principal antes de eliminarla en Outlook

De forma predeterminada, en Outlook, cuando elimina una carpeta, sus elementos también se moverán a la carpeta "Elementos eliminados". Si desea que Outlook mueva automáticamente los elementos de una carpeta a su carpeta principal antes de eliminarla, puede utilizar los medios compartidos en este artículo.

Cuando eliminas una carpeta, Outlook te advierte que todo su contenido también se moverá a la carpeta "Elementos eliminados". Pero, la mayoría de las veces, simplemente quieres eliminar esta carpeta, sin incluir los elementos almacenados en ella. Por lo tanto, esperas que los elementos se puedan mover automáticamente a la carpeta principal de la carpeta. Aquí te enseñaremos cómo lograrlo mediante VBA. Si no sabes nada sobre VBA, puedes leer primero mi artículo anterior:Cómo ejecutar código VBA en su Outlook".

Mover automáticamente los elementos de una carpeta a su carpeta principal antes de eliminarla

1. Para empezar, acceda al editor de Outlook VBA a través de "Alt + F11".
2. Luego, en la nueva ventana, abra el proyecto "ThisOutlookSession".
3. Posteriormente, copie y pegue el siguiente código VBA en este proyecto.

'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. Después de eso, puedes tener una oportunidad ahora.
5. Al principio, haga clic con el botón derecho en la subcarpeta que desea eliminar.
6. Luego, en el menú contextual, elija la opción “[Inteligente] Eliminar carpeta”.
7. De inmediato, Outlook eliminará la carpeta y moverá sus elementos a su carpeta principal.
8. En mi caso, elimino la subcarpeta "To Bob". Su carpeta principal es "Elementos enviados". Por lo tanto, todos sus elementos se han movido a "Elementos enviados", como la siguiente captura de pantalla.

Tenga en cuenta que Outlook es vulnerable

Debe tener en cuenta un hecho incuestionable: Outlook es susceptible a errores o corrupción. Por lo tanto, debe tener cuidado con todas las amenazas potenciales alrededor de su archivo de datos de Outlook, incluidos virus, salidas incorrectas, etc. Además, será mejor que prepare una herramienta de corrección de Outlook poderosa y creíble, como DataNumen Outlook Repair. Puede ayudarte a arreglar Outlook problemas en minutos

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com