Cum să mutați automat elementele dintr-un folder în folderul părinte înainte de a-l șterge în Outlook

În mod implicit, în Outlook, atunci când ștergeți un folder, articolele acestuia vor fi, de asemenea, mutate în folderul „Elemente șterse”. Dacă doriți ca Outlook să mute automat elementele dintr-un folder în folderul părinte înainte de a-l șterge, puteți utiliza mijloacele împărtășite în acest articol.

Când ștergeți un folder, Outlook vă va avertiza că tot conținutul său va fi mutat și în folderul „Elemente șterse”. Dar, de cele mai multe ori, doriți pur și simplu să ștergeți acest folder, fără a include elementele stocate în el. Prin urmare, sperați ca elementele să poată fi mutate automat în folderul părinte al folderului. Aici vă vom învăța cum să realizați acest lucru prin VBA. Dacă nu știți nimic despre VBA, puteți citi mai întâi articolul meu anterior – „Cum să rulați codul VBA în Outlook".

Mutați automat elementele dintr-un folder în folderul părinte înainte de a-l șterge

1. Pentru început, accesați editorul Outlook VBA prin „Alt + F11”.
2. Apoi, în noua fereastră, deschideți proiectul „ThisOutlookSession”.
3. Ulterior, copiați și inserați următorul cod VBA în acest proiect.

'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. După aceea, poți avea o șansă acum.
5. La început, faceți clic dreapta pe subdosarul pe care doriți să îl ștergeți.
6. Apoi, din meniul contextual, alegeți opțiunea „[Smart] Delete Folder”.
7. Îndată, Outlook va șterge folderul și va muta elementele acestuia în folderul părinte.
8. În cazul meu, șterg subdosarul „To Bob”. Dosarul său părinte este „Articole trimise”. Prin urmare, toate articolele sale au fost mutate în „Elementele trimise”, ca în următoarea captură de ecran.

Rețineți că Outlook este vulnerabil

Ar trebui să țineți cont de un fapt incontestabil - Outlook este susceptibil de erori sau corupție. Astfel, trebuie să aveți grijă de toate potențialele amenințări din jurul fișierului dvs. de date Outlook, inclusiv viruși, ieșiri necorespunzătoare și așa mai departe. În plus, ar fi mai bine să pregătiți un instrument de remediere Outlook puternic și credibil, cum ar fi DataNumen Outlook Repair. Vă poate ajuta să remediați Outlook probleme în câteva minute

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com