Kako grupno izbrisati sve prazne podmape u vašem Outlooku

Ako želite grupno izbrisati sve prazne podmape u Outlooku, možete koristiti metodu predstavljenu u ovom članku. Naučiće vas kako da koristite Outlook VBA za brisanje poddirektorijuma u grupama.

Da biste bolje klasifikovali i upravljali svojim Outlook e-porukama, mora da ste kreirali mnogo prilagođenih podfoldera u podrazumevanim fasciklama, bez obzira na mapu Prijemna pošta, Poslane stavke ili Nacrti, itd. Međutim, ponekad možete otkriti da neke podmape nisu često korišteno. Dakle, most vremena, prazni su bez ikakvih stvari. U ovom slučaju, nadati ćete se da ćete izbrisati sve prazne podmape.

Općenito, možete kliknuti desnim tasterom miša na takvu podmapu, a zatim odabrati “Delete Folder” iz menija desnim klikom. Ipak, ako postoji mnogo praznih podfoldera, brisanje jednog po jednog će biti prilično problematično. Stoga morate čeznuti za savjetom da ih sve izbrišete na veliko. Iako Outlook ne pruža takvu funkciju, i dalje možete koristiti VBA kod da biste ga realizovali u kratkom vremenu. U nastavku ćemo vam pokazati detaljne korake i kodove.

Grupno brisanje svih praznih podmapa

1. Na prvom mjestu, start vaš Outlook program.
2. Zatim pritisnite tipke “Alt + F11” u glavnom prozoru programa Outlook.
3. Zatim u prozoru „Microsoft Visual Basic za aplikacije“ otvorite modul koji se ne koristi.
4. Nakon toga, kopirajte i zalijepite sljedeće VBA kodove u ovaj modul.

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

5. Nakon toga promijenite nivo sigurnosti makroa Outlook na niži.
6. Na kraju možete pokrenuti ovaj makro pritiskom na tipku “F5” u trenutnom prozoru makroa.
7. Odmah ćete otkriti da će sve prazne podmape biti izbrisane.

Preuzmi oštećene Outlook PST podatke

Zbog činjenice da je Outlook podložan greškama i oštećenjima, trebali biste obratiti pažnju na zaštitu Outlook PST datoteke. Na primjer, trebali biste povremeno praviti sigurnosnu kopiju svojih PST podataka. Štaviše, kako bi se popraviti Outlook problema što je prije moguće, morate pripremiti renomiran i moćan alat za popravak kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com