Outlook'ta işaretlenmiş mesajların sayısını nasıl sayabilirsiniz?
Outlook'ta, mesajları, kişileri veya görevleri öne çıkarmak için işaretleyebilirsiniz, ancak bazen Outlook'unuzda işaretlenmiş öğelerin sayısını bilmek isteyebilirsiniz. Bu görevi Outlook'ta nasıl çözebilirsiniz?
Arama Klasörleri ile tek bir hesaptaki işaretlenmiş mesajların sayısını sayma
VBA kodu ile tüm hesaplardaki işaretlenmiş mesajları / kişileri / görevleri ayrı ayrı sayma
a name="a1"> Arama Klasörleri ile tek bir hesaptaki işaretlenmiş mesajların sayısını sayma
Outlook hesabındaki işaretlenmiş e-postaların sayısını saymak için, Arama Klasörleri özelliği size yardımcı olabilir, lütfen şu adımları izleyin:
1. E-posta hesabınız altındaki Arama Klasörlerine sağ tıklayın ve ardından Yeni Arama Klasörü seçeneğini tıklayın, aşağıdaki ekran görüntüsüne bakın:
2. Ardından bir Yeni Arama Klasörü iletişim kutusu açılacak, Okuma Postası bölümünde Takip Gerektiren İşaretli Postalar seçeneğini tıklayın, aşağıdaki ekran görüntüsüne bakın:
3. Ardından Tamam'a tıklayın ve tüm işaretlenmiş mesajlar Takip İçin klasörüne kopyalanır ve işaretlenmiş e-postaların toplam sayısı aşağıdaki ekran görüntüsünde gösterildiği gibi görüntülenir:
a name="a2"> VBA kodu ile tüm hesaplardaki işaretlenmiş mesajları / kişileri / görevleri ayrı ayrı sayma
Eğer Outlook'daki tüm işaretlenmiş öğelerin sayısını, yani e-postalar, kişiler ve görevleri ayrı ayrı saymak istiyorsanız, aşağıdaki VBA kodu size yardımcı olacaktır.
1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
2. Ardından, Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, aşağıdaki ekran görüntüsüne bakın:
VBA kodu: Outlook'ta işaretlenmiş öğelerin sayısını sayma:
Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
For Each xFolder In xStore.GetRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
Set xItem = CurFolder.Items.item(i)
Select Case xItem.Class
Case olMail, olPost, olSharing
If xItem.IsMarkedAsTask = True Then
GMailCount = GMailCount + 1
End If
Case olContact, olDistList
If xItem.IsMarkedAsTask = True Then
GContactCount = GContactCount + 1
End If
Case olTask
If CurFolder.DefaultItemType = olTaskItem Then
GTaskCount = GTaskCount + 1
End If
End Select
Next i
If CurFolder.Folders.Count > 0 Then
For k = CurFolder.Folders.Count To 1 Step -1
Set xSubfolder = CurFolder.Folders.item(k)
Call ProcessFolders(xSubfolder)
Next k
End If
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve tüm işaretlenmiş öğelerin toplam sayısını söyleyen bir uyarı kutusu aşağıdaki ekran görüntüsünde gösterildiği gibi açılacaktır:
Bugün, dün, okunmuş, okunmamış, toplam öğe sayısını... Outlook'ta sayma Kutools for Outlook'un güçlü İstatistikler özelliği ile, ihtiyacınıza göre tarihe, seçilen öğelere, okunmuş, okunmamış vb. göre öğe sayısını alabilirsiniz.  Kutools for Outlook: 70'den fazla kullanışlı ve ücretsiz Outlook eklentisiyle, ücretsiz sürümü hemen indirin. |
En İyi Ofis Verimlilik Araçları
Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!
Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle ...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı (Phishing) E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçili E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır ...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla dil desteği!
