Outlook'ta belirli bir klasörün altındaki alt klasörlerin sayısını nasıl hesaplayabilirim?
Bir kök klasör altında bazı klasörler oluşturduğunuzu varsayarsak. Şimdi kök klasörün altında kaç tane alt klasör olduğunu bilmek istiyorsunuz, nasıl yapabilirsiniz? Sadece kök klasörü genişletip tüm alt klasörleri tek tek manuel olarak mı saymak istiyorsunuz? Bu makale, bunu başarmanız için kolay bir yöntem sunacaktır.
VBA kodu ile alt klasör sayısını sayın
VBA kodu ile alt klasör sayısını sayın
Aşağıdaki VBA kodu, Outlook'ta belirli bir kök klasörün altındaki alt klasörlerin sayısını saymanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Outlook'ta belirli klasörlerin altındaki alt klasör sayısını sayın
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
4. Açılışta Klasör Seç iletişim kutusunda, alt klasörlerini sayacağınız bir klasör seçin ve ardından OK buton. Ekran görüntüsüne bakın:
5. Sonra a Outlook için Kutools iletişim kutusu, belirtilen klasörde kaç tane alt klasörün bulunduğunu size bildirmek için açılır. Ekran görüntüsüne bakın:
İlgili yazılar:
- Outlook'ta belirtilen e-posta hesabı veya tüm posta kutuları altındaki klasör sayısını nasıl hesaplayabilirim?
- Outlook'ta tüm e-postaları birlikte görüntülemek için birden çok hesabın tüm gelen kutularını nasıl birleştirebilirim?
- Outlook'ta bir klasör seçmek için "Klasöre Göz At" iletişim kutusu nasıl görüntülenir?
- Outlook'ta yanlışlıkla taşınan eksik bir klasör nasıl bulunur?
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.