Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo enviar correos electrónicos masivos personalizados desde Excel a través de Outlook?

Author Xiaoyang Last modified

Por ejemplo, tengo el siguiente rango de datos en una hoja de cálculo que contiene columnas con Nombre, Dirección de correo electrónico y Código de registro, y ahora quiero enviar un mensaje con un saludo personalizado y su propio Código de registro a las direcciones de correo electrónico separadas en la columna A. Para resolver este problema, los siguientes métodos pueden ayudarte.

a screenshot of the mailing list in worksheet

Enviar correos electrónicos masivos personalizados desde Excel utilizando la función Combinar correspondencia

Enviar correos electrónicos masivos personalizados desde Excel utilizando código VBA

Enviar correos electrónicos masivos personalizados con diferentes archivos adjuntos utilizando Kutools para Excel


Enviar correos electrónicos masivos personalizados desde Excel utilizando la función Combinar correspondencia

Con la función Combinar correspondencia de Word, puedes completar esta tarea rápidamente y fácilmente, por favor sigue paso a paso lo siguiente:

1. Abre un nuevo documento en blanco de Word, y luego haz clic en Correos > Seleccionar destinatarios > Usar una lista existente, ver captura de pantalla:

a screenshot of selecting recipients use an existing list

2. En la ventana Seleccionar origen de datos, elige el libro que incluye el rango de datos que deseas utilizar, y haz clic en el botón Abrir, ver captura de pantalla:

a screenshot of selecting a workbook

3. En el cuadro de diálogo Seleccionar tabla que aparece, selecciona la hoja de cálculo con el rango de datos que necesitas, y luego haz clic en el botón Aceptar, ver captura de pantalla:

a screenshot of selecting the corresponding worksheet that containing the mailing list

4. Y el mensaje principal del correo electrónico y tu lista de direcciones se han conectado juntos, ahora puedes editar el texto del mensaje y agregar marcadores de posición que indiquen dónde aparecerá la información única en cada mensaje.

(1.) Para insertar su nombre de saludo individual, haz clic en Correos > Insertar campo de combinación > Nombre, el nombre personalizado ha sido insertado en el mensaje, y el nombre del campo está rodeado por « ».

a screenshot of inserting a merged Name field

(2.) Continúa escribiendo tu mensaje e inserta el Código de registro en el lugar donde lo necesites, ver captura de pantalla:

a screenshot of inserting the Registration Code

5. Después de redactar el mensaje, puedes hacer clic en Vista previa de resultados bajo la pestaña Correo para previsualizar los mensajes de correo electrónico y realizar cambios antes de completar realmente la combinación.

6. Después de asegurarte de que no hay problemas, puedes enviar los correos electrónicos a los destinatarios separados, por favor haz clic en Correos > Finalizar y combinar > Enviar mensaje de correo electrónico, ver captura de pantalla:

a screenshot of selecting Send Email Messages

7. Luego, en el cuadro de diálogo Fusionar al correo electrónico que aparece, realiza las siguientes operaciones:

(1.) Desde la lista desplegable Para, selecciona la columna Dirección_de_correo;

(2.) Puedes escribir el asunto en el cuadro de texto Línea de asunto;

(3.) Desde la sección Enviar registros, selecciona Todos.

a screenshot of configuring the Merge to E-mail dialog box

8. Y luego haz clic en Aceptar, los correos electrónicos se envían a los destinatarios separados con su propio código de registro de inmediato, después de enviar los correos electrónicos, puedes ir a tu Outlook para asegurarte de que los correos electrónicos se han enviado correctamente.


Enviar correos electrónicos personalizados a múltiples destinatarios con diferentes archivos adjuntos:

Con la función Enviar correos electrónicos de Kutools para Excel, puedes enviar rápidamente correos electrónicos personalizados a múltiples destinatarios con diferentes archivos adjuntos desde Excel a través de Outlook según sea necesario. Al mismo tiempo, puedes CC o CCO los mensajes a una persona específica también.       ¡Descarga y prueba gratis Kutools para Excel ahora!

a screenshot of using Kutools for Excel to send personalized emails to multiple recipients easily


Enviar correos electrónicos masivos personalizados desde Excel utilizando código VBA

Además de la función Combinar correspondencia, el siguiente código VBA también puede ayudarte, por favor haz lo siguiente:

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Enviar correos electrónicos masivos personalizados desde Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones el rango de datos que deseas utilizar, ver captura de pantalla:

a screenshot of selecting the mailing list after running the code

4. Y luego haz clic en el botón Aceptar, los correos electrónicos se enviarán a direcciones separadas con su código de registro individual uno por uno, después de enviar los correos electrónicos, puedes ir a tu Outlook para asegurarte de que los correos electrónicos se han enviado correctamente.

Nota: En el código anterior, puedes cambiar el asunto o el cuerpo del mensaje según tus necesidades.


Enviar correos electrónicos masivos personalizados con diferentes archivos adjuntos utilizando Kutools para Excel

Si tienes Kutools para Excel, con su función Enviar correos electrónicos, puedes enviar rápidamente correos electrónicos personalizados a múltiples destinatarios con diferentes archivos adjuntos según sea necesario.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Haz clic en Kutools Plus > Enviar correos electrónicos, ver captura de pantalla:

a screenshot of enabling the Send Emails feature

2. En el cuadro de diálogo Enviar correos electrónicos, selecciona el rango de datos que deseas utilizar, y luego especifica las direcciones de los destinatarios, los archivos adjuntos y el asunto según sea necesario, ver captura de pantalla:

a screenshot of setting the mail fields

3. En el cuadro de edición, inserta los nombres de saludo individuales, selecciona Nombre desde la lista desplegable, y luego haz clic en Insertar marcador de posición para insertar los nombres en el mensaje, ver captura de pantalla:

a screenshot of inserting placeholder

4. Luego escribe el cuerpo de tu mensaje en el cuadro según sea necesario, ver captura de pantalla:

a screenshot of finishing the email body

5. Después de terminar el cuerpo del correo electrónico, selecciona el modo de envío que prefieras, puedes enviar usando Outlook o tu servidor especificado, ver captura de pantalla:

a screenshot of choosing one of the send modes

Nota:  Si quieres usar otro servidor, haz clic en Configuración del servidor saliente para establecer el modo de envío a tu propio servidor, ver captura de pantalla:

a screenshot of configuring the Outgoing Server if you want to send emails through that email server

6. Por último, haz clic en el botón Enviar para enviar los correos electrónicos, después de completar, aparecerá un cuadro de diálogo para informarte sobre el estado del envío. Ver captura de pantalla:

a screenshot shows the number of emails successfully sent

Haz clic para descargar y probar gratis Kutools para Excel ¡Ahora!


Demostración: Enviar correos electrónicos masivos personalizados desde Excel a través de Outlook

 
Kutools para Excel: con más de 300 complementos útiles para Excel, prueba gratuita sin limitaciones durante 30 días. ¡Descarga y prueba gratis ahora!

Artículo relacionado:

¿Cómo enviar un correo electrónico a múltiples destinatarios en una lista desde Excel a través de Outlook?


Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas
Funciones populares: Buscar, resaltar o identificar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda por varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Cree rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Los15 principales conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) ... y más
Utiliza Kutools en tu idioma preferido: admite inglés, español, alemán, francés, chino y más de40 idiomas adicionales.

Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...


Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!

Todos los complementos de Kutools. Un solo instalador

El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.

Excel Word Outlook Tabs PowerPoint
  • Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
  • Mejor juntos: productividad optimizada en todas las aplicaciones de Office
  • Prueba completa de30 días: sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos