Outlook’ta e-postaları kategoriye göre nasıl sayabilirim?

Outlook'ta Anlık Arama özelliğini kullanarak e-postaları kategoriye göre sayın

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

Bu yöntem, belirtilen Renk Kategorisi ile işaretlenmiş tüm e-postaları Anlık Arama özelliğini kullanarak bulmanıza ve ardından tüm arama sonuçlarının toplam sayısını kolayca Durum Çubuğu’ndan almanıza yardımcı olur.

1. Posta görünümünde, Ctrl + E tuşlarına aynı anda basarak Arama Araçları'nı etkinleştirin.

2. Arama > Kategorilere Göre seçeneğine tıklayın ve ardından e-postaları saymak için belirli bir renk kategorisi seçin.

3. Belirtilen renk kategorisiyle işaretlenmiş tüm e-postalar artık bulunmuş ve E-posta Listesi’nde görüntülenmektedir. Tüm arama sonuçlarının toplam sayısını Durum Çubuğu’ndan kolayca görebilirsiniz. Ekran görüntüsüne göz atın:

Notlar:

(1) Sarı kategoriyle ve Turuncu kategoriyle işaretlenmiş e-postaları veaynı anda saymak için lütfen arama kutusuna doğrudan şu kriteri yazın: category:="Yellow Category" AND "Orange Category"Anlık Aramakutusuna:

(2) Sarı Kategori veya Turuncu Kategori ile işaretlenmiş e-postaları aynı anda saymak için lütfen Anlık Arama kutusuna doğrudan şu kriteri yazın: category:="Yellow Category" OR "Orange Category"

Bu yöntem, Outlook'ta özel bir Tarih Aralığı içinde e-postaları kategoriye göre saymak için bir VBA kodu tanıtacaktır. Lütfen aşağıdaki adımları izleyin:

1. Posta görünümünde, e-postalarını sayacağınız klasörü seçin.

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

3. Ekle>Modülseçeneğine tıklayın ve ardından aşağıda verilen 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. F5 tuşuna basın veya Çalıştır düğmesine tıklayarak bu VBA kodunu çalıştırın.

5. (1) İlk açılan Microsoft Outlook iletişim kutusuna, e-postalarınızı saymak istediğiniz özel Tarih Aralığı’nın Başlangıç Tarihi’ni girin ve Tamam düğmesine tıklayın. (2) İkinci Microsoft Outlook iletişim kutusuna Bitiş Tarihi’ni girin ve Tamam düğmesine tıklayın. Ekran görüntülerine bakın:

Şimdi bir iletişim kutusu açılır ve Renk Kategorisi ile işaretlenmiş E-posta Sayısı'ni görüntüler. Ekran görüntüsüne bakın:

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

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

Outlook'ta konuya göre E-posta Sayısı'yi sayın

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

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