Kako samodejno premakniti elemente v mapi v njeno nadrejeno mapo, preden jo izbrišete v Outlooku

Ko izbrišete mapo v Outlooku, bodo njeni elementi privzeto premaknjeni v mapo »Izbrisani predmeti«. Če želite, da Outlook samodejno premakne elemente v mapi v nadrejeno mapo, preden jo izbriše, lahko uporabite sredstva, ki so v skupni rabi v tem članku.

Ko izbrišete mapo, vas Outlook opozori, da bo vsa njena vsebina premaknjena tudi v mapo »Izbrisani elementi«. Vendar pa večinoma želite izbrisati le to mapo, ne pa elementov, shranjenih v njej. Zato upate, da se bodo elementi samodejno premaknili v nadrejeno mapo mape. Tukaj vas bomo naučili, kako to storiti prek VBA. Če o VBA ne veste ničesar, si lahko najprej preberete moj prejšnji članek – »Kako zagnati kodo VBA v Outlooku".

Samodejno premakni elemente v mapi v njeno nadrejeno mapo, preden jo izbrišete

1. Za začetek odprite urejevalnik Outlook VBA prek »Alt + F11«.
2. Nato v novem oknu odprite projekt »ThisOutlookSession«.
3. Nato v ta projekt kopirajte in prilepite naslednjo kodo VBA.

'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. Po tem lahko zdaj poskusite.
5. Najprej z desno miškino tipko kliknite podmapo, ki jo želite izbrisati.
6. Nato v kontekstnem meniju izberite možnost »[Smart] Delete Folder«.
7. Outlook bo mapo takoj izbrisal in njene elemente premaknil v nadrejeno mapo.
8. V mojem primeru izbrišem podmapo »To Bob«. Njegova nadrejena mapa je »Poslani predmeti«. Zato so bili vsi njegovi elementi premaknjeni v »Poslani predmeti«, kot je naslednji posnetek zaslona.

Ne pozabite, da je Outlook ranljiv

Upoštevati morate nedvomno dejstvo – Outlook je dovzeten za napake ali poškodbe. Zato se morate paziti vseh morebitnih groženj okoli vaše podatkovne datoteke Outlook, vključno z virusi, nepravilnim izhodom in tako naprej. Poleg tega raje pripravite zmogljivo in verodostojno orodje za popravilo Outlooka, kot je DataNumen Outlook Repair. Lahko vam pomaga pri popraviti Outlook težave v nekaj minutah

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z mdf popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com