Cara Cepat Menghapus Penerima Duplikat dari Email Outlook Anda dengan VBA

Jika Anda menambahkan grup kontak ke bidang "Kepada" email saat ini, mungkin ada beberapa duplikat di antara mereka. Artikel ini akan mengajari Anda cara menggunakan VBA untuk menghapus penerima duplikat dengan cepat.

Saat menulis email, jika Anda tidak hanya menambahkan kontak tetapi juga grup kontak sebagai penerima, kadang-kadang, mungkin ada beberapa penerima duplikat karena grup kontak diciutkan secara default. Dalam hal ini, jika Anda ingin mengetahui yang duplikat, Anda harus memperluas grup kontak terlebih dahulu dan kemudian membandingkan penerima secara manual, yang telah diperkenalkan secara terperinci di artikel saya sebelumnya– “Cara Menghapus Penerima Duplikat dari Email Outlook Anda”. Tanpa ragu, itu sangat membosankan. Jadi, banyak pengguna merindukan cara cepat untuk menghapus penerima duplikat. Berikut ini, kami akan mengajari Anda untuk mendapatkannya dengan Outlook VBA.

Hapus Penerima Duplikat dengan Cepat di Email Outlook Anda

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian beralih ke tab "Pengembang" dan klik tombol "Visual Basic" atau cukup tekan tombol "Alt + F11".
3. Selanjutnya di jendela "Microsoft Visual Basic for Applications", Anda dapat membuka modul kosong.
4. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul ini.

Sub RemoveDuplicateRecipients()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact groups in "To" field
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend
 
    'Remove the duplicate recipients
    For i = objRecipients.Count To 1 Step -1
        For n = (i - 1) To 1 Step -1
            If objRecipients(i).Address = objRecipients(n).Address Then
               objRecipients(i).Delete
               Exit For
            End If
        Next
    Next
End Sub

5. Setelah itu, Anda dapat menambahkan proyek VBA baru di Bilah Alat Akses Cepat di jendela pesan.
6. Nanti Anda perlu menyetel tingkat keamanan makro Outlook Anda ke rendah.
7. Akhirnya Anda bisa mencobanya.

• Pertama, buat saja email seperti biasa.
• Kemudian tambahkan grup kontak dan kontak di kolom “Kepada”.
• Selanjutnya Anda dapat mengklik tombol makro baru di Bilah Alat Akses Cepat.
• Sekaligus, Outlook akan secara otomatis memperluas grup kontak dan kemudian menghapus penerima duplikat.

Lindungi Data Outlook Anda yang Berharga

Karena Outlook cenderung macet, data Outlook Anda rentan terhadap kerusakan. Jadi, Anda harus melakukan banyak upaya untuk melindungi file Outlook Anda. Pertama-tama, Anda perlu mencadangkan file PST Anda secara teratur. Ini akan memfasilitasi PST korup memperbaiki. Selain itu, Anda sebaiknya menyiapkan alat perbaikan yang ampuh, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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