Kako brzo ukloniti duple primaoce iz Outlook e-pošte pomoću VBA

Ako dodate grupe kontakata u polje „Prima“ trenutne e-pošte, među njima može biti nekoliko duplikata. Ovaj članak će vas naučiti kako koristiti VBA za brzo uklanjanje duplikata primatelja.

Prilikom sastavljanja e-poruke, ako ne samo da dodate kontakte već i grupe kontakata kao primaoce, ponekad može postojati neki duplicirani primalac jer su grupe kontakata prema zadanim postavkama skupljene. U ovom slučaju, ako želite da saznate duplikate, prvo morate da proširite kontakt grupe, a zatim ručno uporedite primaoce, što je detaljno predstavljeno u mom prethodnom članku – “Kako ukloniti duple primaoce iz Outlook e-pošte”. Bez ikakve sumnje, veoma je zamorno. Dakle, mnogi korisnici čeznu za brzim načinom uklanjanja duplikata primatelja. U nastavku ćemo vas naučiti da ga dobijete pomoću Outlook VBA.

Brzo uklonite duple primaoce iz Outlook e-pošte

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim se prebacite na karticu "Developer" i kliknite na dugme "Visual Basic" ili samo pritisnite tipke "Alt + F11".
3. Zatim u prozoru „Microsoft Visual Basic za aplikacije“ možete otvoriti prazan modul.
4. Nakon toga, kopirajte i zalijepite sljedeće VBA kodove u ovaj modul.

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. Nakon toga, možete dodati novi VBA projekat u alatnu traku za brzi pristup prozora poruke.
6. Kasnije ćete morati da postavite nivo bezbednosti makroa Outlook na niski.
7. Konačno možete probati.

• Prvo, samo sastavite email kao i obično.
• Zatim dodajte grupe kontakata i kontakte u polje „Za“.
• Zatim možete kliknuti na dugme za novi makro na traci sa alatkama za brzi pristup.
• Outlook će odjednom automatski proširiti grupe kontakata, a zatim ukloniti duplikate primatelja.

Zaštitite svoje vrijedne Outlook podatke

Budući da je Outlook sklon rušenju, vaši Outlook podaci su podložni oštećenju. Dakle, morate uložiti mnogo napora da zaštitite svoju Outlook datoteku. Prije svega, morate redovno praviti sigurnosnu kopiju svoje PST datoteke. To će olakšati corrupt PST popraviti. Osim toga, bolje je pripremiti moćan alat za popravke, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com