Slik fjerner du raskt dupliserte mottakere fra Outlook-e-posten din med VBA

Hvis du legger til kontaktgrupper i "Til"-feltet i gjeldende e-post, kan det være noen dupliserte blant dem. Denne artikkelen vil lære deg hvordan du bruker VBA for raskt å fjerne dupliserte mottakere.

Når du skriver en e-post, hvis du ikke bare legger til kontakter, men også kontaktgrupper som mottakere, kan det noen ganger være noen dupliserte mottakere ettersom kontaktgruppene er skjult som standard. I dette tilfellet, hvis du vil finne ut de dupliserte, må du først utvide kontaktgruppene og deretter sammenligne mottakere manuelt, noe som har blitt introdusert utførlig i min forrige artikkel - "Slik fjerner du dupliserte mottakere fra Outlook-e-postene dine". Uten tvil er det veldig kjedelig. Så mange brukere lengter etter en rask måte å fjerne dupliserte mottakere på. I det følgende vil vi lære deg å få det med Outlook VBA.

Fjern raskt dupliserte mottakere i Outlook-e-posten din

1. For det første, start Outlook-applikasjonen.
2. Bytt deretter til "Utvikler"-fanen og klikk på "Visual Basic" -knappen eller bare trykk "Alt + F11" -tastene.
3. Neste i "Microsoft Visual Basic for Applications"-vinduet kan du åpne en tom modul.
4. Deretter kopierer og limer du inn følgende VBA-koder i denne modulen.

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. Etter det kan du legge til det nye VBA-prosjektet i hurtigtilgangsverktøylinjen i meldingsvinduet.
6. Senere må du sette Outlook-makrosikkerhetsnivået til lavt.
7. Endelig kan du prøve.

• Først er det bare å skrive en e-post som vanlig.
• Legg deretter til kontaktgrupper og kontakter i "Til"-feltet.
• Deretter kan du klikke på den nye makroknappen i verktøylinjen for hurtigtilgang.
• Med en gang vil Outlook automatisk utvide kontaktgruppene og deretter fjerne de dupliserte mottakerne.

Beskytt dine verdifulle Outlook-data

Siden Outlook er utsatt for å krasje, er Outlook-dataene dine utsatt for korrupsjon. Så du må gjøre en stor innsats for å beskytte Outlook-filen din. Først av alt må du sikkerhetskopiere PST-filen din med jevne mellomrom. Det vil lette korrupt PST reparere. I tillegg bør du forberede et kraftig fikseringsverktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med