Adakah anda pernah diminta untuk menghitung jumlah lampiran e-mel dalam e-mel terpilih? Akan membosankan jika anda mengira secara manual. Di sini kami akan membantu anda membuat pengiraan lebih mudah dan cepat dengan Outlook VBA.
Atas beberapa sebab, anda mungkin perlu mengira bilangan lampiran dalam e-mel Outlook. Jika anda hanya ingin mendapatkan bilangan lampiran dalam satu e-mel, ia akan menjadi sangat mudah. Tetapi jika anda ingin mengira lampiran dalam beberapa e-mel, ia akan menjadi sangat menyusahkan untuk dikira secara manual. Secara amnya, salah satu cara yang paling biasa adalah dengan menyimpan semua lampiran ke folder setempat pada komputer anda. Kemudian pilihnya, dan Windows Explorer akan memberitahu anda bilangan item yang dipilih dalam bar status.
Namun, tidak dapat dinafikan bahawa kaedah ini masih agak membebankan. Sebenarnya, dengan menggunakan Outlook VBA, anda dapat dengan cepat mendapatkan jumlah lampiran dalam e-mel Outlook yang dipilih. Teruskan membaca untuk mengetahui kod dan langkah VBA terperinci.
Cepat Dapatkan Jumlah Lampiran dalam E-mel Terpilih
- Pada mulanya, lancarkan aplikasi Outlook dan pergi ke tab "Pembangun".
- Kemudian anda boleh klik pada butang "Visual Basic". Ini akan membawa anda ke tetingkap "Microsoft Visual Basic for Applications".
- Seterusnya anda harus membuka modul baru yang tidak digunakan. Pilih "Masukkan"> "Modul".
- Selepas itu, anda harus menyalin dan menampal kod 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
- Selepas itu, anda boleh keluar dari tetingkap "Visual Basic" dan kembali ke tetingkap utama Outlook. Kemudian anda harus mencari dan tekan anak panah ke bawah di Bar Alat Akses Pantas dan pilih "Lebih banyak Perintah" dari daftar turun.
- Kemudian ikuti langkah yang ditunjukkan dalam gambar di bawah.
- Akhirnya anda boleh mencuba.
- Setelah memilih beberapa e-mel, anda boleh menekan butang baru di Bar Alat Akses Pantas. Selepas itu, anda akan mendapat mesej yang memberitahu anda jumlah lampiran dalam e-mel terpilih. Ia seperti gambar berikut:
- Tetapi jika anda memilih item yang memenuhi permintaan atau respons bukan e-mel, anda akan mendapat makluman, seperti gambar di bawah:
Beri reaksi kepada Masalah Outlook Kadang-kadang
Sekiranya anda telah menggunakan Outlook selama beberapa dekad, anda pasti menghadapi banyak masalah, termasuk Outlook tidak bertindak balas, pembekuan Outlook, mesej ralat yang kerap dan Rasuah e-mel Outlook PST dan sebagainya. Adakah anda sudah menguasai sebarang petua untuk mengatasinya? Secara amnya, anda boleh memulakan Outlook dalam mod selamat, mencipta profil Outlook baharu, pejabat pembaikan dan melumpuhkan alat tambah pihak ketiga, dsb. Di samping itu, anda juga harus menyimpan alat pembaikan yang ampuh di sekitar, seperti DataNumen Outlook Repair. Ia akan sangat berguna apabila kedua-dua sandaran dan alat pembaikan peti masuk gagal.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk membaiki data SQL yang rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com