Cuando tenga que enviar un correo electrónico masivo a un gran grupo de personas, necesitará un proceso automatizado que pueda gestionar rápidamente las tareas repetitivas. La creación de un Excel con una lista de correos electrónicos es la forma más común de enviar correos electrónicos masivos. Por lo tanto, en este tutorial, le mostraremos cómo enviar correos electrónicos desde un archivo Excel automáticamente a un gran número de personas.

Descargar el cuaderno de prácticas

Descárgate este cuaderno de prácticas para ejercitarte mientras lees este artículo.

2 métodos prácticos para enviar correos electrónicos desde una lista de Excel

Hemos incluido un conjunto de datos con los nombres de algunas personas, así como sus direcciones de correo electrónico y números de registro, en la imagen de abajo. Desde el Excel debemos enviar correos electrónicos a cada uno de ellos. Para ello, utilizaremos Combinación de correspondencia de Microsoft Word función seguido de VBA para enviar correos electrónicos a las personas preferidas de la lista existente.

1. Aplicar la función Combinar correspondencia para enviar varios correos electrónicos desde una lista de Excel

⇒ Paso 1: Abrir un nuevo archivo de Word

• Abrir un espacio en blanco Palabra documento.
• Haga clic en el botón Mailings ficha.
• Desde el Seleccionar destinatarios elija la opción Utilizar una lista existente opción.

⇒ Paso 2: Vincular la lista de Excel al archivo de Word

• Seleccione Excel donde ha creado la lista y haga clic en Abrir para abrir el archivo.

• Seleccione el número de hoja donde ha escrito la lista.
• A continuación, haga clic en OK .

⇒ Paso 3: Insertar campos

• Desde el Mailings haga clic en la opción Insertar campo de fusión para introducir los campos que desea insertar.
• En primer lugar, inserte el Nombre campo pulsando sobre él y en la posición preferida del correo general.

• Como se muestra en la imagen de abajo, después de añadir el Nombre se mostrará como variable del nombre de cada persona.

• Del mismo modo, coloque el Reg donde quieras en el mensaje de texto.

• Por lo tanto, aparecerá como la imagen que se muestra a continuación.

⇒ Paso 4: Comprobar los resultados de la vista previa

• Haga clic en el botón Vista previa de los resultados para ver la vista previa final antes de enviar el correo electrónico.
• La siguiente captura de pantalla muestra el aspecto de un correo electrónico de muestra.

⇒ Paso 5: Fusionar correos electrónicos

• Para fusionar los correos electrónicos, haga clic en el botón Finalizar & Fusionar opción.
• Para abrir el Fusión a correo electrónico seleccione la casilla Enviar mensajes de correo electrónico opción.

• En el cuadro Para, seleccione el Correo electrónico opción.
• Escriba el asunto que prefiera en el campo Asunto caja.
• El formato del correo será HTML por defecto, por lo que no es necesario cambiarlo.
• En la opción Enviar registros, haga clic en Todos .
• Por último, haga clic en OK para enviar los correos electrónicos a varios destinatarios al mismo tiempo.

• Por consiguiente, todos los correos electrónicos se enviarán a través de su cuenta asociada. Outlook Compruebe su Outlook enviados para confirmar que los correos electrónicos se han enviado.

• Cuando abra un correo electrónico enviado, observará que cada campo se rellena con la información de una persona concreta.

Más información: Cómo enviar un correo electrónico automáticamente cuando se cumple una condición en Excel

Lecturas similares

• Cómo enviar una hoja de cálculo Excel editable por correo electrónico (3 métodos rápidos)
• [Solucionado]: Compartir libro no se muestra en Excel (con pasos fáciles)
• Enviar recordatorio por correo electrónico automáticamente desde una hoja de cálculo de Excel utilizando VBA
• Cómo ver quién está en un archivo Excel compartido (con pasos rápidos)
• Cómo habilitar Compartir libro en Excel

2. Ejecutar un Código VBA para Enviar Emails desde la Selección de un Rango

Con la bendición de VBA puede crear un programa para enviar correos electrónicos desde un Excel Siga los pasos descritos a continuación para realizar la tarea.

⇒ Paso 1: Crear un módulo

• Para abrir el Macro VBA pulse Alt + F11 .
• Haga clic en el botón Inserte ficha.
• Seleccione Módulo para crear el Módulo .

⇒ Paso 2: Pegar códigos VBA

• En el nuevo Módulo pegue lo siguiente Código VBA .

 #If VBA7 And Win64 Then 'Ptr se usa para cambiar de 32 bit a 64 bit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Declare las variables DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Seleccione el rango de selección adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Cree un cuadro de entrada para la selección del rango Set xIntRg = Application.InputBox("Por favor, introduzca el rango de datos de Excel:","ExcelWIKI", xSelectTxt, , , , , 8) 'Aplica la condición If para especificar los números de columna de la operación If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Muestra el resultado en un cuadro de mensaje si no se cumple la condición MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Aplica el bucle For para ejecutar la operación en cada fila individualmente For k = 1 To xIntRg.Rows.Count' Recoger la dirección de correo electrónico y establecerla en la variable xMailAdd = xIntRg.Cells(k, 2) ' Dar un asunto para el correo electrónico xRegCode = "ExcelWIKI Registration No." ' Escribir el cuerpo del correo electrónico xBody = "" ' Insertar Nombres con la variable xIntRg xBody = xBody & "Saludos " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Aquí está su ExcelWIKI Registration No. " ' InsertarNº de Registro con la variable xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Estamos muy contentos de tener su visita en nuestro sitio, siga apoyándonos." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Definir espacios con (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Especifica que se sustituyan los retornos de carro por (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Genera el enlace URL xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Utiliza el enlace para iniciar el envío de correo electrónico ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' intervalo de tres segundos para enviar las pulsaciones Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Paso 3: Ejecutar el programa

• Pulse F5 para ejecutar el programa.
• Seleccione el rango en el cuadro de entrada.
• Haga clic en OK para enviar los correos electrónicos.

• Como resultado, aparecerán vistas previas del envío de correos electrónicos, como se muestra en la imagen siguiente.

• Por último, puede comprobar los correos electrónicos enviados para obtener confirmación.

Más información: Cómo Enviar Email Si Se Cumplen Condiciones en Excel (3 Métodos Fáciles)

Conclusión

Espero que este artículo te haya servido de tutorial sobre cómo enviar correos masivos desde un Excel Todos estos procedimientos deben aprenderse y aplicarse al conjunto de datos. Echa un vistazo al cuaderno de prácticas y pon a prueba estos conocimientos. Nos motiva seguir haciendo tutoriales como éste gracias a tu valioso apoyo.

Si tiene alguna pregunta, póngase en contacto con nosotros. También puede dejarnos sus comentarios en la sección de abajo.

Nosotros, los Exceldemy Team, siempre están atentos a sus consultas.

Quédate con nosotros y sigue aprendiendo.