Kā ātri noņemt dublētus adresātus no sava Outlook e -pasta, izmantojot VBA

Ja pašreizējā e -pasta ziņojuma laukam “Kam” pievienojat kontaktpersonu grupas, starp tām var būt dublikāti. Šis raksts jums iemācīs, kā izmantot VBA, lai ātri noņemtu adresātu dublikātus.

Sastādot e -pastu, ja jūs kā adresātus pievienojat ne tikai kontaktpersonas, bet arī kontaktpersonu grupas, dažreiz var būt daži adresāti, kuri ir dublēti, jo pēc noklusējuma kontaktpersonu grupas ir sakļautas. Šajā gadījumā, ja vēlaties uzzināt dublikātus, vispirms ir jāpaplašina kontaktu grupas un pēc tam manuāli jāsalīdzina adresāti, kas ir detalizēti ieviests manā iepriekšējā rakstā - “Kā noņemt dublētus adresātus no jūsu Outlook e-pastiem”. Bez šaubām, tas ir ļoti garlaicīgi. Tāpēc daudzi lietotāji vēlas ātru veidu, kā noņemt adresātu dublikātus. Turpmāk mēs iemācīsim jums to iegūt, izmantojot Outlook VBA.

Ātri noņemiet dublētus adresātus savā Outlook e -pastā

1. Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam pārejiet uz cilni “Izstrādātājs” un noklikšķiniet uz pogas “Visual Basic” vai vienkārši nospiediet taustiņus “Alt + F11”.
3. Tālāk logā “Microsoft Visual Basic for Applications” varat atvērt tukšu moduli.
4. Pēc tam nokopējiet un ielīmējiet šajā modulī šādus VBA kodus.

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ēc tam ziņojumu loga ātrās piekļuves rīkjoslā varat pievienot jauno VBA projektu.
6. Vēlāk jums jāiestata zems Outlook makro drošības līmenis.
7. Beidzot jūs varat izmēģināt.

• Pirmkārt, vienkārši izveidojiet e -pastu kā parasti.
• Pēc tam laukā “Kam” pievienojiet kontaktpersonu grupas un kontaktpersonas.
• Pēc tam ātrās piekļuves rīkjoslā varat noklikšķināt uz jaunās makro pogas.
• Uzreiz Outlook automātiski izvērsīs kontaktpersonu grupas un pēc tam noņems adresātu dublikātus.

Aizsargājiet savus vērtīgos Outlook datus

Tā kā Outlook ir pakļauts avārijām, jūsu Outlook dati ir pakļauti korupcijai. Tātad, jums ir jāpieliek daudz pūļu, lai aizsargātu savu Outlook failu. Pirmkārt, jums regulāri jādublē PST fails. Tas atvieglos korumpēts PST remonts. Turklāt jums labāk bija sagatavot jaudīgu labošanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar