Outlook'unuzdaki Tüm Boş Alt Klasörleri Toplu Silme

Outlook'unuzdaki tüm boş alt klasörleri toplu olarak silmek istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz. Alt klasörleri toplu olarak silmek için Outlook VBA'yı nasıl kullanacağınızı öğretecektir.

Outlook e-postalarınızı daha iyi sınıflandırmak ve yönetmek için, Gelen Kutusu, Gönderilenler veya Taslaklar klasörü gibi varsayılan klasörlerin altına birçok özel alt klasör oluşturmuş olmalısınız. Ancak bazen, bazı alt klasörlerin sık kullanılmadığını fark edebilirsiniz. Bu nedenle, çoğu zaman içlerinde hiçbir öğe bulunmaz ve boş kalırlar. Bu durumda, tüm boş alt klasörleri silmek isteyebilirsiniz.

Genel olarak, böyle bir alt klasöre sağ tıklayıp ardından sağ tıklama menüsünden “Klasörü Sil” seçeneğini seçebilirsiniz. Yine de çok sayıda boş alt klasör varsa tek tek silmek oldukça zahmetli olacaktır. Bu nedenle, hepsini toplu olarak silmek için bir ipucu için özlem duymalısınız. Outlook böyle bir özellik sağlamasa da, hızlı bir şekilde gerçekleştirmek için VBA kodunu kullanabilirsiniz. Aşağıda, size ayrıntılı adımları ve kodları göstereceğiz.

Toplu Tüm Boş Alt Klasörleri Sil

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, ana Outlook penceresindeki “Alt + F11” tuş düğmelerine basın.
3. Sonraki "Microsoft Visual Basic for Applications" penceresinde, kullanılmayan bir modülü açın.
4. Ardından, aşağıdaki VBA kodlarını kopyalayıp bu modüle yapıştırın.

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each 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 ("Completed!")
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
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

5. Bundan sonra, Outlook makro güvenlik düzeyinizi düşük olarak değiştirin.
6. Sonuç olarak, mevcut makro penceresinde “F5” tuşuna basarak bu makroyu çalıştırabilirsiniz.
7. Hemen, tüm boş alt klasörlerin silineceğini keşfedeceksiniz.

Bozuk Outlook PST Verilerini Alın

Outlook'un hataya ve hasara açık olması nedeniyle, Outlook PST dosyanızı korumaya dikkat etmelisiniz. Örneğin, PST verilerinizi periyodik olarak yedeklemelisiniz. Ayrıca, Outlook'u onar gibi saygın ve güçlü bir düzeltme aracı hazırlamanız gerekir. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server rüşvet ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com