Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Sub OutlookMailExcel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
'Crea el correo
Set OutMail = OutApp.createitem(0)
'ActiveWorkbook.Save
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "bay.reporting@bayental.com"
.To = "edwin.amado@bayental.com;stiven_25_17@hotmail.com;stivenamadoeduardo@gmail.com"
.Subject = " Avance Diario de Gestión - BAYENTAL"
'Archivo de imagen que contiene la firma
ruta = "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\"
.Attachments.Add ruta & "3.-S_Bayental_TEXTO.jpg"
.Attachments.Add ruta & "3.-S_Bayental.jpg"
.Attachments.Add ruta & "3.-S_Bayental_MVD.jpg"
.Attachments.Add ruta & "1.-A_Bayental.jpg"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\A_Bayental.xlsx"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\V_Bayental.xlsx"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\S_Bayental.xlsx"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = "<html>" & _
"<body>" & _
"<p>Estimado Cliente no responder a este correo</p>" & _
"<img src=cid:3.-S_Bayental_TEXTO.jpg height=23 width=813>" & _
"<br>" & _
"<br>" & _
"<img src=cid:3.-S_Bayental.jpg height=238 width=811>" & _
"<br>" & _
"<br>" & _
"<img src=cid:3.-S_Bayental_MVD.jpg height=97 width=409>" & _
"<br>" & _
"<br>" & _
"<img src=cid:1.-A_Bayental.jpg height=723 width=828>" & _
"<br>" & _
"<br>" & _
"</body>" & _
"</html>".SendKeys "^v", True
.DoEvents .DisplayEnd With
On Error GoTo 0
Set OutMail = NothingSet OutApp = NothingEnd Sub
