¿Cómo enviar un correo electrónico desde un rango limitado de celdas en Excel?
A menudo necesitará compartir datos o informes importantes con otras personas directamente desde su libro de Excel, y al incluir un rango específico de celdas en el cuerpo del correo electrónico podrá ahorrar tiempo y garantizar precisión. Por ejemplo, enviar por correo electrónico resúmenes financieros seleccionados, calificaciones de estudiantes o datos de inventario directamente desde Excel permite a los destinatarios ver la información esencial sin tener que abrir un archivo adjunto. Este artículo explica métodos prácticos para enviar un correo electrónico con un rango seleccionado integrado en el cuerpo del mensaje, ayudándole a agilizar la comunicación y el intercambio de datos directamente desde Excel.
Enviar correo electrónico desde un Rango limitado de celdas en Excel
Enviar correo electrónico desde un Rango limitado de celdas con una herramienta increíble
Más tutoriales sobre envío de correos en Excel...
Enviar correo electrónico desde un Rango limitado de celdas en Excel
Si prefiere un enfoque integrado y personalizable, utilizar código VBA en Excel es una forma eficaz de copiar un rango de celdas seleccionado y pegarlo automáticamente en el cuerpo de un correo electrónico de Outlook. Este método resulta ideal para quienes usan Microsoft Outlook como cliente de correo electrónico y necesitan automatizar el envío de mensajes directamente desde Excel. A continuación, se explica cómo lograrlo:
1. Abra la hoja de cálculo que contiene el rango de celdas que desea insertar en su correo electrónico. Pulse simultáneamente Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. Este atajo le permite acceder rápidamente al editor de VBA, donde insertará el código.
2. En la ventana del editor de VBA, haga clic en Herramientas > Referencias. Asegúrese de seleccionar el libro de trabajo correcto, especialmente si tiene varios archivos abiertos.
3. En el cuadro de diálogo Referencias – VBAProject, desplácese hasta encontrar y active la opción Microsoft Outlook Object Library. Al habilitar esta referencia, VBA podrá interactuar con Outlook, permitiéndole crear y enviar correos electrónicos directamente. Tras marcar la casilla, haga clic en Aceptar.
4. En la barra de menú, haga clic en Insertar > Módulo para añadir un nuevo módulo de código. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo.
Código VBA: Enviar correo electrónico con un Rango limitado en Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = "happy.xuebi@163.com"
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNotas:
- 1). Puede personalizar el contenido y el saludo en la línea xEmailBody = «Hi» & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine según sus necesidades. Por ejemplo, podría querer incluir un mensaje específico o instrucciones antes de los datos de Excel.
- 2). Ajuste el destinatario y el asunto modificando esta línea: .To = happy.xuebi@163.com y .Subject = «Test». Asegúrese de que la dirección de correo electrónico del destinatario sea correcta para evitar problemas de entrega.
5. Para ejecutar el código, pulse F5 en el editor de VBA. Cuando aparezca el cuadro de diálogo de Kutools para Excel, seleccione el rango de celdas que desea incluir en el cuerpo del correo electrónico y haga clic en Aceptar. Si selecciona el rango incorrecto, puede reiniciar el proceso o modificar la selección.
6. Se generará automáticamente un correo electrónico de Outlook con el destinatario especificado, el asunto, el mensaje insertado y los datos de Excel incluidos en el cuerpo del mensaje. Revise el mensaje antes de enviarlo para asegurarse de que todos los datos se muestran correctamente. Haga clic en el botón Enviar para entregar su correo electrónico.
Nota: Este método VBA solo funciona cuando Microsoft Outlook está instalado y configurado como su cliente de correo electrónico predeterminado. Si utiliza otro programa de correo, considere una solución alternativa como se describe a continuación. Además, si Outlook no está en ejecución, la macro lo iniciará automáticamente.
Limitaciones: Requiere Outlook y los permisos adecuados para acceder a la funcionalidad de correo electrónico. Si su organización restringe el uso de macros o el acceso a Outlook, es posible que este método no sea aplicable.
Enviar correo electrónico desde un Rango limitado de celdas con una herramienta increíble
Para usuarios que no usen Outlook o prefieran un método más sencillo y sin código, Kutools para Excel ofrece una solución directa para enviar mensajes de correo electrónico con rangos de celdas seleccionados. La función «Enviar correo electrónico» de Kutools le permite configurar un servidor saliente (SMTP) y enviar correos desde cualquier cuenta compatible —como Gmail, Yahoo o correo corporativo— directamente desde Excel, lo que la convierte en una opción versátil para trabajar en entornos diversos o compartir información con múltiples destinatarios.
Para utilizar este método, siga estos pasos:
1. En primer lugar, debe preparar una lista de correos electrónicos con los campos necesarios.
- Consejos: Su lista de correos electrónicos necesita al menos dos filas: una para los encabezados y otra u otras para los datos reales. Por ejemplo, si va a enviar correos a dos personas, incluya ambas direcciones de correo electrónico bajo el encabezado «Email», tal como se muestra en la siguiente captura de pantalla.
- Si desea crear una lista de correo electrónico rápidamente, pruebe la función Crear lista de correo para una configuración automatizada.
2. A continuación, seleccione el rango real de Excel que desea pegar en el cuerpo del mensaje de correo electrónico y pulse Ctrl + C para copiarlo. Asegúrese de copiar únicamente las celdas necesarias para mantener la claridad de su correo.
3. Seleccione toda la lista de correos electrónicos (incluidos los encabezados) y vaya a KUTOOLS PLUS > Enviar correos electrónicos.
4. Aparecerá el cuadro de diálogo «Enviar correos electrónicos», con los campos ya rellenados según la Lista de correos electrónicos que haya seleccionado.
- 4,1) Revise y ajuste los elementos del cuadro de diálogo según sea necesario. Puede añadir más campos a la lista de correos electrónicos si necesita mensajes personalizados o información adicional.
- 4,2) Haga clic dentro del cuadro «Cuerpo del correo electrónico» y pulse Ctrl + V para pegar el rango copiado. Añada cualquier texto o instrucción adicional si es necesario, asegurándose de que el mensaje del correo sea claro e informativo.
- 4,3) Asegúrese de que «Enviar usando Outlook» esté desmarcado si desea enviar mediante SMTP (otros servicios de correo electrónico).
- 4,4) Haga clic en Ajustes SMTP para configurar la configuración SMTP de su cuenta de correo electrónico, necesaria para el envío directo desde cuentas distintas de Outlook.
5. En el cuadro de diálogo «Configuración del servidor de correo (SMTP – Nuevo Esquema)», rellene todos los detalles necesarios, como su dirección de correo electrónico, servidor SMTP, número de puerto y credenciales de autenticación. Además, puede marcar la casilla «Guardar correos enviados en» para elegir una carpeta específica y así llevar un mejor seguimiento de sus comunicaciones. Una vez completada la configuración, haga clic en Aceptar para confirmar.
6. Volverá a la ventana «Enviar correos electrónicos». Verifique nuevamente todos los campos y el contenido pegado para asegurarse de su exactitud y, a continuación, haga clic en Enviar para entregar su correo electrónico. El mensaje se enviará a través del servidor configurado directamente desde Excel, y verá una confirmación o estado según el resultado.
Ventajas: Kutools te permite enviar correos electrónicos desde casi cualquier cuenta compatible con SMTP, no solo desde Outlook, lo que lo convierte en la opción ideal si usas webmail, gestionas varios dominios o buscas una interfaz sencilla sin tener que programar macros.
Al utilizar Kutools, compruebe atentamente la configuración de su servidor para evitar errores de entrega. Si los correos electrónicos no se envían, verifique la conectividad de red, la dirección del servidor, el puerto y las credenciales de inicio de sesión.
Antes de enviar correos electrónicos masivos, revise siempre al menos un mensaje para detectar y corregir posibles problemas de visualización o personalización.
Artículos relacionados:
Enviar correos electrónicos a direcciones de correo electrónico especificadas en celdas de Excel
Supongamos que tiene una lista de direcciones de correo electrónico y desea enviar un mensaje masivo directamente desde Excel. ¿Cómo lograrlo? Este artículo le mostrará métodos para enviar correos electrónicos a varias direcciones especificadas en celdas de Excel.
Insertar la firma de Outlook al enviar un correo electrónico desde Excel
Imagínese que quiere enviar un correo electrónico directamente desde Excel. ¿Cómo puede incluir su firma predeterminada de Outlook en ese mensaje? En este artículo le ofrecemos dos métodos para añadir fácilmente la firma de Outlook al enviar correos electrónicos desde Excel.
Enviar un correo electrónico con varios archivos adjuntos desde Excel
Este artículo explica cómo enviar un correo electrónico a través de Outlook con varios archivos adjuntos directamente desde Excel.
Enviar un correo electrónico cuando se haya superado la fecha de vencimiento en Excel
Por ejemplo, si la fecha de vencimiento en la columna C supera los 7 días (la fecha actual es 13/9/2017), envíe un recordatorio por correo electrónico al destinatario indicado en la columna A con el contenido especificado en la columna B. ¿Cómo lograrlo? Este artículo le ofrece un método detallado mediante VBA para resolver este caso.
Enviar automáticamente un correo electrónico según el valor de una celda en Excel
Imagínese poder enviar un correo electrónico a través de Outlook a un destinatario específico en cuanto una celda de Excel cumpla una condición. Por ejemplo, cuando el valor de la celda D7 en una hoja de cálculo supere los 200, se generará automáticamente un mensaje de correo. Este artículo le ofrece una solución con VBA para resolver esta tarea de forma rápida y sencilla.
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