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

Outlook'taki tüm boş klasörleri toplu olarak nasıl silebilirim?

Outlook'ta bir posta klasörünün altında düzinelerce boş klasör olduğunu varsayalım, genellikle menüyü sağ tıklayarak boş klasörleri tek tek silebiliriz. Tekrar tekrar sağ tıklama ile karşılaştırıldığında, bu makale bir Outlook klasörünün tüm boş alt klasörlerini toplu olarak hızlı bir şekilde silmek için bir VBA tanıtacaktır.

Outlook'taki tüm boş klasörleri VBA ile toplu olarak silin

Office Sekmesi - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2021 - 2010 veya Office 365'te. Tam özellikler 60 günlük ücretsiz deneme.

ok mavi sağ balonOutlook'taki tüm boş klasörleri VBA ile toplu olarak silin

Belirli bir Outlook klasörünün tüm boş alt klasörlerini kaldırmak için lütfen aşağıdakileri yapın:

1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modülve yeni modül penceresine VBA kodunun altına yapıştırın.

VBA: Belirli Outlook klasörünün tüm boş alt klasörlerini toplu olarak silin

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. Basın F5 Anahtar veya koşmak Bu VBA kodunu çalıştırmak için düğmeye basın.

4. Açılan Klasör Seç iletişim kutusunda, lütfen boş alt klasörlerini toplu olarak sileceğiniz belirli klasörü seçin ve OK buton. Ekran görüntüsüne bakın:

5. Şimdi bir Kutools for Outlook iletişim kutusu çıkıyor ve kaç tane boş alt klasörün silindiğini gösteriyor. Tıkla OK düğmesine basarak kapatın.

Şimdiye kadar, belirtilen Outlook klasörünün tüm alt klasörleri zaten toplu olarak silindi.


ok mavi sağ balonİlgili Makaleler

Outlook'ta klasör adına göre klasörü (tam klasör yolu) bulun


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (10)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Parlak!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki "Çalışma zamanı hatası '-2147352567 (80020009)' çalıştırıldığında aşağıdaki hatayı alıyorum. Bu klasör silinemiyor. Klasöre sağ tıklayın ve ardından klasör için izinlerinizi kontrol etmek için özelliklere tıklayın. Klasör sahibine bakın veya izinlerinizi değiştirmek için yöneticiniz"

Komut dosyasının 1 öğeyi silinen klasöre taşıdığı ve ardından hataların çıktığı görülüyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Katılıyorum - Aynı hatayı alıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Komut dosyası, önceden silinmiş bir klasörü silmeye çalışır.
Bu içerikle xFlag = False'dan sonra bir satır ekledim:
hata devamında sonraki
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerçekten de şunu ekleyin:

On Error Resume Next

SONRA:

Dim x Fldr As Klasör 'Alt klasör nesnelerini bildir
xFlag = Yanlış

Böyle görünmeli:

Dim x Fldr As Klasör 'Alt klasör nesnelerini bildir
xFlag = Yanlış
On Error Resume Next
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bryan gibi aynı hatayı alıyorum .... ve şimdi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Komut dosyası, önceden silinmiş bir klasörü silmeye çalışır.
Bu içerikle xFlag = False'dan sonra bir satır ekledim:
hata devamında sonraki
Bu yorum sitedeki moderatör tarafından en aza indirildi
Süper kolay ve inanılmaz derecede faydalı. Teşekkür ederim!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
74 boş klasör silindi ama ne yazık ki 109 klasör silinmedi. Diğer boş klasörlere dokunulmadan bırakıldı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim için harika çalıştı. Teşekkür ederim. Bazı klasörler Outlook'ta yerel oldukları için silinemez, ancak alt klasörler harika çalışır.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır