¿Cómo enviar correos electrónicos masivos personalizados a una lista desde Excel a través de Outlook?
Por ejemplo, tengo el siguiente rango de datos en una hoja de trabajo que contiene las columnas Nombre, Dirección de correo electrónico, 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 ayudarlo.
Envíe correos electrónicos masivos personalizados a una lista de Excel con código VBA
Envíe correos electrónicos masivos personalizados a una lista con diferentes archivos adjuntos utilizando Kutools para Excel
Envíe correos electrónicos masivos personalizados a una lista de Excel con la función de combinación de correspondencia
Con las palabras Unificación de correo función, puede terminar este trabajo rápida y fácilmente, por favor hágalo con el siguiente paso a paso:
1. Inicie un nuevo documento de Word en blanco y luego haga clic en correos > Seleccionar destinatarios > Usar una lista existente, ver captura de pantalla:
2. En la Seleccionar fuente de datos ventana, elija el libro de trabajo que incluye el rango de datos que desea utilizar y haga clic en Abierto botón, ver captura de pantalla:
3. En la venida Seleccionar tabla cuadro de diálogo, elija la hoja de trabajo con el rango de datos que necesita y luego haga clic en OK botón, ver captura de pantalla:
4. Y el documento principal del mensaje de correo electrónico y su lista de direcciones se han conectado juntos, ahora puede editar el mensaje de texto 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, haga clic en correos > Insertar campo de fusión > Nombre, el nombre personalizado se ha insertado en el mensaje y el nombre del campo está rodeado por «».
(2.) Continúe escribiendo su mensaje e inserte el Código de registro en el lugar donde lo necesita, vea la captura de pantalla:
5. Después de redactar el mensaje, puede hacer clic en Vista previa de resultados bajo el Correo para obtener una vista previa de los mensajes de correo electrónico y realizar cambios antes de completar la combinación.
6. Después de asegurarse de que no haya ningún problema, puede enviar los correos electrónicos a los destinatarios separados, haga clic en correos > Finalizar y fusionar > Enviar mensaje de correo electrónico, ver captura de pantalla:
7. Entonces en el apareció Fusionar al correo electrónico cuadro de diálogo, realice las siguientes operaciones:
(1.) Desde el A lista desplegable, elija Dirección de correo electrónico columna;
(2.) Puede escribir el tema en el Asunto cuadro de texto de línea;
(3.) Desde el Enviar registros sección, seleccionar Todos.
8. Y luego haz clic OK, los correos electrónicos se envían a destinatarios separados con su propio código de registro a la vez, después de enviar los correos electrónicos, puede ir a su Outlook para asegurarse de que los correos electrónicos se hayan enviado correctamente.
Envíe correos electrónicos personalizados a varios destinatarios con diferentes archivos adjuntos:
Con Kutools for Excel's Enviar correos electrónicos función, puede enviar rápidamente correos electrónicos personalizados a varios destinatarios con diferentes archivos adjuntos de Excel a través de Outlook según lo necesite. Al mismo tiempo, también puede enviar mensajes CC o CCO a una persona específica. ¡Descargue y pruebe Kutools para Excel ahora! |
Envíe correos electrónicos masivos personalizados a una lista de Excel con código VBA
Excepto la función de combinación de correspondencia, el siguiente código de VBA también puede hacerle un favor, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código VBA: envíe correos electrónicos masivos personalizados a una lista de 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea usar, vea la captura de pantalla:
4. Y luego haz clic OK , 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, puede ir a su Outlook para asegurarse de que los correos electrónicos se hayan enviado correctamente.
Note: En el código anterior, puede cambiar el asunto o el cuerpo del mensaje según sus necesidades.
Envíe correos electrónicos masivos personalizados a una lista con diferentes archivos adjuntos utilizando Kutools para Excel
Si tiene Kutools for Excel, Con su Enviar correos electrónicos función, puede enviar rápidamente correos electrónicos personalizados a varios destinatarios con diferentes archivos adjuntos que necesite.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente:
1. Hacer clic Kutools Más > Enviar correos electrónicos, ver captura de pantalla:
2. En la Enviar emiales cuadro de diálogo, seleccione el rango de datos que desea usar y luego especifique las direcciones de los destinatarios, los archivos adjuntos y el asunto que necesite, vea la captura de pantalla:
3. En el cuadro de edición, inserte los nombres de los saludos individuales, elija Nombre de la lista desplegable y luego haga clic en Insertar marcador de posición para insertar los nombres en el mensaje, vea la captura de pantalla:
4. Luego escriba el cuerpo de su mensaje en el cuadro que necesite, vea la captura de pantalla:
5. Después de terminar el cuerpo del correo electrónico, elija el modo de envío que desee, puede enviar usando Outlook o su servidor especificado, vea screesnhot:
Note: Si desea utilizar otro servidor, haga clic en Configuración del servidor saliente para configurar el modo de envío a su propio modo, consulte screesnhot:
6. Por último, haz clic Enviar para enviar los correos electrónicos, después de completar, aparecerá un cuadro emergente para recordarle el estado del envío. ver screesnhot:
Haga clic en Descargar y prueba gratuita de Kutools para Excel ahora.
Demostración: envíe correos electrónicos masivos personalizados a una lista desde Excel a través de Outlook
Artículo relacionado:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!