Comment déplacer automatiquement des éléments d'un dossier vers son dossier parent avant de le supprimer dans Outlook

Par défaut, dans Outlook, lorsque vous supprimez un dossier, ses éléments seront également déplacés vers le dossier "Éléments supprimés". Si vous souhaitez qu'Outlook déplace automatiquement les éléments d'un dossier vers son dossier parent avant de le supprimer, vous pouvez utiliser les moyens partagés dans cet article.

Lorsque vous supprimez un dossier, Outlook vous avertit que tout son contenu sera également déplacé vers le dossier « Éléments supprimés ». Or, la plupart du temps, vous souhaitez simplement supprimer le dossier lui-même, sans y inclure les éléments qu'il contient. Vous souhaitez donc que ces éléments soient automatiquement déplacés vers le dossier parent. Nous allons vous montrer comment y parvenir grâce à VBA. Si vous ne connaissez pas VBA, vous pouvez commencer par lire mon article précédent : « … »Comment exécuter le code VBA dans votre Outlook" .

Déplacer automatiquement les éléments d'un dossier vers son dossier parent avant de le supprimer

1. Pour commencer, accédez à l'éditeur Outlook VBA via "Alt + F11".
2. Ensuite, dans la nouvelle fenêtre, ouvrez le projet "ThisOutlookSession".
3. Ensuite, copiez et collez le code VBA suivant dans ce projet.

'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. Après cela, vous pouvez essayer maintenant.
5. Dans un premier temps, faites un clic droit sur le sous-dossier que vous souhaitez supprimer.
6. Ensuite, dans le menu contextuel, choisissez l'option "[Smart] Supprimer le dossier".
7. Immédiatement, Outlook supprimera le dossier et déplacera ses éléments vers son dossier parent.
8. Dans mon cas, je supprime le sous-dossier "To Bob". Son dossier parent est "Éléments envoyés". Par conséquent, tous ses éléments ont été déplacés vers "Éléments envoyés", comme la capture d'écran suivante.

Gardez à l'esprit qu'Outlook est vulnérable

Vous devez garder à l'esprit un fait incontesté - Outlook est susceptible d'erreurs ou de corruption. Ainsi, vous devez vous méfier de toutes les menaces potentielles autour de votre fichier de données Outlook, y compris les virus, les sorties incorrectes, etc. En outre, vous feriez mieux de préparer un outil de correction Outlook puissant et crédible, comme DataNumen Outlook Repair. Il peut vous aider à réparer Outlook problèmes en quelques minutes

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com