Outlook’ta belirtilen e-posta hesabının altında ya da tüm posta kutularında kaç adet klasör olduğunu nasıl sayabilirim?
Bu makale, Outlook’ta belirtilen e-posta hesabının altında yer alan ya da tüm posta kutularında bulunan klasörlerin nasıl sayılacağını açıklar.
Belirtilen e-posta hesabının altında veya tüm posta kutularındaki klasör sayısını VBA koduyla sayma
"Belirtilen e-posta hesabının altında veya tüm posta kutularındaki klasör sayısını VBA koduyla sayma"
Belirtilen e-posta hesabının altında veya tüm posta kutularındaki klasör sayısını saymak için aşağıdaki VBA kodunu kullanabilirsiniz. Lütfen aşağıdaki adımları izleyin.
1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.
2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "Kullanıcı Formu" seçeneğine tıklayın. Ekran görüntüsüne göz atın:
3. Ardından "UserForm1" içine iki adet "Seçenek Düğmesi" ve iki adet "Komut Düğmesi" ekleyin; ardından düğmelerin Görüntü Metni'ni aşağıdaki ekran görüntüsünde gösterildiği gibi güncelleyin.
4. İlk seçenek düğmesinin adını "opbCurAccount" olarak değiştirin ve "value" özelliğini "True" yapın. Ekran görüntüsüne göz atın:
5. İkinci seçenek düğmesinin adını "opbAllAccounts" olarak değiştirmeye devam edin. Ardından iki komut düğmesine sırasıyla "cdbOk" ve "cdbCancel" adlarını verin.
6. UserForm1'in boş bir alanına çift tıklayın ve ardından UserForm1 (Kod) penceresindeki orijinal kodu aşağıdaki VBA koduyla değiştirin.
VBA kodu: Outlook'ta klasör sayısını sayma
Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
Dim xSubFolders As Folders
Dim xCurFolder As Outlook.Folder
Dim xFoldersCount As Integer
On Error Resume Next
Set xSubFolders = ParentFolder.Folders
If xSubFolders.Count > 0 Then
Set xCurFolder = xSubFolders.GetFirst
While TypeName(xCurFolder) = "MAPIFolder"
xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
Set xCurFolder = xSubFolders.GetNext
Wend
GetSubFolderCount = xFoldersCount + xSubFolders.Count
Else
GetSubFolderCount = 0
End If
End Function
Sub CountFoldersInOutlook()
Dim xNameSpace As NameSpace
Dim xFolder As Folder
Dim xAllFoldersCount As Long
On Error Resume Next
UserForm1.Show
If UserForm1.xRet Then
Set xNameSpace = Outlook.Application.Session
If UserForm1.opbCurAccount.Value Then
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
xAllFoldersCount = GetSubFolderCount(xFolder)
ElseIf UserForm1.opbAllAccounts.Value Then
For Each xFolder In xNameSpace.Folders
xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
Next
End If
Else
Exit Sub
End If
MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub8. Kodu çalıştırmak için "F5" tuşuna basın. Ardından "UserForm1" iletişim kutusu açılacaktır. Geçerli hesaptaki klasör sayısını saymak için lütfen "Geçerli Hesap" seçeneğini işaretleyip "Tamam" düğmesine tıklayın. Tüm posta kutularındaki klasör sayısını saymak istiyorsanız "Tüm Hesaplar" seçeneğini seçtikten sonra "Tamam" düğmesine tıklayın. Ekran görüntüsüne bakın:
9. Ardından aşağıdaki ekran görüntüsünde gösterildiği gibi, geçerli hesapta veya tüm posta kutularında kaç klasör bulunduğunu gösteren bir “Kutools for Outlook” iletişim kutusu açılır. Lütfen “Tamam” düğmesine tıklayın.
Not: Konuşma Eylemi Ayarları ve Hızlı Adım Ayarları klasörleri gibi tüm gizli klasörler, klasör sayımına dahil edilir.
Outlook’ta Yapay Zekâlı E-posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)
Kutools for Outlook’tan Yapay Zekâlı E-posta Asistanı ile günlük Outlook görevlerinizi hızlandırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip geliştirir.
Bu özellik şunları destekler:
- Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak, size özel, net ve hemen kullanıma hazır yanıtlar alın.
- Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak iyileştirin.
- Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini Yazı Stili’ndeki yapay zeka halledsin.
- Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
- Özetleme: Uzun e-postaların anında kısa özetlerini alın.
- Küresel Erişim: E-postalarınızı kolayca herhangi bir dile çevirin.
Bu özellik şunları destekler:
- Akıllı e-posta yanıtları
- İyileştirilmiş içerik
- Anahtar kelimeye dayalı taslaklar
- Akıllı içerik uzantısı
- E-posta özetleme
- Çok dilli çeviri
Beklemeyin—Yapay Zekâlı E-posta Asistanı’nı şimdi indirin ve!
İlgili makaleler:
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve verimlilikten önce hiç yaşamadığınız gibi yararlanın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— ayrı eklentileri satın almaya göre tasarruf edin