Как да групирате празни всички папки „Изтрити елементи“ във всичките си имейл акаунти в Outlook

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

Както всички знаем, Outlook позволява на потребителите да добавят и конфигурират няколко имейл акаунта. Освен това, ако всеки акаунт използва отделен файл с данни на Outlook, всеки файл ще има папка „Изтрити елементи“, в която се съхраняват изтритите елементи. Когато потвърдите, че елементите във всички папки „Изтрити елементи“ са безполезни, ще сте склонни да изпразните папките. В този случай, ако ги изпразните ръчно, може да бъде много досадно. По-добре е да приложите съвет, за да ги изпразните партидно, като следващия.

Групово изпразване на всички папки „Изтрити елементи“ във всички имейл акаунти

1. В самото начало стартирайте програмата си Outlook.
2. След това натиснете бутоните „Alt + F11“ в главния прозорец на Outlook.
3. След това в прозореца „Microsoft Visual Basic for Applications“ трябва да отворите празен модул.
4. След това копирайте и поставете следните VBA кодове в този модул.

Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

5. След това трябва да проверите настройките на макроса на Outlook, като се уверите, че макросите са разрешени във вашия Outlook.
6. В крайна сметка можете да се върнете към модула и да натиснете бутона „F5“, за да стартирате този макрос.
7. След стартиране на макроса можете да видите, че всички папки „Изтрити елементи“ са изпразнени успешно.

В случай на корупция в Outlook

Срещали ли сте някога срив на Outlook или дори корупция на Outlook? Изобщо как ще се справите със страшните случаи? Ако използвате Outlook от десетилетия, неизбежно е да срещнете различни проблеми във вашия Outlook. Следователно, по-добре запазете в ума си някои начини за поправка и възстановяване, като например използването на инструмента за поправка на входящата поща, редовно архивиране на данни на Outlook, получаване на стабилна Поправка на Outlook инструмент и т.н. С всички тези предпазни мерки, дори когато вашият PST файл се компрометира, пак можете да запазите спокойствие и лесно да намерите обратно данните си в Outlook.

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

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