Items in een map automatisch naar de bovenliggende map verplaatsen voordat u deze in Outlook verwijdert

Als u in Outlook een map verwijdert, worden de items standaard ook naar de map "Verwijderde items" verplaatst. Als u wilt dat Outlook de items in een map automatisch naar de bovenliggende map verplaatst voordat u deze verwijdert, kunt u de middelen gebruiken die in dit artikel worden gedeeld.

Wanneer u een map verwijdert, waarschuwt Outlook u dat alle inhoud ervan ook naar de map 'Verwijderde items' wordt verplaatst. Meestal wilt u echter alleen deze map verwijderen, zonder de items die erin staan. Daarom hoopt u dat de items automatisch naar de bovenliggende map worden verplaatst. In dit artikel leggen we uit hoe u dit met VBA kunt bereiken. Als u nog niet bekend bent met VBA, kunt u eerst mijn vorige artikel lezen: "Verwijderde items".Hoe u VBA-code in uw Outlook uitvoert'.

Verplaats automatisch items in een map naar de bovenliggende map voordat u deze verwijdert

1. Open om te beginnen de Outlook VBA-editor via "Alt + F11".
2. Open vervolgens in het nieuwe venster het project "ThisOutlookSession".
3. Kopieer en plak vervolgens de volgende VBA-code in dit project.

'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. Daarna kun je nu een kans maken.
5. Klik eerst met de rechtermuisknop op de submap die u wilt verwijderen.
6. Kies vervolgens in het contextmenu de optie "[Slim] map verwijderen".
7. Outlook zal de map onmiddellijk verwijderen en de items naar de bovenliggende map verplaatsen.
8. In mijn geval verwijder ik de submap "To Bob". De bovenliggende map is "Verzonden items". Daarom zijn alle items verplaatst naar "Verzonden items", zoals in de volgende schermafbeelding.

Houd er rekening mee dat Outlook kwetsbaar is

U moet een onbetwist feit in gedachten houden: Outlook is vatbaar voor fouten of corruptie. U moet dus op uw hoede zijn voor alle mogelijke bedreigingen rond uw Outlook-gegevensbestand, inclusief virussen, onjuist afsluiten enzovoort. Trouwens, je kunt beter een krachtig en geloofwaardig Outlook-reparatietool voorbereiden, zoals DataNumen Outlook Repair. Het kan u daarbij helpen Outlook repareren problemen binnen enkele minuten

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com