2 Metode untuk Menghitung Email dengan Cepat oleh Pengirim di Outlook Anda

Jika Anda ingin menghitung email berdasarkan pengirim, Anda dapat merujuk ke artikel ini. Di sini kami akan memaparkan 2 pendekatan cepat untuk Anda.

Untuk mengetahui most pengirim aktif untuk Anda, Anda mungkin ingin menghitung email oleh pengirim. Meskipun Outlook tidak menyediakan fitur langsung untuk ini, Anda masih dapat mencari beberapa solusi, seperti Metode 1 berikut. Jika menurut Anda Metode 1 terlalu membosankan, Anda dapat memilih Metode 2. Ini jauh lebih efektif dalam yang menggunakan VBA untuk menghitung email dengan cepat oleh pengirim dan mengekspor hitungan ke Excel. Sekarang baca dua cara secara rinci. Di sini kita akan mengambil email di Inbox sebagai contoh.

Metode 1: Dapatkan Hitungan setelah Mengelompokkan Item berdasarkan Bidang “Dari”

1. Untuk memulai, luncurkan aplikasi Outlook.
2. Kemudian, buka folder kotak masuk.
3. Selanjutnya, beralih ke tab "Lihat".
4. Selanjutnya, pilih "Dari" di grup "Pengaturan".
5. Sekaligus, semua item kotak masuk telah dipisahkan ke dalam grup yang berbeda sesuai dengan pengirim yang berbeda.
6. Sekarang, untuk menghitung item dari pengirim tertentu, Anda dapat memilih semua item dalam grup terkait dan tekan tombol "Enter". Dalam peringatan popup, Anda dapat melihat hitungan.

Ini berarti cukup mudah, tetapi jumlah item sebenarnya mencakup jenis item lain, seperti undangan rapat, permintaan tugas, dan tanda terima, tidak hanya jumlah email. Jadi, jika Anda hanya ingin menghitung email, Anda dapat menggunakan cara berikut.

Metode 2: Hitung Email oleh Pengirim dengan Outlook VBA

1. Untuk sebagaitart, tekan tombol tombol "Alt + F11" di Outlook.
2. Kemudian, aktifkan "MS Excel Object Library "menurut"Cara Menambahkan Object Library Referensi di VBA".
3. Selanjutnya, salin kode di bawah ini ke modul yang tidak digunakan.

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. Setelah itu tekan tombol “F5”.
4. Ketika makro selesai, file Excel baru akan ditampilkan.
5. Seperti yang Anda lihat, ini berisi jumlah email kotak masuk dari pengirim yang berbeda.

Buang Masalah Outlook yang Membuat Frustasi

Mungkin Anda pernah mengalami banyak masalah di Outlook Anda. Untuk mengatasinya secara efektif, Anda mungkin merindukan cara yang serbaguna dan kuat. Namun, pada kenyataannya, tidak ada metode seperti itu. Yang dapat Anda lakukan adalah mewaspadai operasi Anda sendiri di Outlook dan membuat cadangan rutin. Tentu saja, jika memungkinkan, sebaiknya Anda menyimpan alat perbaikan yang berpengalaman, seperti DataNumen Outlook Repair. Itu dapat memperbaiki berbagai masalah dan perbaikan PST PST korup mengajukan seperti angin sepoi-sepoi.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan Sql Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com