Kuidas kiiresti eemaldada dubleerivad adressaadid oma Outlooki meilist VBA abil

Kui lisate praeguse meili väljale „Saaja” kontaktirühmi, võib nende hulgas olla duplikaate. See artikkel õpetab teile, kuidas kasutada VBA-d korduvate adressaatide kiireks eemaldamiseks.

Kui lisate meili koostamisel adressaatidena mitte ainult kontakte, vaid ka kontaktirühmi, võib mõnikord esineda dubleeritud adressaate, kuna kontaktirühmad on vaikimisi ahendatud. Sel juhul, kui soovite duplikaate välja selgitada, peate esmalt laiendama kontaktigruppe ja seejärel adressaate käsitsi võrdlema, mida on üksikasjalikult tutvustatud minu eelmises artiklis – "Kuidas eemaldada Outlooki e-kirjadest dubleerivad adressaadid”. Kahtlemata on see väga tüütu. Seega igatsevad paljud kasutajad kiiret viisi dubleerivate adressaatide eemaldamiseks. Järgnevalt õpetame teid selle Outlook VBA abil hankima.

Eemaldage kiiresti oma Outlooki meilist korduvad adressaadid

1. Kõigepealt käivitage oma Outlooki rakendus.
2. Seejärel minge vahekaardile "Arendaja" ja klõpsake nuppu "Visual Basic" või vajutage lihtsalt klahve "Alt + F11".
3. Järgmisena saate aknas "Microsoft Visual Basic for Applications" avada tühja mooduli.
4. Seejärel kopeerige ja kleepige sellesse moodulisse järgmised VBA koodid.

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. Pärast seda saate sõnumiakna kiirpääsu tööriistaribale lisada uue VBA projekti.
6. Hiljem peate määrama oma Outlooki makro turvataseme madalaks.
7. Lõpuks saate proovida.

• Esiteks kirjutage e-kiri nagu tavaliselt.
• Seejärel lisage väljale „Saaja” kontaktrühmad ja kontaktid.
• Järgmisena saate kiirpääsu tööriistaribal klõpsata uut makro nuppu.
• Outlook laiendab korraga automaatselt kontaktirühmi ja seejärel eemaldab korduvad adressaadid.

Kaitske oma väärtuslikke Outlooki andmeid

Kuna Outlook on altid kokkujooksmisele, on teie Outlooki andmed vastuvõtlikud korruptsioonile. Seega peate oma Outlooki faili kaitsmiseks palju pingutama. Esiteks peate oma PST-faili regulaarselt varundama. See hõlbustab korrumpeerunud PST remont. Lisaks oleks parem valmistada käepärast võimas parandustööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom