Cara Cepat Mendapatkan Jumlah Total Email dari Pengirim Tertentu di Outlook

Terkadang, Anda mungkin ingin menghitung jumlah total email dari pengirim tertentu di Outlook. Artikel ini akan memperkenalkan cara praktis untuk mendapatkan jumlah total dengan cepat menggunakan Outlook VBA.

Untuk beberapa alasan, seperti statistik data, Anda mungkin diminta untuk menghitung jumlah total email dari pengirim tertentu. Tanpa ragu, jika Anda memiliki banyak email, menghitungnya secara manual satu per satu akan merepotkan dan rawan kesalahan. Dalam kasus ini, mengapa tidak terulang kembali ke VBA? Berikut adalah operasi rinci dan kode VBA sesuai.

Dapatkan Jumlah Total Email dari Pengirim Tertentu di Folder Tertentu

1. Pada awalnya, start Outlook dan geser ke tab "Pengembang".
2. Kemudian klik tombol "Visual Basic" di bawah tab ini.
3. Selanjutnya di jendela popup "Microsoft Visual Basic for Applications", Anda dapat membuka modul yang tidak digunakan lalu menyalin kode VBA berikut ke dalamnya.

Sub CountEmailsfromSpecificSenderinCurrentFolder()
    Dim objSelection As Selection
    Dim objSelectedMail As MailItem
    Dim strSenderEmailAddress As String
    Dim objCurrentFolder As Folder
    Dim objItem As Object
    Dim objVariant As Variant
    Dim i As Long
    Dim strPrompt As String
    Dim nResponse As Integer
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    i = 0

    If TypeOf objSelection.Item(1) Is MailItem Then
 
       Set objSelectedMail = objSelection.Item(1)
       strSenderEmailAddress = objSelectedMail.SenderEmailAddress
       Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
       For Each objItem In objCurrentFolder.Items
           Set objVariant = objItem
           If (objVariant.Class = olMail) And (objVariant.SenderEmailAddress = strSenderEmailAddress) Then
              i = i + 1
           End If
       Next
    End If
 
    strPrompt = "There are " & i & " emails from " & objSelectedMail.SenderName & " in the current " & objCurrentFolder.Name & " folder."
    nResponse = MsgBox(strPrompt, vbOKOnly + vbInformation, "Count Emails from Specific Sender")
End Sub

4. Selanjutnya, tutup jendela saat ini untuk kembali ke layar utama Outlook.
5. Setelah itu, Anda dapat melanjutkan untuk menambahkan makro baru ke Bilah Alat Akses Cepat.

• Pertama, klik panah bawah di Quick Access Toolbar dan pilih "More Commands".
• Dan lalu tambahkan makro ke Bilah Alat Akses Cepat dengan mengikuti langkah-langkah secara berurutan yang diperlihatkan pada gambar berikut.

6. Akhirnya Anda dapat mencoba tombol ini.

• Pertama, buka folder tertentu dan pilih email dari pengirim tertentu.
• Kemudian klik tombol di Bilah Alat Akses Cepat.
• Terakhir, Anda akan menerima pesan, yang memberi tahu Anda nomor email dari pengirim tertentu di folder saat ini.

Lintasi Semua Subfolder Secara Rekursif

Bagian di atas hanya memperkenalkan Anda cara mendapatkan jumlah total semua item email dari pengirim tertentu dalam satu folder email. Jika Anda memiliki banyak subfolder di bawah Kotak Masuk dan Anda juga ingin menyertakan email yang diterima di subfolder, Anda perlu menghitung semua subfolder ini secara rekursif. Dalam kasus ini, Anda dapat merujuk ke artikel lain di blog kami - “Cara Melintasi Pohon Folder secara Rekursif di Outlook melalui VBA".

Jangan Percaya pada Alat Perbaikan Outlook yang Tidak Dapat Diandalkan

Karena fakta bahwa Outlook rawan kesalahan, banyak pengguna yang terbiasa menyimpan file Alat perbaikan kesalahan Outlook berguna. Tetapi di pasar saat ini, ada terlalu banyak alat yang tidak dapat diandalkan. Jadi, Anda harus tetap berhati-hati saat memilih salah satu. Setelah Anda mencoba memperbaiki kesalahan melalui alat yang tidak dapat diandalkan, ada kemungkinan besar hal itu akan mengarah pada situasi yang lebih buruk.

Pengantar Penulis:

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