Slik sletter du alle tomme undermapper i Outlook

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 Neste 'Endre "Personlig" til navnet på Outlook-datafilen. Sett objFolders = Outlook.Application.Session.Folders(" Personal").Folders For Every 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 ("Fullført" !") 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 'Behandle undermappene objCurrentFolders.CounterFolders rekursivt. > 0 Så For n = objCurrentFolder.Folders.Count To 1 Step -1 Sett 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.