Deben tener abierto el Outlook con una sesion iniciada de su correo electronico.
Posteriormente vamos incluir esta información en una hoja de excel
Es necesario que guarden este archivo en cualquier ruta de su PC, ya que la macro necesita que este guardado para adjuntarlo a Outlook
Ahora tenemos que ingresar al entorno de programación de VBA presionando la combinación de teclas ALT + F11, insertar un modulo y pegar el siguiente código.
Sub EnviarMensajeAdjunto()
Dim OutApp As Object
Dim OutMail As Object
'Se crea la conexión con el gestor de correo
Set OutApp = CreateObject("Outlook.Application")
OutApp.session.logon
'Se crea metodo de envio de correo
Set OutMail = OutApp.createitem(0)
'Se definen el destinatario
On Error Resume Next
With OutMail
.to = Range("B4").Value 'Destinatario
.cc = Range("B5").Value 'Con copia a
.bcc = Range("B6").Value 'Con Copia oculta
.Subject = Range("B7").Value 'Asunto
.body = Range("B8").Value 'Cuerpo del mensaje
.attachments.Add ThisWorkbook.FullName ' Archivo adjunto
.Close olSave 'Se cierra el correo y se guarda en borrador
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Luego ejecutamos la macro y posteriormente podemos ver en el borrador de Outlook el mensaje con el archivo adjunto cargado.
Puedes descargar el archivo finalizado en el siguiente enlace
