Cara Menampilkan Jumlah Lampiran di Daftar Email dengan Outlook VBA

Jika Anda ingin mendapatkan jumlah lampiran di setiap email dalam daftar email dengan cepat, Anda dapat menggunakan kode VBA di artikel ini. Itu akan otomatis menghitung lampiran di setiap email masuk dan menampilkan hitungan di kolom baru.

Beberapa pengguna seringkali perlu menghitung lampiran email. Dalam skenario ini, mengapa tidak membuat dan mengaktifkan kolom eksklusif untuk menampilkan jumlah lampiran? Berikut ini, kami akan mengajari Anda cara membuat Outlook otomatis menghitung lampiran email dan menampilkan hitungan di kolom baru tersebut.

Tampilkan Jumlah Lampiran dalam Daftar Email

1. Sebagai langkah awal, luncurkan aplikasi Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
3. Selanjutnya di jendela editor Outlook VBA baru, Anda perlu membuka modul yang tidak digunakan.
4. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul ini.

Sub AutoCountAttachments(objMail As Outlook.MailItem)
    Dim objAttachments As Outlook.Attachments
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
 
    Set objAttachments = objMail.Attachments
 
    strPropertyName = "Attachment Count"
    Set objProperties = objMail.UserProperties
 
    'Check if there is already a column in this name
    Set objProperty = objProperties.Find(strPropertyName, True)
    If objProperty Is Nothing Then
       'If not, add this column
       Set objProperty = objProperties.Add(strPropertyName, olText, True)
    End If
 
    'Set the column value equal to the count of attachments
    objProperty.value = objAttachments.Count
    objMail.Save
End Sub

5. Setelah itu, Anda dapat keluar dari jendela "Microsoft Visual Basic for Applications" saat ini.
6. Nantinya Anda perlu membuat aturan baru untuk menjalankan skrip ini di setiap email yang masuk.

• Pertama, buka menu "File" dan klik tombol "Kelola Aturan & Peringatan" di bawah tab "Info".
• Kemudian di kotak dialog baru, tekan tombol "Aturan Baru".
• Di layar "Rule Wizard" berikutnya, pilih "Terapkan aturan pada pesan yang saya terima" dan tekan "Berikutnya".
• Selanjutnya abaikan “Select conditions” dan klik “Next”.
• Kemudian pilih tindakan "jalankan skrip" dan pilih makro yang ditambahkan sebelumnya, seperti tangkapan layar berikut.
• Setelah itu, klik beberapa "Berikutnya" hingga mencapai layar "Selesaikan penyiapan aturan" terakhir.
• Nanti, Anda perlu menentukan nama baru untuk aturan ini, dan aktifkan opsi "Jalankan aturan ini pada pesan yang sudah ada di "Kotak Masuk"" dan 'Aktifkan aturan ini'.
• Terakhir, klik tombol "Selesai".

7. Setelah itu, Anda harus menambahkan kolom "Jumlah Lampiran" yang dibuat oleh kode VBA. Cukup lakukan langkah-langkah berikut di bawah ini:

• Pertama, buka tab “Lihat” di layar daftar email.
• Kemudian klik tombol "Lihat Pengaturan".
• Di kotak dialog yang baru muncul, tekan tombol "Kolom".
• Kemudian di jendela "Tampilkan Kolom", cari dan pilih kolom "Jumlah Lampiran" di bawah "Kolom yang ditentukan pengguna di Kotak Masuk" dan tekan tombol "Tambah".
• Terakhir klik tombol "OK" untuk menyimpan perubahan.

8. Terakhir, Anda dapat melihat kolom “Jumlah Lampiran” di daftar email, yang menampilkan jumlah lampiran untuk setiap email, seperti yang ditunjukkan gambar di bawah ini:

Hindari Frustrasi Kehilangan Data PST

Diyakini bahwa tidak ada yang mau menerima kehilangan data PST. Hal yang sama harus berlaku untuk Anda. Oleh karena itu, Anda harus melakukan beberapa tindakan pencegahan, seperti membuat cadangan data file PST Anda dan mendapatkan alat perbaikan yang memiliki reputasi baik seperti DataNumen Outlook Repair. Hal ini dapat perbaiki Outlook masalah tanpa berkeringat.

Pengantar Penulis:

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