So entfernen Sie schnell doppelte Empfänger aus Ihrer Outlook-E-Mail mit VBA

Wenn Sie dem Feld "An" der aktuellen E-Mail Kontaktgruppen hinzufügen, befinden sich möglicherweise einige doppelte unter ihnen. In diesem Artikel erfahren Sie, wie Sie mit VBA die doppelten Empfänger schnell entfernen.

Wenn Sie beim Erstellen einer E-Mail nicht nur Kontakte, sondern auch Kontaktgruppen als Empfänger hinzufügen, kann es manchmal zu doppelten Empfängern kommen, da die Kontaktgruppen standardmäßig reduziert werden. Wenn Sie in diesem Fall die doppelten herausfinden möchten, müssen Sie zuerst die Kontaktgruppen erweitern und dann die Empfänger manuell vergleichen, was in meinem vorherigen Artikel ausführlich vorgestellt wurde. “So entfernen Sie doppelte Empfänger aus Ihren Outlook-E-Mails”. Ohne Zweifel ist es sehr langweilig. Viele Benutzer sehnen sich daher nach einer schnellen Möglichkeit, doppelte Empfänger zu entfernen. Im Folgenden lernen Sie, wie Sie es mit Outlook VBA erhalten.

Entfernen Sie schnell doppelte Empfänger in Ihrer Outlook-E-Mail

1. Starten Sie zunächst Ihre Outlook-Anwendung.
2. Wechseln Sie dann zur Registerkarte "Entwickler" und klicken Sie auf die Schaltfläche "Visual Basic" oder drücken Sie einfach die Tasten "Alt + F11".
3. Als Nächstes können Sie im Fenster "Microsoft Visual Basic für Applikationen" ein leeres Modul öffnen.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Modul ein.

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. Danach können Sie das neue VBA-Projekt in der Symbolleiste für den Schnellzugriff des Nachrichtenfensters hinzufügen.
6. Später müssen Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig einstellen.
7. Endlich können Sie es versuchen.

• Verfassen Sie zunächst wie gewohnt eine E-Mail.
• Fügen Sie dann Kontaktgruppen und Kontakte in das Feld "An" ein.
• Als nächstes können Sie auf die neue Makro-Schaltfläche in der Symbolleiste für den Schnellzugriff klicken.
• Sofort erweitert Outlook automatisch die Kontaktgruppen und entfernt dann die doppelten Empfänger.

Schützen Sie Ihre wertvollen Outlook-Daten

Da Outlook zum Absturz neigt, sind Ihre Outlook-Daten anfällig für Beschädigungen. Sie müssen also viele Anstrengungen unternehmen, um Ihre Outlook-Datei zu schützen. Zunächst müssen Sie Ihre PST-Datei regelmäßig sichern. Es wird erleichtern korrupte PST Reparatur. Darüber hinaus sollten Sie ein leistungsstarkes Fix-Tool vorbereiten, z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf-fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX