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

Jak hromadně odstranit všechny prázdné složky v aplikaci Outlook?

Předpokládejme, že v e-mailové složce v Outlooku jsou desítky prázdných složek. Obvykle můžeme prázdné složky mazat jednu po druhé kliknutím pravým tlačítkem na nabídku. Ve srovnání s opakovaným kliknutím pravým tlačítkem tento článek představí VBA pro rychlé hromadné odstranění všech prázdných podsložek jedné složky aplikace Outlook.

Dávkově smažte všechny prázdné složky v Outlooku pomocí VBA

Záložka Office - Povolte úpravy a procházení záložkami v Office a mnohem usnadněte práci ...
Kutools pro Outlook - přináší do aplikace Microsoft Outlook 100 výkonných pokročilých funkcí
  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle pravidel; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem, pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (vše) se všemi přílohami v poštovní konverzaci; Odpovězte na mnoho e-mailů najednou; Automatické přidání pozdravu při odpovědi; Automatické přidání data a času do předmětu ...
  • Nástroje pro připojení: Auto Detach, Compress All, Rename All, Auto Save All ... Rychlá zpráva, Počet vybraných e-mailů, Odebrat duplicitní e-maily a kontakty ...
  • Více než 100 pokročilých funkcí bude vyřešit většinu vašich problémů v aplikaci Outlook 2021 – 2010 nebo Office 365. Plné funkce 60denní bezplatná zkušební verze.

šipka modrá pravá bublinaDávkově smažte všechny prázdné složky v Outlooku pomocí VBA

Chcete-li odebrat všechny prázdné podsložky určité složky aplikace Outlook, postupujte takto:

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte pod kód VBA do nového okna modulu.

VBA: Hromadně odstraňte všechny prázdné podsložky určité složky aplikace 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. lis F5 Klíč nebo Běh tlačítko ke spuštění tohoto kódu VBA.

4. Ve vyskakovacím dialogovém okně Vybrat složku vyberte konkrétní složku, jejíž prázdné podsložky hromadně smažete, a klikněte na OK knoflík. Viz screenshot:

5. Nyní vychází dialogové okno Kutools pro Outlook a ukazuje, kolik prázdných podsložek bylo odstraněno. Klikněte na ikonu OK pro jeho zavření.

Až dosud byly všechny podsložky zadané složky aplikace Outlook již hromadně odstraněny.


šipka modrá pravá bublinaSouvisející články

Najděte složku (úplnou cestu ke složce) podle názvu složky v aplikaci Outlook


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (10)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Brilantní!!!
Tento komentář byl moderátorem webu minimalizován
Při spuštění výše uvedené chyby se mi zobrazuje následující chyba „Chyba běhu '-2147352567 (80020009)“ Tuto složku nelze smazat. Klikněte pravým tlačítkem na složku a poté kliknutím na vlastnosti zkontrolujte oprávnění pro složku. Podívejte se na vlastníka složky nebo váš administrátor, aby změnil vaše oprávnění“

Zdá se, že skript přesune 1 položku do odstraněné složky a poté dojde k chybě.
Tento komentář byl moderátorem webu minimalizován
Souhlasím - dostávám stejnou chybu.
Tento komentář byl moderátorem webu minimalizován
Skript se pokusí odstranit složku, která již byla odstraněna.
Přidal jsem řádek po xFlag = False s tímto obsahem:
při chybě pokračovat dále
Tento komentář byl moderátorem webu minimalizován
Opravdu, přidejte:

On Error Resume Next

PO:

Dim x Fldr As Folder 'Deklarovat objekty podsložky
xFlag = False

Mělo by vypadat takto:

Dim x Fldr As Folder 'Deklarovat objekty podsložky
xFlag = False
On Error Resume Next
Tento komentář byl moderátorem webu minimalizován
Dostávám stejnou chybu jako Bryan... a teď?
Tento komentář byl moderátorem webu minimalizován
Skript se pokusí odstranit složku, která již byla odstraněna.
Přidal jsem řádek po xFlag = False s tímto obsahem:
při chybě pokračovat dále
Tento komentář byl moderátorem webu minimalizován
Super snadné a neuvěřitelně užitečné. Děkuji!!
Tento komentář byl moderátorem webu minimalizován
Bylo smazáno 74 prázdných složek, ale bohužel také 109 složek, které nebyly. Ostatní prázdné složky zůstaly nedotčeny.
Tento komentář byl moderátorem webu minimalizován
Tohle mi fungovalo skvěle. Děkuji. Některé složky nelze odstranit, protože jsou nativní pro Outlook, ale podsložky fungují skvěle.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL