Kako automatski premjestiti stavke u mapi u nadređenu mapu prije brisanja u programu Outlook

Prema zadanim postavkama, u programu Outlook, kada izbrišete mapu, njezine će se stavke također premjestiti u mapu "Izbrisane stavke". Ako želite da Outlook automatski premjesti stavke u mapi u nadređenu mapu prije nego što je izbriše, možete koristiti sredstva podijeljena u ovom članku.

Kada izbrišete mapu, Outlook će vas upozoriti da će se sav njezin sadržaj premjestiti i u mapu "Izbrisane stavke". No, većinu vremena, jednostavno želite izbrisati tu mapu, ne uključujući stavke pohranjene u njoj. Stoga se nadate da će se stavke automatski premjestiti u nadređenu mapu mape. Ovdje ćemo vas naučiti kako to postići putem VBA-e. Ako ne znate ništa o VBA-i, prvo možete pročitati moj prethodni članak – "Kako pokrenuti VBA kod u vašem Outlooku".

Automatski premjestite stavke u mapi u nadređenu mapu prije brisanja

1. Za početak, pristupite Outlook VBA editoru preko “Alt + F11”.
2. Zatim u novom prozoru otvorite projekt “ThisOutlookSession”.
3. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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. Nakon toga, sada možete imati priliku.
5. Najprije desnom tipkom miša kliknite podmapu koju želite izbrisati.
6. Zatim iz kontekstnog izbornika odaberite opciju "[Smart] Delete Folder".
7. Outlook će odjednom izbrisati mapu i premjestiti njezine stavke u nadređenu mapu.
8. U mom slučaju, brišem podmapu "Za Boba". Njegova nadređena mapa je "Poslane stavke". Stoga su sve njegove stavke premještene u "Poslane stavke", kao na sljedećoj snimci zaslona.

Imajte na umu da je Outlook ranjiv

Trebate imati na umu neupitnu činjenicu – Outlook je podložan pogreškama ili oštećenjima. Stoga se morate čuvati svih potencijalnih prijetnji oko svoje podatkovne datoteke programa Outlook, uključujući viruse, nepravilan izlaz i tako dalje. Osim toga, bolje pripremite moćan i vjerodostojan Outlook alat za popravak, kao što je DataNumen Outlook Repair. Može vam pomoći da popraviti Outlook pitanja u roku od nekoliko minuta

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com