Slik sletter du alle tomme undermapper i Outlook

Outlook-løsninger September 29, 2025

Hvis du vil batchslette alle tomme undermapper i Outlook, kan du bruke metoden introdusert i denne artikkelen. Den vil lære deg hvordan du bruker Outlook VBA til å slette undermappene i grupper.

For å kunne klassifisere og administrere Outlook-e-postene dine bedre, må du ha opprettet mange egendefinerte undermapper under standardmappene, uansett Innboks, Sendte elementer eller Utkast-mappen osv. Noen ganger kan det imidlertid hende at noen undermapper ikke brukes ofte. Derfor er de som regel tomme uten elementer. I dette tilfellet vil du håpe å slette alle de tomme undermappene.

Batch-slett alle tomme undermapper i Outlook

Generelt kan du høyreklikke på en slik undermappe og deretter velge "Slett mappe" fra høyreklikkmenyen. Likevel, hvis det er mange tomme undermapper, vil det være ganske plagsomt å slette én etter én. Derfor må du lengte etter et tips for å slette alle samtidig. Selv om Outlook ikke tilbyr en slik funksjon, kan du fortsatt bruke VBA-kode for å realisere den på kort tid. I det følgende viser vi deg de forseggjorte trinnene og kodene.

Batch-slett alle tomme undermapper

  1. Først og fremst, start Outlook-programmet ditt.
  2. Trykk deretter på "Alt + F11"-tastene i hovedvinduet i Outlook.
  3. Deretter åpner du en modul som ikke er i bruk i "Microsoft Visual Basic for Applications"-vinduet.
  4. Deretter kopierer og limer du inn følgende VBA-koder i denne 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-kode - Batch-slett alle tomme undermapper i Outlook

  1. Deretter endrer du Outlook-makrosikkerhetsnivået til lavt.
  2. Til slutt kan du kjøre denne makroen ved å trykke på "F5"-tasten i gjeldende makrovindu.
  3. Med en gang vil du oppdage at alle de tomme undermappene vil bli slettet.

Hent ødelagte Outlook PST-data

På grunn av det faktum at Outlook er utsatt for feil og skade, bør du være oppmerksom på å beskytte Outlook PST-filen. For eksempel bør du sikkerhetskopiere PST-dataene dine med jevne mellomrom. Dessuten for å reparere Outlook problemer så snart som mulig, må du forberede et anerkjent og kraftig fikseverktøy som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.