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

Cum să ștergeți în lot toate folderele goale din Outlook?

Să presupunem că există zeci de foldere goale sub un folder de poștă electronică în Outlook, în general putem șterge folderele goale unul câte unul făcând clic dreapta pe meniu. Comparativ cu clic dreapta în mod repetat, acest articol va introduce un VBA pentru a șterge rapid toate subfolderele goale ale unui folder Outlook în bloc.

Ștergeți în lot toate folderele goale din Outlook cu VBA

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) cu toate atașamentele în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2021 - 2010 sau Office 365. Caracteristici complete Probă gratuită de 60 de zile.

săgeată albastru dreapta balonȘtergeți în lot toate folderele goale din Outlook cu VBA

Pentru a elimina toate subfolderele goale ale unui anumit folder Outlook, procedați după cum urmează:

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module, și lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: Ștergeți în bloc toate subfolderele goale ale anumitor dosare Outlook

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. presa F5 Chei sau Alerga pentru a rula acest cod VBA.

4. În caseta de dialog Select Folder, selectați folderul specific ale cărui subfoldere goale le veți șterge în bloc și faceți clic pe OK buton. Vedeți captura de ecran:

5. Acum apare o casetă de dialog Kutools pentru Outlook și vă arată câte subfoldere goale au fost șterse. Apasă pe OK pentru a o închide.

Până acum, toate subfolderele din folderul Outlook specificat au fost șterse deja în bloc.


săgeată albastru dreapta balonArticole pe aceeaşi temă

Găsiți folderul (calea completă a folderului) după numele folderului în Outlook


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sclipitor!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Primesc următoarea eroare când rulez „Eroare de rulare „-2147352567 (80020009)” de mai sus. Nu se poate șterge acest folder. Faceți clic dreapta pe dosar, apoi faceți clic pe proprietăți pentru a vă verifica permisiunile pentru folder. Vedeți proprietarul folderului sau administratorul dvs. să vă schimbe permisiunile"

Se pare că scriptul mută 1 element în folderul șters și apoi emite erori.
Acest comentariu a fost redus la minimum de moderatorul de pe site
De acord - primesc aceeași eroare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Scriptul încearcă să ștergă un folder care a fost deja șters.
Am adăugat un rând după xFlag = False cu acest conținut:
la eroare, reluați în continuare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Intr-adevar, adauga:

La data de eroare CV următoare

DUPĂ:

Dim x Fldr As Folder „Declară obiecte sub folder
xFlag = Fals

Ar trebui să arate astfel:

Dim x Fldr As Folder „Declară obiecte sub folder
xFlag = Fals
La data de eroare CV următoare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Primesc aceeași eroare ca și Bryan... și acum?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Scriptul încearcă să ștergă un folder care a fost deja șters.
Am adăugat un rând după xFlag = False cu acest conținut:
la eroare, reluați în continuare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Super ușor și incredibil de util. Mulțumesc!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
74 de foldere goale au fost șterse, dar, din păcate, și 109 foldere care nu au fost. Alte dosare goale au fost lăsate neatinse.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru a funcționat grozav pentru mine. Mulțumesc. Unele foldere nu pot fi șterse deoarece sunt native pentru Outlook, dar subfolderele funcționează excelent.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL