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

Hur satsar jag på alla tomma mappar i Outlook?

Antag att det finns dussintals tomma mappar under en e-postmapp i Outlook, i allmänhet kan vi ta bort de tomma mapparna en efter en genom att högerklicka på menyn. Jämfört med att högerklicka flera gånger kommer den här artikeln att introducera en VBA för att snabbt ta bort alla tomma undermappar i en Outlook-mapp i bulk.

Batch ta bort alla tomma mappar i Outlook med VBA

Fliken Office - Aktivera redigering och surfning på flikar i Office, och gör arbetet mycket enklare ...
Kutools for Outlook - ger 100 kraftfulla avancerade funktioner till Microsoft Outlook
  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter regler; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden på en gång; Lägg automatiskt till hälsning när svar Lägg automatiskt till datum och tid i ämne ...
  • Tillbehörsverktyg: Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla automatiskt ... Snabbrapport, Räkna utvalda e-postmeddelanden, Ta bort duplicerade e-postmeddelanden och kontakter ...
  • Mer än 100 avancerade funktioner kommer lösa de flesta av dina problem i Outlook 2021 - 2010 eller Office 365. Fullständiga funktioner 60 dagars gratis provperiod.

pil blå höger bubblaBatch ta bort alla tomma mappar i Outlook med VBA

Så här tar du bort alla tomma undermappar i en viss Outlook-mapp:

1. Tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in under VBA-koden i det nya modulfönstret.

VBA: Ta bort alla tomma undermappar i vissa Outlook-mappar i 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. Tryck F5 Nyckel eller run för att köra denna VBA-kod.

4. I dialogrutan Välj mapp dyker du upp, välj den specifika mapp vars tomma undermappar du raderar i bulk och klicka på OK knapp. Se skärmdump:

5. Nu kommer en Kutools for Outlook-dialogruta ut och visar dig hur många tomma undermappar som har raderats. Klicka på OK knappen för att stänga den.

Hittills har alla undermappar i den angivna Outlook-mappen redan raderats i bulk.


pil blå höger bubblaRelaterade artiklar

Hitta mapp (fullständig mappsökväg) efter mappnamn i Outlook


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (10)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Lysande!!!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får följande fel när jag kör ovanstående " Run-time error '-2147352567 (80020009)' Kan inte ta bort den här mappen. Högerklicka på mappen och klicka sedan på egenskaper för att kontrollera dina behörigheter för mappen. Se mappägaren eller din administratör för att ändra dina behörigheter"

Det verkar som om skriptet flyttar ett objekt till den borttagna mappen och sedan försvinner.
Denna kommentar minimerades av moderatoren på webbplatsen
Håller med - jag får samma fel.
Denna kommentar minimerades av moderatoren på webbplatsen
Skriptet försöker ta bort en mapp som redan har tagits bort.
Jag lade till en rad efter xFlag = False med detta innehåll:
vid fel återupptas nästa
Denna kommentar minimerades av moderatoren på webbplatsen
Lägg till:

On Error Resume Next

EFTER:

Dim x Fldr As Folder 'Deklarera undermappsobjekt
xFlagga = Falskt

Det ska se ut så här:

Dim x Fldr As Folder 'Deklarera undermappsobjekt
xFlagga = Falskt
On Error Resume Next
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får samma fel som Bryan... och nu?
Denna kommentar minimerades av moderatoren på webbplatsen
Skriptet försöker ta bort en mapp som redan har tagits bort.
Jag lade till en rad efter xFlag = False med detta innehåll:
vid fel återupptas nästa
Denna kommentar minimerades av moderatoren på webbplatsen
Superenkelt och otroligt hjälpsamt. Tack!!
Denna kommentar minimerades av moderatoren på webbplatsen
74 tomma mappar raderades men tyvärr även 109 mappar som inte gjorde det. Andra tomma mappar lämnades orörda.
Denna kommentar minimerades av moderatoren på webbplatsen
Detta fungerade utmärkt för mig. Tack. Vissa mappar kan inte tas bort eftersom de är inbyggda i Outlook, men undermapparna fungerar utmärkt.
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL