Anónimo
Tengo problemas con esta macros se envía por el Outlook
Tengo problemas con esta macros se envía por el Outlook hasta hay TODO BIEN, pero cuando envió a un correo de hotmail o Gmail las imágenes que pego en el cuerpo del mensaje no las puedo visualizar los archivos adjuntos si pero las imágenes no.
Y solo me pasa cuando envío a correos de @hotmail y @gmail no las puedo ver.
Pero cuando abro un correo de outlook si las puedo visualizar
Aquí le dejo la macros señor dante .
Quisiera que los demás correos como @hotmail y @gmail visualizaran las imágenes que van en el cuerpo del mensaje .
Hasta incluso cuando quiero verlas por mi celular el correo que me envíe no me las muestra.
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 = "[email protected]"
.To = [email protected];[email protected];[email protected]"
.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>"
.Display
.SEND
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Subaqui le dejo dos imagenes de outoolk y de hotmail porfavor podria ayudarme
