
Para hacer que Excel envíe correos electrónicos automáticamente con VBA, necesitas utilizar Outlook a través de su modelo de objetos. A continuación, te proporcionaré un ejemplo de cómo escribir una macro que enviará un correo electrónico automáticamente cuando la ejecutes. Asegúrate de que Outlook esté instalado y configurado en tu computadora para que esto funcione.
Sub EnviarCorreo()
Dim outlookApp As Object
Dim correo As Object
Dim destinatario As String
Dim asunto As String
Dim cuerpo As String
' Crear objeto Outlook
Set outlookApp = CreateObject("Outlook.Application")
Set correo = outlookApp.CreateItem(0) ' 0 Es el valor para correo
' Definir los detalles del correo
destinatario = "ejemplo@correo.com"
asunto = "Asunto del Correo"
cuerpo = "Este es el cuerpo del correo."
' Configurar correo
With correo
.To = destinatario
.Subject = asunto
.Body = cuerpo
' Si deseas incluir un archivo adjunto, descomenta la siguiente línea y especifica la ruta
' .Attachments.Add "C:rutaalarchivoadjunto.txt"
' Enviar el correo
.Send
End With
' Limpiar
Set correo = Nothing
Set outlookApp = Nothing
MsgBox "Correo enviado exitosamente."
End Sub
- Abre Excel y presiona `ALT + F11` para abrir el Editor de VBA.
- Ve a `Insertar` > `Módulo` para crear un nuevo módulo.
- Copia y pega el siguiente código en el módulo:
- Modifica las variables `destinatario`, `asunto`, y `cuerpo` con los detalles de tu correo.
- Si deseas añadir un archivo adjunto, descomenta la línea correspondiente y proporciona la ruta correcta al archivo.
- Presiona `F5` para ejecutar la macro y enviar el correo.
Notas Importantes:
- Seguridad: Outlook puede mostrar una advertencia de seguridad cuando VBA intenta enviar un correo en tu nombre. Esto es para prevenir el envío no autorizado de correos electrónicos.
- Permisos: Asegúrate de que tu configuración de seguridad en Excel y Outlook permita la ejecución de macros.
- Pruebas: Antes de automatizar completamente el proceso, prueba la macro con una dirección de correo personal para asegurarte de que todo funciona correctamente.
Con esta configuración, podrás enviar correos electrónicos automáticamente desde Excel utilizando VBA.
Conoce nuestros servicios



