Jak zbiorczo opróżnić wszystkie foldery „Elementy usunięte” na wszystkich kontach e-mail programu Outlook

Jeśli skonfigurowałeś kilka kont e-mail w Outlooku i każde konto używa oddzielnego pliku danych Outlooka, będziesz mieć kilka folderów „Elementy usunięte”. Jeśli chcesz opróżnić każdy folder „Elementy usunięte” na każdym koncie e-mail, możesz wykorzystać fragment kodu VBA w tym artykule. Pozwala na zbiorcze opróżnianie.

Jak wszyscy wiemy, Outlook umożliwia użytkownikom dodawanie i konfigurowanie kilku kont e-mail. Ponadto, jeśli każde konto korzysta z indywidualnego pliku danych programu Outlook, każdy plik będzie zawierał folder „Elementy usunięte”, w którym przechowywane są elementy usunięte. Gdy potwierdzisz, że elementy we wszystkich folderach „Elementy usunięte” są bezużyteczne, będziesz miał tendencję do opróżniania folderów. W takim przypadku, jeśli opróżnisz je ręcznie, może to być bardzo żmudne. Lepiej jest zastosować końcówkę, aby zbiorczo je opróżnić, jak na poniższym.

Opróżnij zbiorczo wszystkie foldery „Elementy usunięte” na wszystkich kontach e-mail

1. Na samym początku uruchom program Outlook.
2. Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
3. Następnie w oknie „Microsoft Visual Basic for Applications” musisz otworzyć pusty moduł.
4. Następnie skopiuj i wklej następujące kody VBA do tego modułu.

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. Następnie sprawdź ustawienia makr programu Outlook, upewniając się, że makra są dozwolone w programie Outlook.
6. Na koniec możesz wrócić do modułu i nacisnąć klawisz „F5”, aby uruchomić to makro.
7. Po uruchomieniu makra można zobaczyć, że wszystkie foldery „Elementy usunięte” zostały pomyślnie opróżnione.

W przypadku korupcji programu Outlook

Czy kiedykolwiek spotkałeś się z awarią programu Outlook lub nawet uszkodzeniem programu Outlook? Ogólnie, jak poradzisz sobie z okropnymi przypadkami? Jeśli korzystasz z Outlooka od dziesięcioleci, nieuniknione jest napotkanie różnych problemów w Outlooku. Dlatego lepiej pamiętaj o kilku sposobach naprawy i odzyskiwania, takich jak używanie narzędzia do naprawy skrzynki odbiorczej, regularne tworzenie kopii zapasowych danych programu Outlook, uzyskanie solidnego Poprawka programu Outlook narzędzie itp. Dzięki tym wszystkim środkom ostrożności możesz zachować spokój i łatwo odzyskać dane programu Outlook, nawet w przypadku naruszenia bezpieczeństwa pliku PST.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com