¿Cómo enviar un correo electrónico si se hace clic en el botón en Excel?
Suponiendo que necesita enviar un correo electrónico a través de Outlook haciendo clic en un botón en la hoja de cálculo de Excel, ¿cómo puede hacerlo? Este artículo presentará un método VBA para lograrlo en detalle.
Enviar correo electrónico si se hace clic en el botón con el código VBA
Enviar correo electrónico si se hace clic en el botón con el código VBA
Haga lo siguiente para enviar un correo electrónico a través de Outlook si se hace clic en un botón de comando en el libro de Excel.
1. Inserte un botón de comando en su hoja de trabajo haciendo clic en Developer > recuadro > Botón de comando (control ActiveX). Ver captura de pantalla:
2. Haga clic con el botón derecho en el Botón de comando insertado y luego haga clic en Ver código desde el menú contextual como se muestra a continuación.
3. En la apertura Microsoft Visual Basic para aplicaciones ventana, reemplace el código original en la ventana Código con el siguiente script VBA.
Código de VBA: envíe un correo electrónico si se hace clic en el 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 Sub
Notas:
1). Cambie el cuerpo del correo electrónico según lo necesite en el xMailCuerpo línea en el código.
2). Reemplace la Correo electrónico con la dirección de correo electrónico del destinatario en línea .To = "Dirección de correo electrónico".
3). Especifique los destinatarios Cc y Cco que necesite en .CC = "" y .Bcc = "" .
4). Cambiar el asunto del correo electrónico en línea .Subject = "Enviar correo electrónico de prueba haciendo clic en el botón".
4. presione el otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.
5. Desactive el modo de diseño haciendo clic en Developer > Modo de diseño. Ver 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 destinatarios, asunto y cuerpo específicos. Envíe el correo electrónico haciendo clic en el Enviar del botón.
Note: El código VBA solo funciona cuando usa Outlook como su programa de correo electrónico.
Envíe fácilmente correos electrónicos a través de Outlook según los campos de la lista de correo creada en Excel:
La Enviar correos electrónicos utilidad de Kutools for Excel ayuda a enviar correo electrónico a través de Outlook basado en los campos de la lista de correo creada en Excel.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)
Artículos relacionados:
- ¿Cómo enviar correos electrónicos automáticamente según el valor de la celda en Excel?
- ¿Cómo enviar un correo electrónico a través de Outlook cuando el libro de trabajo se guarda en Excel?
- ¿Cómo enviar un correo electrónico si una determinada celda se modifica en Excel?
- ¿Cómo enviar un correo electrónico si se ha cumplido la fecha de vencimiento en Excel?
- ¿Cómo enviar un recordatorio o una notificación por correo electrónico si el libro de trabajo se actualiza en Excel?
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!