Jika anda ingin cepat mendapatkan kiraan lampiran dalam setiap e-mel dalam senarai e-mel, anda boleh menggunakan kod VBA dalam artikel ini. Ia akan mengira lampiran secara automatik dalam setiap e-mel masuk dan memaparkan kiraan dalam lajur baharu.
Sesetengah pengguna kerap perlu mengira lampiran e-mel. Dalam senario ini, mengapa tidak membuat dan mendayakan lajur eksklusif untuk memaparkan kiraan lampiran? Dalam perkara berikut, kami akan mengajar anda cara membuat Outlook mengira lampiran e-mel secara automatik dan menunjukkan kiraan dalam lajur baharu sedemikian.
Paparkan Kiraan Lampiran dalam Senarai E-mel
- Sebagai permulaan, lancarkan aplikasi Outlook anda.
- Kemudian tekan butang kekunci "Alt + F11" di tetingkap Outlook utama.
- Seterusnya dalam tetingkap editor Outlook VBA baharu, anda perlu membuka modul yang tidak digunakan.
- Selepas itu, salin dan tampal kod 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
- Selepas itu, anda boleh keluar dari tetingkap "Microsoft Visual Basic for Applications" semasa.
- Kemudian anda perlu membuat peraturan baharu untuk menjalankan skrip ini pada setiap e-mel masuk.
- Pertama, pergi ke menu "Fail" dan klik pada butang "Urus Peraturan & Makluman" di bawah tab "Maklumat".
- Kemudian dalam kotak dialog baharu, tekan butang "Peraturan Baharu".
- Dalam skrin "Wizard Peraturan" berikutnya, pilih "Gunakan peraturan pada mesej yang saya terima" dan tekan "Seterusnya".
- Seterusnya abaikan "Pilih syarat" dan klik "Seterusnya".
- Kemudian pilih tindakan "jalankan skrip" dan pilih makro yang ditambahkan sebelum ini, seperti tangkapan skrin berikut.
- Selepas itu, klik beberapa "Seterusnya" sehingga mencapai skrin akhir "Selesaikan peraturan peraturan".
- Kemudian, anda perlu menentukan nama baharu untuk peraturan ini dan dayakan pilihan "Jalankan peraturan ini pada mesej yang sudah ada dalam Peti Masuk" dan 'Hidupkan peraturan ini".
- Akhir sekali, klik pada butang "Selesai".
- Selepas itu, anda perlu menambah lajur "Kiraan Lampiran" yang dibuat oleh kod VBA. Hanya ambil langkah berikut di bawah:
- Mula-mula, pergi ke tab "Lihat" dalam skrin senarai e-mel.
- Kemudian klik pada butang "Lihat Tetapan".
- Dalam kotak dialog yang baru timbul, tekan butang "Lajur".
- Kemudian dalam tetingkap "Tunjukkan Lajur", cari dan pilih lajur "Kiraan Lampiran" di bawah "Lajur yang ditentukan pengguna dalam Peti Masuk" dan tekan butang "Tambah".
- Akhir sekali klik butang "OK" untuk menyimpan perubahan.
- Akhirnya, anda boleh melihat lajur "Kiraan Lampiran" dalam senarai e-mel, yang memaparkan kiraan lampiran untuk setiap e-mel, ditunjukkan seperti imej di bawah:
Elakkan Kehilangan Data PST yang Mengecewakan
Adalah dipercayai bahawa tiada siapa yang sanggup menerima kehilangan data PST. Perkara yang sama mesti berlaku untuk anda. Oleh itu, anda perlu membuat beberapa langkah berjaga-jaga, seperti membuat sandaran data fail PST anda dan mendapatkan alat pembaikan yang bereputasi seperti DataNumen Outlook Repair. Ia boleh baiki Outlook masalah tanpa berpeluh.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com