Cómo eliminar rápidamente destinatarios duplicados de su correo electrónico de Outlook con VBA

Si agrega grupos de contactos al campo "Para" del correo electrónico actual, puede haber algunos duplicados entre ellos. Este artículo le enseñará cómo usar VBA para eliminar rápidamente los destinatarios duplicados.

Al redactar un correo electrónico, si no solo agrega contactos, sino también grupos de contactos como destinatarios, a veces, puede haber algunos destinatarios duplicados, ya que los grupos de contactos están colapsados ​​de forma predeterminada. En este caso, si desea encontrar los duplicados, primero debe expandir los grupos de contacto y luego comparar los destinatarios manualmente, que se ha presentado detalladamente en mi artículo anterior– “Cómo eliminar destinatarios duplicados de sus correos electrónicos de Outlook”. Sin dudas, es muy tedioso. Por lo tanto, muchos usuarios anhelan una forma rápida de eliminar destinatarios duplicados. A continuación, le enseñaremos a obtenerlo con Outlook VBA.

Elimine rápidamente destinatarios duplicados en su correo electrónico de Outlook

1. En primer lugar, inicie su aplicación Outlook.
2. Luego cambie a la pestaña "Desarrollador" y haga clic en el botón "Visual Basic" o simplemente presione las teclas "Alt + F11".
3. A continuación, en la ventana "Microsoft Visual Basic para aplicaciones", puede abrir un módulo en blanco.
4. Posteriormente, copie y pegue los siguientes códigos VBA en este módulo.

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. Después de eso, puede agregar el nuevo proyecto de VBA en la barra de herramientas de acceso rápido de la ventana del mensaje.
6. Más tarde, debe configurar el nivel de seguridad de macros de Outlook en bajo.
7. Finalmente puedes intentarlo.

• Primero, simplemente redacte un correo electrónico como de costumbre.
• Luego agregue grupos de contactos y contactos en el campo "Para".
• A continuación, puede hacer clic en el botón de nueva macro en la barra de herramientas de acceso rápido.
• De inmediato, Outlook expandirá automáticamente los grupos de contactos y luego eliminará los destinatarios duplicados.

Proteja sus valiosos datos de Outlook

Como Outlook es propenso a fallar, sus datos de Outlook son susceptibles de dañarse. Por lo tanto, debe hacer un gran esfuerzo para proteger su archivo de Outlook. En primer lugar, debe realizar una copia de seguridad de su archivo PST de forma regular. Facilitará PST corrupto reparar. Además, es mejor que prepare una poderosa herramienta de reparación a mano, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com