Outlook'ta e-postaları kategoriye göre nasıl sayılır?

Anında Arama özelliğiyle Outlook'ta e-postaları kategoriye göre sayma

VBA ile Outlook'ta e-postaları kategoriye göre sayma

Bu yöntem, Anında Arama özelliğini kullanarak belirtilen renk kategorisiyle işaretlenmiş tüm e-postaları bulmanızı sağlayacak ve ardından tüm arama sonuçlarının toplamını Durum çubuğunda kolayca görebilirsiniz.

1. Posta görünümünde, Arama Araçlarını etkinleştirmek için Ctrl + E tuşlarına aynı anda basın.

2. Ara > Kategorize tıklayın ve ardından e-postaları saymak istediğiniz belirli renk kategorisini seçin.

3. Artık belirtilen renk kategorisiyle işaretlenmiş tüm e-postalar bulunmuş ve e-posta listesinde gösteriliyor. Tüm arama sonuçlarının toplamını durum çubuğundan kolayca görebilirsiniz. Ekran görüntüsüne bakın:

Notlar:

(1) Sarı kategori ve Turuncu kategori ile işaretlenmiş e-postaları aynı anda saymak için lütfen arama kriteri olarak category:="Sarı Kategori" AND "Turuncu Kategori" ifadesini doğrudan Anında Arama kutusuna yazın:

(2) Sarı kategori veya Turuncu kategori ile işaretlenmiş e-postaları aynı anda saymak için lütfen arama kriteri olarak category:="Sarı Kategori" OR "Turuncu Kategori" ifadesini doğrudan Anında Arama kutusuna yazın.

Bu yöntem, Outlook'ta özel bir tarih aralığındaki e-postaları kategoriye göre saymak için bir VBA tanıtacaktır. Lütfen şu adımları izleyin:

1. Posta görünümünde, e-postaları saymak istediğiniz e-posta klasörünü seçin.

2. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

3. Ekle > Modül'e tıklayın ve ardından aşağıdaki VBA kodunu yeni açılan Modül penceresine yapıştırın:

VBA: Outlook'ta e-postaları kategoriye göre sayma

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Bu VBA'yi çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

5. (1) İlk açılan Microsoft Outlook iletişim kutusunda, e-postaları saymak istediğiniz özel tarih aralığının başlangıç tarihini yazın ve Tamam düğmesine tıklayın. (2) İkinci Microsoft Outlook iletişim kutusunda, bitiş tarihini yazın ve Tamam düğmesine tıklayın. Ekran görüntüleri:

Ve şimdi, renk kategorileriyle işaretlenmiş e-postaların sayılarını gösteren bir iletişim kutusu çıkıyor. Ekran görüntüsüne bakın:

Outlook'ta arama sonuçlarının toplam sayısını sayma

Outlook'ta bir randevu veya toplantıda harcanan saat/gün/hafta sayısını sayma

Outlook'ta konuya göre e-posta sayısını sayma

Outlook'ta gelen e-postaların günlük toplam sayısını sayma

Outlook'ta seçilen e-postaların toplam sayısını sayma