Как автоматически перемещать элементы в папке в родительскую папку перед ее удалением в Outlook

По умолчанию в Outlook при удалении папки ее элементы также будут перемещены в папку «Удаленные». Если вы хотите, чтобы Outlook автоматически перемещал элементы в папке в ее родительскую папку перед ее удалением, вы можете использовать средства, описанные в этой статье.

Когда вы удаляете папку, Outlook предупредит вас, что все ее содержимое также будет перемещено в папку «Удаленные». Но, мost время, вы просто хотите удалить эту папку, не включая элементы, хранящиеся в ней. Таким образом, вы надеетесь, что элементы могут быть автоматически перемещены в родительскую папку папки. Здесь мы научим вас, как реализовать это через 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., которая является мировым лидером в области технологий восстановления данных, включая исправить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com