Как да премествам автоматично елементи в папка в родителската си папка, преди да я изтрия в Outlook

По подразбиране в Outlook, когато изтриете папка, нейните елементи също ще бъдат преместени в папката „Изтрити елементи“. Ако искате Outlook да премести автоматично елементите в папка в родителската си папка, преди да я изтриете, можете да използвате средствата, споделени в тази статия.

Когато изтриете папка, Outlook ще ви предупреди, че цялото ѝ съдържание ще бъде преместено и в папката „Изтрити елементи“. Но в повечето случаи просто искате да изтриете тази папка, без да включвате елементите, съхранявани в нея. Следователно, се надявате, че елементите могат автоматично да бъдат преместени в родителската папка на папката. Тук ще ви научим как да го направите чрез VBA. Ако не знаете нищо за VBA, първо можете да прочетете предишната ми статия – „Как да стартирате VBA код във вашия Outlook".

Автоматично преместване на елементи в папка в родителската й папка, преди да я изтриете

1. Като начало отворете редактора на Outlook VBA чрез „Alt + F11“.
2. След това в новия прозорец отворете проекта “ThisOutlookSession”.
3. Впоследствие копирайте и поставете следния 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. След това можете да опитате сега.
5. Отначало щракнете с десния бутон върху подпапката, която искате да изтриете.
6. След това от контекстното меню изберете опцията “[Smart] Delete Folder”.
7. Веднага Outlook ще изтрие папката и ще премести елементите си в родителската си папка.
8. В моя случай изтривам подпапката „To Bob“. Родителската му папка е „Изпратени елементи“. Следователно всички негови елементи са преместени в „Изпратени елементи“, като следващата екранна снимка.

Имайте предвид, че Outlook е уязвим

Трябва да имате предвид безспорен факт - Outlook е податлив на грешки или корупция. По този начин трябва да се пазите от всички потенциални заплахи около вашия файл с данни на Outlook, включително вирус, неправилно излизане и т.н. Освен това по-добре подгответе мощен и надежден инструмент за корекция на Outlook, като DataNumen Outlook Repair. Тя може да ви помогне поправете Outlook проблеми в рамките на минути

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com