Jak automaticky přesunout položky ve složce do její nadřazené složky před odstraněním v aplikaci Outlook

Ve výchozím nastavení se v aplikaci Outlook při odstranění složky přesunou také její položky do složky „Odstraněná pošta“. Pokud si přejete, aby aplikace Outlook před odstraněním automaticky přesunula položky ve složce do její nadřazené složky, můžete použít prostředky sdílené v tomto článku.

Když smažete složku, Outlook vás upozorní, že veškerý její obsah bude také přesunut do složky „Smazané položky“. Většinou ale chcete smazat pouze tuto složku, bez položek v ní uložených. Proto doufáte, že se položky automaticky přesunou do nadřazené složky složky. Zde vás naučíme, jak to provést pomocí VBA. Pokud o VBA nic nevíte, můžete si nejprve přečíst můj předchozí článek – „Jak spustit kód VBA ve vašem Outlooku".

Před odstraněním automaticky přesuňte položky ve složce do nadřazené složky

1. Nejprve přejděte do editoru Outlook VBA pomocí „Alt + F11“.
2. Poté v novém okně otevřete projekt „ThisOutlookSession“.
3. Následně zkopírujte a vložte následující kód VBA do tohoto projektu.

'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. Poté můžete mít snímek hned.
5. Nejprve klikněte pravým tlačítkem na podsložku, kterou chcete odstranit.
6. Poté v místní nabídce vyberte možnost „[Chytrá] Odstranit složku“.
7. Aplikace Outlook najednou složku odstraní a přesune její položky do nadřazené složky.
8. V mém případě odstraním podsložku „To Bob“. Jeho nadřazená složka je „Odeslané položky“. Proto byly všechny jeho položky přesunuty do „Odeslaných položek“, jako na následujícím snímku obrazovky.

Mějte na paměti, že Outlook je zranitelný

Měli byste mít na paměti nezpochybnitelnou skutečnost - Outlook je náchylný k chybám nebo poškození. Musíte si tedy dávat pozor na všechny potenciální hrozby kolem datového souboru Outlooku, včetně virů, nesprávného ukončení atd. Kromě toho si raději připravte výkonný a důvěryhodný nástroj pro opravu Outlooku DataNumen Outlook Repair. Může vám pomoci opravit Outlook problémy během několika minut

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com