Terkadang, Anda mungkin ingin menghitung jumlah total penerima di email tertentu. Namun Outlook tidak memiliki fungsi "penghitungan" yang jelas untuk mendukungnya. Jadi artikel ini akan memperkenalkan 2 pendekatan untuk mencapainya.
Dalam beberapa situasi, misalnya, ketika Anda telah menambahkan sejumlah besar penerima ke email dan merasa sulit untuk mengelolanya, Anda ingin mendapatkan jumlah total penerima tersebut. Tapi Outlook tidak memiliki dukungan asli atau default untuk dihitung. Oleh karena itu, Anda harus melakukan upaya ekstra untuk mencapainya. Di sini kami akan memberi tahu Anda 2 metode.
Metode 1: Hitung Jumlah Penerima melalui Grup Kontak
- Pertama-tama, Anda harus memilih semua penerima di kolom “Kepada”, “CC”, dan “BCC” lalu menyalinnya ke ruang kosong di isi pesan.
- Kemudian pilih semua penerima di badan dan salin juga.
- Selanjutnya pergi ke panel Kontak Outlook dan tekan "Grup Kontak Baru". Di jendela popup, atur nama sebagai "Temp" dan kemudian klik "Tambah Anggota" dan pilih "Dari Buku Alamat" dari daftar drop-down.
- Selanjutnya, tempel penerima yang telah disalin sebelumnya di bidang "Anggota ->", seperti tangkapan layar berikut:
- Setelah itu, klik tombol "OK" dan kembali ke Grup Kontak. Semua duplikat akan dihapus secara otomatis. Sekarang simpan ke disk lokal sebagai file "Teks".
- Nanti buka file Text dan hapus header yang tidak berguna, seperti gambar di bawah ini:
- Terakhir, Anda dapat menempatkan kursor di baris terakhir. Anda akan melihat jumlah baris di bilah status. Itu adalah jumlah total penerima.
Metode 2: Hitung Jumlah Penerima dengan Outlook VBA
- Pertama, tekan tombol "Alt + F11" untuk mengakses jendela "Visual Basic".
- Kemudian salin dan tempel kode VBA berikut ke 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 dapat keluar dari jendela "Visual Basic" dan menambahkan makro baru ke Bilah Alat Akses Cepat dari jendela Outlook utama dan jendela pesan.
- Akhirnya Anda bisa mencoba:
- Saat Anda memilih email dan menekan tombol di Quick Access Toolbar, Anda akan menerima pesan seperti gambar berikut:
- Saat Anda membuka email dan mengklik tombol, Anda akan mendapatkan kotak dialog, seperti gambar di bawah ini:
Catatan: Metode ini akan memperlakukan grup kontak sebagai satu penerima dan tidak akan mengabaikan penerima duplikat.
Memerangi Makro Berbahaya
Seperti yang kita ketahui, virus yang menyebar melalui email merupakan salah satu ancaman paling umum terhadap data. Oleh karena itu, sangat penting untuk mengkonfigurasi Outlook hanya untuk mengaktifkan makro yang ditandatangani secara digital, yang dapat memblokir virus dan malware. Selain itu, sebaiknya Anda juga menjaga sistem keamanan yang andal. utilitas perbaikan file Outlook rusak, Seperti DataNumen Outlook Repair. Ini akan berguna ketika Outlook Anda menderita infeksi virus atau serangan malware.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki kesalahan data mdf SQL dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com