Outlook'unuzdaki Gönderene Göre E-postaları Hızla Saymanın 2 Yöntemi

E-postaları gönderene göre saymak isterseniz bu makaleye başvurabilirsiniz. Burada size 2 hızlı yaklaşımı göstereceğiz.

En aktif göndericiyi bulmak için, göndericiye göre e-postaları saymak isteyebilirsiniz. Outlook'ta bunun için doğrudan bir özellik olmasa da, aşağıdaki 1. Yöntem gibi bazı alternatif çözümler bulabilirsiniz. 1. Yöntemin çok zahmetli olduğunu düşünüyorsanız, 2. Yöntemi tercih edebilirsiniz. Bu yöntem, VBA kullanarak göndericiye göre e-postaları hızlıca sayıp sayımları Excel'e aktardığı için çok daha etkilidir. Şimdi iki yöntemi ayrıntılı olarak inceleyelim. Burada örnek olarak Gelen Kutusu'ndaki e-postaları ele alacağız.

Yöntem 1: Öğeleri "Kimden" Alanına Göre Gruplandırdıktan Sonra Sayımları Alın

1. Başlamak için Outlook uygulamasını başlatın.
2. Ardından, gelen kutusu klasörünü açın.
3. Ardından, "Görünüm" sekmesine geçin.
4. Ardından, "Düzenleme" grubunda "Kimden" i seçin.
5. Aynı anda, tüm gelen kutusu öğeleri, farklı gönderenlere göre farklı gruplara ayrılmıştır.
6. Artık belirli bir göndericiden gelen öğeleri saymak için ilgili gruptaki tüm öğeleri seçip “Enter” tuşuna basabilirsiniz. Açılır uyarıda, sayımı görebilirsiniz.

Bu oldukça kolaydır, ancak öğe sayıları aslında yalnızca e-posta sayılarını değil, toplantı davetleri, görev istekleri ve alındılar gibi diğer öğe türlerini de içerir. Bu nedenle, yalnızca e-postaları saymak istiyorsanız, bunun yerine aşağıdaki yolu kullanabilirsiniz.

Yöntem 2: Outlook VBA ile Gönderene Göre E-postaları Say

1. Öncelikle Outlook'ta "Alt + F11" tuşlarına basın.
2. Ardından, "MS Excel Nesne Kitaplığı"nı aşağıdaki talimatlara göre etkinleştirin:VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
3. Ardından, aşağıdaki kodu kullanılmayan bir modüle kopyalayın.

Sub CountInboxEmailsbySender()
    Dim objDictionary As Object
    Dim objInbox As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strSender As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varSenders As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    For i = objInbox.Items.Count To 1 Step -1
        If objInbox.Items(i).Class = olMail Then
           Set objMail = objInbox.Items(i)
           strSender = objMail.SenderEmailAddress
 
           If objDictionary.Exists(strSender) Then
              objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
           Else
              objDictionary.Add strSender, 1
           End If
        End If
    Next

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Sender"
         .Cells(1, 2) = "Count"
    End With
 
    varSenders = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varSenders) To UBound(varSenders)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
             .Cells(nLastRow, 1) = varSenders(i)
             .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

3. Bundan sonra, “F5” tuş düğmesine basın.
4. Makro tamamlandığında, yeni bir Excel dosyası görüntülenecektir.
5. Gördüğünüz gibi, farklı gönderenlerden gelen e-postaların sayısını içerir.

Sinir bozucu Outlook Sorunlarından Kurtulun

Belki de Outlook'unuzda birçok soruna maruz kaldınız. Bunları etkili bir şekilde ele almak için, çok yönlü ve güçlü bir yolu özleyebilirsiniz. Ancak gerçekte böyle bir yöntem yoktur. Yapabileceğiniz şey, Outlook'ta kendi işlemlerinize dikkat etmek ve düzenli yedeklemeler yapmaktır. Tabii ki, mümkünse, deneyimli bir düzeltme aracını elinizin altında bulundurmanızı öneririz. DataNumen Outlook Repair. Çeşitli PST sorunlarını çözebilir ve onarabilir bozuk PST esinti gibi dosyalayın.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. kurtarmak Sql Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com