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

Hoe verwijder ik batchgewijs alle lege mappen in Outlook?

Stel dat er in Outlook tientallen lege mappen onder een e-mailmap staan, dan kunnen we over het algemeen de lege mappen een voor een verwijderen door met de rechtermuisknop op het menu te klikken. In vergelijking met herhaaldelijk rechtsklikken, introduceert dit artikel een VBA om snel alle lege submappen van één Outlook-map in bulk te verwijderen.

Batch verwijder alle lege mappen in Outlook met VBA

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2021 - 2010 of Office 365. Volledige functies 60 dagen gratis op proef.

pijl blauw rechts belBatch verwijder alle lege mappen in Outlook met VBA

Ga als volgt te werk om alle lege submappen van een bepaalde Outlook-map te verwijderen:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak onder VBA-code in het nieuwe modulevenster.

VBA: verwijder alle lege submappen van bepaalde Outlook-mappen in bulk

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. pers F5 Sleutel of lopen knop om deze VBA-code uit te voeren.

4. Selecteer in het pop-upvenster Map selecteren de specifieke map waarvan u de lege submappen in bulk wilt verwijderen en klik op de OK knop. Zie screenshot:

5. Nu verschijnt er een dialoogvenster Kutools voor Outlook dat u laat zien hoeveel lege submappen zijn verwijderd. Klik op de OK om het te sluiten.

Tot nu toe zijn alle submappen van de opgegeven Outlook-map al in bulk verwijderd.


pijl blauw rechts belGerelateerde artikelen

Zoek map (volledig mappad) op mapnaam in Outlook


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (10)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Briljant!!!
Deze opmerking is gemaakt door de moderator op de site
Ik krijg de volgende foutmelding bij het uitvoeren van de bovenstaande " Runtime error '-2147352567 (80020009)' Kan deze map niet verwijderen. Klik met de rechtermuisknop op de map en klik vervolgens op eigenschappen om uw machtigingen voor de map te controleren. Raadpleeg de eigenaar van de map of uw beheerder om uw rechten te wijzigen"

Het lijkt erop dat het script 1 item naar de verwijderde map verplaatst en vervolgens fouten eruit haalt.
Deze opmerking is gemaakt door de moderator op de site
Mee eens - ik krijg dezelfde foutmelding.
Deze opmerking is gemaakt door de moderator op de site
Het script probeert een map te verwijderen die al was verwijderd.
Ik heb een rij toegevoegd na xFlag = False met deze inhoud:
bij fout hervatten volgende
Deze opmerking is gemaakt door de moderator op de site
Inderdaad, voeg toe:

On Error Resume Next

NA:

Dim x Fldr As Folder 'Declareer submapobjecten'
xVlag = Onwaar

Het zou er zo uit moeten zien:

Dim x Fldr As Folder 'Declareer submapobjecten'
xVlag = Onwaar
On Error Resume Next
Deze opmerking is gemaakt door de moderator op de site
Ik krijg dezelfde foutmelding als Bryan... en nu?
Deze opmerking is gemaakt door de moderator op de site
Het script probeert een map te verwijderen die al was verwijderd.
Ik heb een rij toegevoegd na xFlag = False met deze inhoud:
bij fout hervatten volgende
Deze opmerking is gemaakt door de moderator op de site
Super eenvoudig en ongelooflijk behulpzaam. Dank u!!
Deze opmerking is gemaakt door de moderator op de site
74 lege mappen werden verwijderd maar helaas ook 109 mappen die dat niet waren. Andere lege mappen bleven onaangeroerd.
Deze opmerking is gemaakt door de moderator op de site
Dit werkte geweldig voor mij. Dank u. Sommige mappen kunnen niet worden verwijderd omdat ze eigen zijn aan Outlook, maar de submappen werken prima.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL