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

Hogyan lehet kötegelt módon törölni az összes üres mappát az Outlookban?

Tegyük fel, hogy több tucat üres mappa van az Outlook mappája alatt, általában a jobb egérgombbal a menüre kattintva egyesével törölhetjük az üres mappákat. A jobb egérgombbal történő ismételt kattintáshoz képest ez a cikk egy VBA-t vezet be, amely egy Outlook mappa összes üres almappáját gyorsan tömegesen törli.

Batch törli az összes üres mappát az Outlookban a VBA segítségével

Office fül - Füles szerkesztés és böngészés engedélyezése az Office-ban, és a munka sokkal könnyebb ...
Kutools for Outlook - 100 hatékony speciális funkciót hoz a Microsoft Outlook programba
  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail szabályok szerint; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - mutasson üzenetet, amikor megpróbálja megválaszolni az összeset, ha az Ön e-mail címe szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (összes) az összes melléklettel a levelezési beszélgetésben; Válaszoljon egyszerre sok e-mailt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum és idő automatikus hozzáadása a tárgyhoz ...
  • Melléklet eszközök: Automatikus leválasztás, Összes tömörítése, Átnevezés, Automatikus mentés ... Gyorsjelentés, A kiválasztott levelek megszámlálása, Távolítsa el az ismétlődő leveleket és névjegyeket ...
  • Több mint 100 speciális funkcióval rendelkezik megoldja a legtöbb problémáját az Outlook 2021–2010 vagy az Office 365 programban. A teljes szolgáltatás 60 napos ingyenes próbaverzió.

nyíl kék jobb buborékBatch törli az összes üres mappát az Outlookban a VBA segítségével

Egy bizonyos Outlook mappa összes üres almappájának eltávolításához tegye a következőket:

1. nyomja meg más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. Kattints betétlap > Modulok, és illessze be a VBA kód alá az új modul ablakba.

VBA: Törölje tömegesen az összes Outlook-mappa összes üres almappáját

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. nyomja meg F5 Kulcs vagy futás gombra a VBA kód futtatásához.

4. A felbukkanó Mappa kiválasztása párbeszédpanelen válassza ki azt a mappát, amelynek üres almappáit tömegesen törölni fogja, majd kattintson a OK gomb. Lásd a képernyőképet:

5. Most megjelenik egy Kutools for Outlook párbeszédpanel, amely megmutatja, hány üres almappát töröltek. Kattints a OK gombot a bezárásához.

Eddig a megadott Outlook mappa összes almappáját már tömegesen törölték.


nyíl kék jobb buborékKapcsolódó cikkek

Keresse meg a mappát (teljes mappa elérési útja) mappa neve szerint az Outlook programban


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (10)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ragyogó!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
A következő hibaüzenetet kapom a fenti " Futási idejű hiba '-2147352567 (80020009)" futtatásakor A mappa nem törölhető. Kattintson a jobb gombbal a mappára, majd kattintson a Tulajdonságok elemre, hogy ellenőrizze a mappa jogosultságait. Tekintse meg a mappa tulajdonosát, vagy az adminisztrátor, hogy módosítsa az engedélyeit"

Úgy tűnik, hogy a szkript 1 elemet helyez át a törölt mappába, majd hibát jelez.
A weboldal moderátora ezt a megjegyzést minimalizálta
Egyetértek – ugyanezt a hibát kapom.
A weboldal moderátora ezt a megjegyzést minimalizálta
A szkript megpróbál törölni egy már törölt mappát.
Az xFlag = False után hozzáadtam egy sort ezzel a tartalommal:
hiba esetén folytassa a következőt
A weboldal moderátora ezt a megjegyzést minimalizálta
Valóban, tegyük hozzá:

On Error Resume Next

UTÁN:

Dim x Fldr As Folder 'Almappa objektumok deklarálása
xFlag = Hamis

Úgy kell kinéznie:

Dim x Fldr As Folder 'Almappa objektumok deklarálása
xFlag = Hamis
On Error Resume Next
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanazt a hibát kapom, mint Bryan... és most?
A weboldal moderátora ezt a megjegyzést minimalizálta
A szkript megpróbál törölni egy már törölt mappát.
Az xFlag = False után hozzáadtam egy sort ezzel a tartalommal:
hiba esetén folytassa a következőt
A weboldal moderátora ezt a megjegyzést minimalizálta
Szuper egyszerű és hihetetlenül hasznos. Köszönöm!!
A weboldal moderátora ezt a megjegyzést minimalizálta
74 üres mappát töröltek, de sajnos 109 mappát is, amelyek nem. A többi üres mappát érintetlenül hagyták.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nekem nagyon bevált. Köszönöm. Egyes mappák nem törölhetők, mivel az Outlookban natívak, de az almappák kiválóan működnek.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi