Kā automātiski pārvietot mapē esošos vienumus uz vecāku mapi, pirms to izdzēšat programmā Outlook

Pēc noklusējuma programmā Outlook, dzēšot mapi, tās vienumi tiks pārvietoti arī uz mapi “Dzēstie vienumi”. Ja vēlaties, lai programma Outlook pirms mapes dzēšanas automātiski pārvietotu mapē esošos vienumus uz vecāku mapi, varat izmantot šajā rakstā kopīgotos līdzekļus.

Dzēšot mapi, programma Outlook brīdinās, ka viss tās saturs tiks pārvietots arī uz mapi “Dzēstie vienumi”. Taču lielākoties jūs vēlaties vienkārši izdzēst šo mapi, neieskaitot tajā saglabātos vienumus. Tāpēc jūs cerat, ka vienumus varēs automātiski pārvietot uz mapes vecākmapi. Šeit mēs iemācīsim, kā to izdarīt, izmantojot VBA. Ja jūs neko nezināt par VBA, vispirms varat izlasīt manu iepriekšējo rakstu – “Kā palaist VBA kodu programmā Outlook".

Automātiski pārvietot mapē esošos vienumus uz vecāku mapi, pirms to izdzēšat

1. Vispirms piekļūstiet Outlook VBA redaktoram, izmantojot “Alt + F11”.
2. Pēc tam jaunajā logā atveriet projektu “ThisOutlookSession”.
3. Pēc tam nokopējiet un ielīmējiet šo VBA kodu šajā projektā.

'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. Pēc tam jūs varat nošaut tūlīt.
5. Sākumā ar peles labo pogu noklikšķiniet uz apakšmapes, kuru vēlaties izdzēst.
6. Pēc tam konteksta izvēlnē izvēlieties opciju “[Smart] Delete Folder”.
7. Uzreiz programma Outlook izdzēsīs mapi un pārvietos tās vienumus uz vecāku mapi.
8. Manā gadījumā es izdzēstu apakšmapi “Bobam”. Tās pamatmape ir “Nosūtītie vienumi”. Tāpēc visi tā vienumi ir pārvietoti uz sadaļu “Nosūtītie vienumi”, piemēram, šis ekrānuzņēmums.

Paturiet prātā, ka programma Outlook ir neaizsargāta

Jums jāpatur prātā neapšaubāms fakts - programma Outlook ir pakļauta kļūdām vai korupcijai. Tādējādi jums ir jāuzmanās no visiem iespējamiem draudiem, kas saistīti ar jūsu Outlook datu failu, ieskaitot vīrusu, nepareizu iziešanu un tā tālāk. Turklāt labāk sagatavot spēcīgu un uzticamu Outlook labošanas rīku, piemēram, DataNumen Outlook Repair. Tas var jums palīdzēt labot Outlook dažu minūšu laikā

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar