Kadang kala, anda mungkin ingin mengira jumlah penerima dalam e-mel tertentu. Tetapi Outlook tidak mempunyai fungsi "penghitungan" yang jelas untuk menyokongnya. Jadi artikel ini akan memperkenalkan 2 pendekatan untuk mencapainya.
Dalam beberapa situasi, misalnya, apabila anda telah menambahkan sejumlah besar penerima ke e-mel dan sukar menguruskannya, anda ingin mendapatkan jumlah keseluruhan penerima ini. Tetapi Outlook tidak mempunyai sokongan asli atau lalai untuk dikira. Oleh itu, anda perlu melakukan usaha tambahan untuk mencapainya. Di sini kami akan memberitahu anda 2 kaedah.
Kaedah 1: Hitung Bilangan Penerima melalui Kumpulan Kenalan
- Untuk bermula, anda harus memilih semua penerima dalam medan "Kepada", "CC" dan "BCC" dan salinnya ke ruang kosong dalam isi mesej.
- Kemudian pilih semua penerima di dalam badan dan salin juga.
- Seterusnya pergi ke panel Kenalan Outlook dan tekan "Kumpulan Kenalan Baru". Di tetingkap pop timbul, tetapkan nama sebagai "Temp" dan kemudian klik "Tambah Anggota" dan pilih "Dari Buku Alamat" dari daftar drop-down.
- Selepas itu, tampal penerima yang disalin sebelumnya di medan "Anggota ->", seperti tangkapan skrin berikut:
- Selepas itu, klik butang "OK" dan kembali ke Kumpulan Kenalan. Semua pendua akan dikeluarkan secara automatik. Sekarang simpan ke cakera tempatan sebagai fail "Teks".
- Kemudian buka fail Teks dan keluarkan tajuk yang tidak berguna, seperti gambar di bawah:
- Akhirnya anda boleh meletakkan kursor pada baris terakhir. Anda akan melihat jumlah baris di bar status. Itulah jumlah keseluruhan penerima.
Kaedah 2: Hitung Bilangan Penerima dengan Outlook VBA
- Pada mulanya, tekan butang "Alt + F11" untuk mengakses tetingkap "Visual Basic".
- Kemudian salin dan tampal kod VBA berikut ke dalam modul baru.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Setelah itu, anda boleh keluar dari tetingkap "Visual Basic" dan menambahkan makro baru ke Toolbar Akses Pantas dari tetingkap Outlook utama dan tetingkap mesej.
- Akhirnya anda boleh mencuba:
- Apabila anda memilih e-mel dan menekan butang di Bar Alat Akses Pantas, anda akan menerima mesej seperti gambar berikut:
- Apabila anda membuka e-mel dan mengklik butang, anda akan mendapat kotak dialog, seperti gambar di bawah:
Catatan: Kaedah ini akan menganggap kumpulan kenalan sebagai satu penerima dan tidak akan memintas penerima pendua.
Memerangi Makro Berbahaya
Seperti yang kita semua tahu, virus bawaan e-mel telah menjadi salah satu ancaman paling biasa kepada data. Jadi, adalah sangat penting untuk mengkonfigurasi Outlook hanya untuk mendayakan makro yang ditandatangani secara digital, yang boleh menyekat virus dan perisian hasad. Tambahan pula, anda lebih baik mengekalkan sistem yang kukuh. utiliti pembaikan fail Outlook yang rosak, Seperti DataNumen Outlook Repair. Ini akan sangat berguna apabila Outlook anda mengalami jangkitan virus atau serangan malware.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk membaiki ralat data SQL mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com