¿Cómo enviar correos electrónicos masivos personalizados a una lista desde Excel mediante Outlook?
Por ejemplo, tengo el siguiente rango de datos en una hoja de cálculo que incluye las columnas Nombre, Dirección de correo electrónico y Código de registro, y ahora deseo enviar un mensaje con un saludo personalizado y el código de registro correspondiente a cada dirección de correo electrónico de la columna B. Para resolver este problema, los métodos siguientes pueden ayudarle.
Envíe correos electrónicos masivos personalizados a una lista desde Excel con código VBA
Envíe correos electrónicos masivos personalizados a una lista con distintos archivos adjuntos utilizando Kutools para Excel
Envíe correos electrónicos masivos personalizados a una lista desde Excel con la función Combinar correspondencia
Con la función Combinar correspondencia de Word, puede realizar esta tarea de forma rápida y sencilla. Siga los pasos siguientes:
1.Inicie un nuevo documento de Word en blanco y, a continuación, haga clic en Correspondencia>Seleccionar Destinatario>Usar una lista existente, consulte la captura de pantalla:
2. En la ventana Origen de datos, seleccione el libro que contiene los rangos de datos que desea utilizar y haga clic en el botón Abrir. Consulte la captura de pantalla:
3. En el cuadro de diálogo Seleccionar tabla que aparece, seleccione la hoja de cálculo con el rango de datos que necesita y, a continuación, haga clic en el botón Aceptar. Consulte la captura de pantalla:
4. El mensaje de correo electrónico, el documento principal y su lista de direcciones ya están conectados. Ahora puede editar el cuerpo del mensaje e insertar marcadores de posición para indicar dónde aparecerá la información personalizada en cada correo.
(1.) Para insertar el nombre individual del destinatario, haz clic en Correspondencia > Insertar campo de combinación > Nombre. Así se insertará el nombre personalizado en el mensaje, y el Nombre de la condición quedará rodeado por « ».
(2.) Continúe escribiendo su mensaje e inserte el Código de registroen el lugar donde lo necesite, consulte la captura de pantalla:
5. Tras redactar el mensaje, puede hacer clic en Vista previa del resultado en la pestaña Correspondencia para previsualizar los mensajes de correo electrónico y realizar ajustes antes de completar definitivamente la combinación.
6. Una vez que se haya asegurado de que no hay ningún problema, puede enviar los correos electrónicos a los distintos destinatarios. Haga clic en Correspondencia > Finalizar y combinar > Enviar mensajes de correo electrónico. Consulte la captura de pantalla:
7. A continuación, en el cuadro de diálogo Combinar con correo electrónico que aparece, realice las siguientes operaciones:
(1.) En la lista desplegable Para, seleccione la columna Dirección_de_correo;
(2.) Puede escribir el asunto en el cuadro de textoAsunto;
(3.) En la sección Enviar registros, seleccione Todos.
8. A continuación, haga clic en el botón Aceptar y los correos electrónicos se enviarán inmediatamente a los distintos destinatarios con su propio código de registro. Tras el envío, podrá comprobar en Outlook que los mensajes se han enviado correctamente.
Envíe correos electrónicos personalizados a varios destinatarios con distintos archivos adjuntos: Con la función Kutools para Excel Enviar correos electrónicos, puede enviar rápidamente mensajes personalizados a varios destinatarios con distintos archivos adjuntos desde Excel mediante Outlook, según sus necesidades. Además, también puede incluir copias (CC) o copias ocultas (CCO) a una persona específica.¡Descargue y pruebe gratis Kutools para Excel ahora!
|
Envíe correos electrónicos masivos personalizados a una lista desde Excel con código VBA
Además de la función Combinar correspondencia, el siguiente código VBA también puede ayudarle. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Envíe correos electrónicos masivos personalizados a una lista 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.A continuación, pulse la tecla F5para ejecutar este código, y aparecerá un cuadro de diálogo que le pedirá que seleccione los Rango de datos que desea utilizar, consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y los correos electrónicos se enviarán uno a uno a las distintas direcciones con su código de registro individual. Tras el envío, podrá comprobar en Outlook que los mensajes se han enviado correctamente.
Nota: En el código anterior, puede personalizar el asunto o el cuerpo del mensaje según sus necesidades.
Envíe correos electrónicos masivos personalizados a una lista con distintos archivos adjuntos utilizando Kutools para Excel
Si dispone de Kutools para Excel, con su función Enviar correos electrónicos, podrá enviar rápidamente correos electrónicos personalizados a varios destinatarios, incluyendo archivos adjuntos diferentes según sus necesidades.
Tras instalar Kutools para Excel, proceda de la siguiente manera:
1. Haga clic en KUTOOLS PLUS > Enviar correos electrónicos. Consulte la captura de pantalla:
2. En el cuadro de diálogo Enviar correos electrónicos, seleccione el rango de datos que desee utilizar y, a continuación, especifique las direcciones de los destinatarios, los archivos adjuntos y el asunto según sus necesidades. Consulte la captura de pantalla:
3. En el cuadro de edición, para insertar los nombres individuales de saludo, seleccione Nombre en la lista desplegable y, a continuación, haga clic en Insertar marcador de posición para insertar los nombres en el mensaje. Consulte la captura de pantalla:
4. A continuación, redacte el cuerpo del mensaje en el cuadro según sus necesidades; consulte la captura de pantalla:
5. Una vez finalizado el cuerpo del correo electrónico, seleccione el modo de envío que prefiera. Puede enviarlo a través de Outlook o mediante su servidor configurado; consulte la captura de pantalla:
Nota: Si desea utilizar otro servidor, haga clic en Ajustes SMTPpara configurar el modo de envío según sus preferencias, consulte la captura de pantalla:
6. Por último, haga clic en el botón Enviar para enviar los correos electrónicos. Tras completar el envío, aparecerá un cuadro de diálogo que le indicará el estado del mismo. Consulte la captura de pantalla:
¡Haga clic para descargar y probar gratis Kutools para Excel ahora!
Demostración: Envíe correos electrónicos masivos personalizados a una lista desde Excel mediante Outlook
Artículo relacionado:
¿Cómo enviar un correo electrónico a varios destinatarios de una lista en Excel mediante Outlook?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos