¿Cómo enviar un correo electrónico al hacer clic en un botón en Excel?
¿Necesita enviar un correo electrónico a través de Outlook con solo hacer clic en un botón de una hoja de Excel? Este artículo le muestra, paso a paso, un método VBA para lograrlo.
Enviar correo electrónico al hacer clic en un botón con código VBA
Enviar correo electrónico al hacer clic en un botón con código VBA
Siga estos pasos para enviar un correo electrónico a través de Outlook haciendo clic en un botón de comando en su libro de Excel.
1. Inserte un botón de comando en su hoja haciendo clic en Desarrollador > Insertar > Botón de comando (Control ActiveX). Vea la captura de pantalla:
2. Haga clic con el botón derecho en el botón de comando insertado y, a continuación, haga clic en Ver código en el menú contextual, tal como muestra la siguiente captura de pantalla.
3. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, sustituya el código original en la ventana de código por el siguiente script VBA.
Código VBA: Enviar correo electrónico al hacer clic en un botón en Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End SubNotas:
1). Modifique el cuerpo del correo electrónico según sus necesidades en la línea del código xMailBody.
2). Sustituya la Dirección de correo electrónico por la dirección de correo electrónico del destinatario en la línea .To = «Dirección de correo electrónico».
3). Especifique los destinatarios en Cc y Cco según sus necesidades en las secciones .CC = “” y .Bcc = “”.
4). Cambie el asunto del correo electrónico en la línea .Subject = «Test email send by button clicking».
4. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
5. Desactive el modo Diseño haciendo clic en Desarrollador > Modo diseño. Vea la captura de pantalla:
A partir de ahora, cada vez que haga clic en el botón de comando, se creará automáticamente un correo electrónico con los destinatarios, el asunto y el cuerpo especificados. ¡Envíelo pulsando el botón Enviar!
Nota: El código VBA solo funciona si utiliza Outlook como su programa de correo electrónico.
Envíe fácilmente correos electrónicos a través de Outlook basándose en los campos de los Lista de correos electrónicos creados en Excel:
La utilidad Enviar correos electrónicos de Kutools para Excel le permite enviar mensajes a través de Outlook basándose en los campos de la lista de correos electrónicos creada en Excel.
¡Descárguela y pruébela ahora!
Artículos relacionados:
- ¿Cómo enviar automáticamente un correo electrónico en función del valor de una celda en Excel?
- ¿Cómo enviar un correo electrónico mediante Outlook al guardar el libro en Excel?
- ¿Cómo enviar un correo electrónico automáticamente al modificar una celda específica en Excel?
- ¿Cómo enviar un correo electrónico cuando se cumple la fecha de vencimiento en Excel?
- ¿Cómo enviar un recordatorio o notificación por correo electrónico cuando se actualiza el libro en Excel?
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