Cómo insertar rápidamente los nombres de los destinatarios en el cuerpo del correo electrónico en Outlook

Si desea insertar rápidamente los nombres de los destinatarios en el cuerpo al redactar un correo electrónico, puede leer este artículo. Aquí le presentaremos un método conveniente.

A veces, es posible que deba ingresar los nombres de todos los destinatarios en el cuerpo cuando redacte un correo electrónico. Sin duda, es considerablemente tedioso y engorroso extraer e insertar los nombres en el cuerpo uno por uno manualmente. Por lo tanto, para ayudarlo a lograrlo rápidamente, aquí le compartimos un medio eficiente. Siga leyendo para conocer los pasos detallados.

Insertar nombres de destinatarios en el cuerpo del correo electrónico

1. Para empezar, acceda al editor de VBA mediante “Alt + F11”.
2. Luego, en la ventana “Microsoft Visual Basic para Aplicaciones”, habilite “Biblioteca de objetos de MS Word” según “Cómo agregar una referencia a una biblioteca de objetos en VBA".
3. A continuación, copie el código VBA a continuación en un módulo vacío.

Sub CopyRecipientNamesToBody()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strRecipAddress As String
    Dim strRecipName As String
    Dim objContacts As Outlook.Items
    Dim i As Integer
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim strRecipNames As String
    Dim objMailDocument As Word.Document
 
    'Get the current email
    Set objMail = Application.ActiveInspector.CurrentItem
    objMail.Recipients.ResolveAll
 
    For Each objRecipient In objMail.Recipients
        strRecipAddress = objRecipient.Address
 
        'Get the corresponding contact name
        Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
        For i = 1 To 3
            strFilter = "[Email" & i & "Address] = " & strRecipAddress
            Set objFoundContact = objContacts.Find(strFilter)
            If Not (objFoundContact Is Nothing) Then
               strRecipNames = strRecipNames & objFoundContact.FullName & vbCr
               Exit For
            End If
        Next
 
        'If there isn't associated contact
        'Extract name from email address
        If objFoundContact Is Nothing Then
           strRecipName = Split(strRecipAddress, "@")(0)
           strRecipName = UCase(Left(strRecipName, 1)) & Right(strRecipName, Len(strRecipName) - 1)
           strRecipNames = strRecipNames & strRecipName & vbCr
        End If
    Next
 
    'Insert the names at the beginning of email
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range(0, 0).InsertAfter strRecipNames
End Sub

3. A continuación, agregue esta macro a la barra de herramientas de acceso rápido de la ventana de mensajes de acuerdo con el paso opcional en "Cómo ejecutar código VBA en su Outlook".
4. Después de eso, sal de la ventana.
5. Finalmente, tome una foto.

• En primer lugar, redacte un correo electrónico y complete los destinatarios.
• Luego, presione el botón de macro en la barra de herramientas de acceso rápido.
• Cuando finaliza la macro, los nombres de los destinatarios se han insertado en el cuerpo del correo electrónico, como se muestra en la siguiente figura.

Protéjase contra daños de Outlook

Dado que Outlook es vulnerable, es difícil proteger Outlook de daños. Sin duda, debes ser reacio a encontrarte Corrupción PST. Por lo tanto, es mejor que tome algunas precauciones efectivas. Por ejemplo, necesita realizar copias de seguridad de datos consistentes para Outlook, estar familiarizado con cómo usar la herramienta de reparación de la bandeja de entrada y tener una poderosa herramienta externa cerca, 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 SQL Server reparar y productos de software de reparación de Outlook. Para más información visite www.datanumen.com