Cómo agregar por lotes todos los destinatarios de varios correos electrónicos a los contactos de Outlook

Algunos usuarios anhelan una solución que les permita agregar rápidamente a todos los destinatarios de varios correos electrónicos a la carpeta Contactos de Outlook como nuevos contactos. Entonces, este artículo presentará un enfoque tan rápido.

Por ejemplo, recibe algunos correos electrónicos que se envían simultáneamente a muchos otros destinatarios excepto a usted. Además, estos destinatarios no se almacenan en sus contactos de Outlook. En este caso, es posible que desee agregar estos destinatarios a los contactos de Outlook. Para lograrlo en lotes, puede utilizar la siguiente forma.

Agregar por lotes todos los destinatarios de varios correos electrónicos a los contactos de Outlook

1. Para empezar, inicie su programa Outlook.
2. Luego, presione los botones de tecla "Alt + F11" para acceder al eidtor de Outlook VBA.
3. Posteriormente, en la ventana “Microsoft Visual Basic para Aplicaciones”, copie y pegue el siguiente código en un módulo en blanco.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Después de eso, minimice o salga de esta ventana.
5. Más tarde, debe agregar esta macro a la barra de herramientas de acceso rápido con referencia a "Cómo ejecutar código VBA en su Outlook.
6. Finalmente, puede probar esta macro.

• Al principio, seleccione varios correos electrónicos cuyos destinatarios se agregarán a los contactos.
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Cuando finalice la macro, puede ir a la carpeta Contactos predeterminada. Se han agregado esos destinatarios.
• El nuevo contacto se verá como la siguiente captura de pantalla.

Tenga cuidado con todos los riesgos relacionados con su Outlook

Aunque Outlook viene dotado de diversas características, es vulnerable a muchos factores, incluidos errores humanos, fallas de software, problemas de hardware y virus. Por lo tanto, es necesario que estemos atentos a todos los riesgos potenciales en torno a nuestro Outlook. Además, es necesario tomar las precauciones necesarias. Por ejemplo, es mejor que se apodere de una herramienta de reparación de PST, como DataNumen Outlook Repair, Que puede reparar PST problemas con facilidad sin esfuerzo.

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 reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com