Note: The other languages of the website are Google-translated. Back to English

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

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

puščica modri desni mehurčekPaketno 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.


puščica modri desni mehurčekPovezani članki

Poiščite mapo (celotno pot do mape) po imenu mape v programu Outlook


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (10)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Briljantno !!!
Ta komentar je moderator na spletnem mestu minimiziral
Ko zaženem zgornjo "Run-time error '-2147352567 (80020009)', dobim naslednjo napako. Te mape ni mogoče izbrisati. Z desno tipko miške kliknite mapo in nato kliknite lastnosti, da preverite svoja dovoljenja za mapo. Oglejte si lastnika mape ali vaš skrbnik, da spremeni vaša dovoljenja"

Zdi se, da skript premakne 1 element v izbrisano mapo in nato odpravi napake.
Ta komentar je moderator na spletnem mestu minimiziral
Strinjam se - dobim isto napako.
Ta komentar je moderator na spletnem mestu minimiziral
Skript poskuša izbrisati mapo, ki je bila že izbrisana.
Dodal sem vrstico za xFlag = False s to vsebino:
ob napaki nadaljevanje naprej
Ta komentar je moderator na spletnem mestu minimiziral
Pravzaprav dodajte:

On Error Resume Next

AFTER:

Dim x Fldr As Folder 'Razglasi predmete podmape
xFlag = False

To bi moralo izgledati takole:

Dim x Fldr As Folder 'Razglasi predmete podmape
xFlag = False
On Error Resume Next
Ta komentar je moderator na spletnem mestu minimiziral
Dobivam isto napako kot Bryan .... in zdaj?
Ta komentar je moderator na spletnem mestu minimiziral
Skript poskuša izbrisati mapo, ki je bila že izbrisana.
Dodal sem vrstico za xFlag = False s to vsebino:
ob napaki nadaljevanje naprej
Ta komentar je moderator na spletnem mestu minimiziral
Super enostavno in neverjetno koristno. Hvala vam!!
Ta komentar je moderator na spletnem mestu minimiziral
Izbrisanih je bilo 74 praznih map, žal pa tudi 109 map, ki niso. Druge prazne mape so ostale nedotaknjene.
Ta komentar je moderator na spletnem mestu minimiziral
To mi je odlično delovalo. Hvala vam. Nekaterih map ni mogoče izbrisati, ker so izvorne v Outlooku, vendar podmape delujejo odlično.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije