Hur man raderar alla tomma undermappar i din Outlook

Outlook-lösningar September 29, 2025

Om du vill radera alla tomma undermappar i din Outlook, kan du använda metoden som introduceras i den här artikeln. Det kommer att lära dig hur du använder Outlook VBA för att radera undermappar i omgångar.

För att bättre klassificera och hantera dina Outlook-e-postmeddelanden måste du ha skapat många anpassade undermappar under standardmapparna, oavsett mapp Inkorg, Skickade objekt eller Utkast etc. Men ibland kan du upptäcka att vissa undermappar inte är ofta Begagnade. Därför most av tid, de är tomma utan några föremål. I det här fallet hoppas du kunna ta bort alla tomma undermappar.

Batch-ta bort alla tomma undermappar i din Outlook

I allmänhet kan du högerklicka på en sådan undermapp och sedan välja "Ta bort mapp" från högerklicksmenyn. Ändå, om det finns många tomma undermappar, blir det ganska besvärligt att ta bort en efter en. Därför måste du längta efter ett tips för att radera alla samtidigt. Även om Outlook inte tillhandahåller en sådan funktion, kan du fortfarande använda VBA-kod för att realisera den på kort tid. I det följande visar vi dig de utarbetade stegen och koderna.

Batch Radera alla tomma undermappar

  1. För det första, start ditt Outlook-program.
  2. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
  3. Nästa i fönstret “Microsoft Visual Basic for Applications” öppnar du en modul som inte används.
  4. Kopiera sedan och klistra in följande VBA-koder i den här modulen.
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

VBA-kod - Batch-ta bort alla tomma undermappar i din Outlook

  1. Ändra sedan din Outlook-makrosäkerhetsnivå till låg.
  2. Så småningom kan du köra detta makro genom att trycka på "F5"-knappen i det aktuella makrofönstret.
  3. På en gång kommer du att upptäcka att alla tomma undermappar kommer att raderas.

Hämta skadade Outlook PST-data

På grund av det faktum att Outlook är känsligt för fel och skador, bör du vara uppmärksam på att skydda din Outlook PST-fil. Till exempel bör du säkerhetskopiera dina PST-data med jämna mellanrum. Dessutom för att reparera Outlook problem så snart som möjligt måste du förbereda ett välrenommerat och kraftfullt fixverktyg som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.