Jeśli chcesz zbiorczo usunąć wszystkie puste podfoldery w programie Outlook, możesz skorzystać z metody przedstawionej w tym artykule. Nauczy Cię, jak używać programu Outlook VBA do usuwania podfolderów partiami.
Aby lepiej klasyfikować i zarządzać wiadomościami e-mail programu Outlook, musisz utworzyć wiele niestandardowych podfolderów w folderach domyślnych, bez względu na folder Skrzynka odbiorcza, Elementy wysłane, Wersje robocze itp. Jednak czasami może się okazać, że niektóre podfoldery nie są często używany. Dlatego m. Inost czasu, są puste bez żadnych przedmiotów. W takim przypadku masz nadzieję na usunięcie wszystkich pustych podfolderów.
Ogólnie rzecz biorąc, możesz kliknąć taki podfolder prawym przyciskiem myszy, a następnie wybrać „Usuń folder” z menu po kliknięciu prawym przyciskiem myszy. Niemniej jednak, jeśli istnieje wiele pustych podfolderów, usuwanie jednego po drugim będzie dość kłopotliwe. Dlatego musisz tęsknić za wskazówką, aby zbiorczo usunąć je wszystkie. Chociaż Outlook nie zapewnia takiej funkcji, nadal możesz skorzystać z kodu VBA, aby zrealizować to w krótkim czasie. Poniżej pokażemy szczegółowe kroki i kody.
Wsadowo usuń wszystkie puste podfoldery
- W pierwszej kolejności starprogram Outlook.
- Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
- Następnie w oknie „Microsoft Visual Basic for Applications” otwórz moduł, który nie jest używany.
- Następnie skopiuj i wklej następujące kody VBA do tego modułu.
Public Sub GetAllSubfolders()
Dim objFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Dim i As Long
On Error Resume Next
'Change "Personal" to the name of your Outlook data file
Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
For Each objFolder In objFolders
If objFolder.Folders.Count > 0 Then
For i = objFolder.Folders.Count To 1 Step -1
Call DeleteEmptyFolder(objFolder.Folders(i))
Next
End If
Next
MsgBox ("Completed!")
End Sub
Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
Dim objSubFolder As Outlook.Folder
Dim n As Long
If objCurrentFolder.Items.Count = 0 Then
objCurrentFolder.Delete
End If
'Process the subfolders recursively
If objCurrentFolder.Folders.Count > 0 Then
For n = objCurrentFolder.Folders.Count To 1 Step -1
Set objSubFolder = objCurrentFolder.Folders(n)
Call DeleteEmptyFolder(objSubFolder)
Next
End If
End Sub
- Następnie zmień poziom bezpieczeństwa makr programu Outlook na niski.
- Ostatecznie możesz uruchomić to makro, naciskając przycisk klawisza „F5” w bieżącym oknie makra.
- Od razu odkryjesz, że wszystkie puste podfoldery zostaną usunięte.
Pobierz uszkodzone dane PST programu Outlook
Ze względu na to, że program Outlook jest podatny na błędy i uszkodzenia, należy zwrócić uwagę na ochronę pliku PST programu Outlook. Na przykład należy okresowo tworzyć kopie zapasowe danych PST. Ponadto, aby napraw Outlooka tak szybko, jak to możliwe, musisz przygotować renomowane i potężne narzędzie naprawcze, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com