Cara Cepat Menghilangkan Pendua Pendua dari E-mel Outlook Anda dengan VBA

Sekiranya anda menambahkan kumpulan kenalan ke medan "Ke" pada e-mel semasa, mungkin ada beberapa pendua di antara mereka. Artikel ini akan mengajar anda cara menggunakan VBA untuk membuang pendua penerima dengan cepat.

Semasa menyusun e-mel, jika anda bukan sahaja menambahkan kenalan tetapi juga kumpulan kenalan sebagai penerima, kadang-kadang, mungkin ada beberapa penerima yang digandakan kerana kumpulan kenalan itu runtuh secara lalai. Dalam kes ini, jika anda ingin mengetahui yang pendua, anda harus terlebih dahulu mengembangkan kumpulan kenalan dan kemudian membandingkan penerima secara manual, yang telah diperkenalkan dengan terperinci dalam artikel saya sebelumnya- “Cara Menghapus Pendua Pendua dari E-mel Outlook Anda" Tanpa keraguan, ia sangat membosankan. Oleh itu, banyak pengguna menginginkan cara cepat untuk membuang pendua penerima. Berikut ini, kami akan mengajar anda untuk mendapatkannya dengan Outlook VBA.

Keluarkan Penerima Pendua dengan pantas dalam E-mel Outlook Anda

1. Pertama, lancarkan aplikasi Outlook anda.
2. Kemudian beralih ke tab "Pembangun" dan klik pada butang "Visual Basic" atau tekan sahaja "Alt + F11".
3. Selanjutnya di tetingkap "Microsoft Visual Basic for Applications", anda dapat membuka modul kosong.
4. Selepas itu, salin dan tampal kod 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. Selepas itu, anda boleh menambahkan projek VBA baru di tetingkap mesej bar akses cepat.
6. Kemudian anda perlu menetapkan tahap keselamatan makro Outlook anda menjadi rendah.
7. Akhirnya anda boleh mencuba.

• Pertama, buat e-mel seperti biasa.
• Kemudian tambahkan kumpulan kenalan dan kenalan di medan "Ke".
• Seterusnya anda boleh mengklik butang makro baru di Bar Alat Akses Pantas.
• Sekaligus, Outlook akan meluaskan kumpulan kenalan secara automatik dan kemudian membuang pendua penerima.

Lindungi Data Outlook Anda yang Berharga

Oleh kerana Outlook cenderung mengalami kerosakan, data Outlook anda rentan terhadap korupsi. Oleh itu, anda harus membuat banyak usaha untuk melindungi fail Outlook anda. Pertama sekali, anda perlu membuat sandaran fail PST anda secara berkala. Ia akan memudahkan PST yang rosak pembaikan. Di samping itu, anda lebih baik menyiapkan alat pembaikan yang berguna, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf betulkan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com