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 å bedre klassifisere og administrere Outlook-e-postene dine, må du ha opprettet mange egendefinerte undermapper under standardmappene, uansett mappen Innboks, Sendte elementer eller Utkast osv. Noen ganger kan du imidlertid oppleve at noen undermapper ikke er ofte brukt. Derfor, most over tid er de tomme uten noen gjenstander. I dette tilfellet håper du å 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. For det første, 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.