Cara Cepat Mendapatkan Jumlah Total Lampiran di Email Outlook yang Dipilih

Pernahkah Anda diminta untuk menghitung jumlah lampiran email di email yang dipilih? Akan membosankan jika Anda menghitungnya secara manual. Di sini kami akan membantu Anda membuat penghitungan lebih mudah dan lebih cepat dengan Outlook VBA.

Karena beberapa alasan, Anda mungkin perlu menghitung jumlah lampiran dalam email Outlook. Jika Anda hanya ingin mendapatkan jumlah lampiran dalam satu email, itu akan sangat mudah. ​​Tetapi jika Anda ingin menghitung lampiran dalam beberapa email, akan sangat merepotkan untuk menghitungnya secara manual. Secara umum, salah satu cara yang paling umum adalah menyimpan semua lampiran ke folder lokal di komputer Anda. Kemudian pilih lampiran tersebut, dan Windows Explorer akan memberi tahu Anda jumlah item yang dipilih di bilah status.

Namun, tidak dapat disangkal bahwa metode ini masih cukup merepotkan. Sebenarnya, melalui Outlook VBA, Anda bisa dengan cepat mendapatkan jumlah total lampiran di email Outlook yang dipilih. Baca terus untuk mempelajari kode dan langkah VBA terperinci.

Dapatkan Jumlah Total Lampiran dengan Cepat di Email yang Dipilih

1. Pada awalnya, luncurkan aplikasi Outlook dan buka tab "Pengembang".
2. Kemudian Anda dapat mengklik tombol "Visual Basic". Ini akan membawa Anda ke jendela "Microsoft Visual Basic for Applications".
3. Selanjutnya Anda harus membuka modul baru yang tidak digunakan. Pilih “Sisipkan” > “Modul”.
4. Setelah itu, Anda harus menyalin dan menempelkan kode VBA berikut ke dalamnya.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

5. Selanjutnya, Anda dapat keluar dari jendela “Visual Basic” dan kembali ke jendela utama Outlook. Kemudian Anda harus menemukan dan menekan panah bawah di Bilah Alat Akses Cepat dan pilih "Perintah Lainnya" dari daftar turun bawah.
6. Kemudian ikuti langkah-langkah yang ditunjukkan pada gambar di bawah ini.
7. Akhirnya Anda bisa mencobanya.

• Setelah memilih beberapa email, Anda dapat menekan tombol baru di Bilah Alat Akses Cepat. Selanjutnya, Anda akan mendapatkan pesan yang memberi tahu Anda jumlah lampiran di email yang dipilih. Tampilannya seperti gambar berikut:
• Tetapi jika Anda memilih item yang memenuhi permintaan atau tanggapan, bukan email, Anda akan mendapatkan peringatan, seperti gambar di bawah ini:

Bereaksi terhadap Masalah Outlook Sesekali

Jika Anda telah menggunakan Outlook selama beberapa dekade, Anda pasti mengalami beberapa masalah, termasuk Outlook tidak merespons, Outlook membeku, pesan kesalahan yang sering muncul, dan Kerusakan email Outlook PST dan seterusnya. Apakah Anda sudah menguasai trik apa pun untuk mengatasinya? Secara umum, Anda dapat memulai Outlook dalam mode aman, membuat profil Outlook baru, memperbaiki Office dan menonaktifkan add-in pihak ketiga, dll. Selain itu, Anda juga harus menyimpan alat perbaikan yang ampuh, seperti DataNumen Outlook Repair. Ini akan berguna ketika pencadangan dan alat perbaikan kotak masuk gagal.

Pengantar Penulis:

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