¿Cómo enviar correos electrónicos masivos personalizados desde Excel a través de Outlook?
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.
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:
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:
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:
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 « ».
(2.) Continúa escribiendo tu mensaje e inserta el Código de registro en el lugar donde lo necesites, ver captura de pantalla:
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:
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.
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! |
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:
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:
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:
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:
4. Luego escribe el cuerpo de tu mensaje en el cuadro según sea necesario, ver captura de pantalla:
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:
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:
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:
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
Artículo relacionado:
Las mejores herramientas de productividad para Office
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.





- 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