Kako paketno izbrisati vse prazne mape v Outlooku?
Recimo, da je v poštni mapi v Outlooku na desetine praznih map, na splošno lahko prazne mape izbrišemo eno za drugo z desnim klikom menija. Ta članek bo v primerjavi z večkratnim desnim klikom predstavil VBA za hitro brisanje vseh praznih podmap ene mape Outlooka.
Paketno izbrišite vse prazne mape v Outlooku z VBA
- Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
- Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
- Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
- Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...
Paketno izbrišite vse prazne mape v Outlooku z VBA
Če želite odstraniti vse prazne podmape določene mape Outlook, naredite naslednje:
1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite pod kodo VBA v novo okno modula.
VBA: v velikem obsegu izbrišite vse prazne podmape določene mape Outlook
Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub
3. Pritisnite F5 Ključ ali Run za zagon te kode VBA.
4. V pogovornem oknu Izbira mape izberite določeno mapo, katere prazne podmape boste v velikem obsegu izbrisali, in kliknite OK . Oglejte si posnetek zaslona:
5. Zdaj se odpre pogovorno okno Kutools for Outlook, ki prikazuje, koliko praznih podmap je bilo izbrisanih. Kliknite OK , da ga zaprete.
Do zdaj so bile vse podmape določene mape Outlook že izbrisane v velikem obsegu.
Povezani članki
Poiščite mapo (celotno pot do mape) po imenu mape v programu Outlook
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.