Anónimo
Esta macros no les permite ver las imágenes incrustadas en el cuerpo de mensaje que les envío al hotm o gmail (Els a M atilde)
Señorita Elsa Matilde este es mi problema
Esta macros envía automáticamente desde el Outlook 2007
3 archivos adjuntos de excel y 3 imágenes incrustadas en el cuerpo del mensaje como podrá ver en esta foto:
hasta hay todo bien .
Mi Problemas es que cuando mando este correo a las cuentas de @hotmail o @ gmanil solo me muestran los archivos adjuntos PERO NO ME SALEN LAS IMÁGENES INCRUSTADAS EN EL CUERPO DEL MENSAJE.
Aquí le dejo la foto del HOTMAIL como me llega a mi bandeja :
Me salen espacios en blanco de las imágenes y solo el contorno quisieras saber porque no me sale las imágenes como en mi Outlook.
Aquí le dejo la macros :
Sub OutlookMailExcel()Dim OutApp As ObjectDim OutMail As ObjectSet 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 WithOn Error GoTo 0Set OutMail = NothingSet OutApp = NothingEnd Subespero haberme expresado bien para el problema que tengo y pueda ayudarme
2 Respuestas
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 SubESTA ES LA MACROS SEÑORITA ELSA
Efectivamente ya se había pasado a la 2da página de consultas y no la vi.
Lamentablemente no puedo probar este tipo de código (no utilizo Outlook) pero si en un correo se ve bien sin dudas que el problema no está en la macro, sino que pensaría más bien en la configuración de los correos.
Hacé la prueba enviandome un mail a mi correo (cibersoft_arg de yahoo.com.ar) y te comento si puedo verlas o si tengo que modificar alguna configuración.
Sdos!
Equivoqué el correo, probemos con gmail (cibersoft. Arg de gmail.com) aunque no estaría mal que me lo envíes a los 2.
Sdos!
¡Gracias! si he estado intentando pero nada incluso trate de poner como BASE64 MI IMAGEN PERO no me sale , tambien cuando lo quiero ver por mi celular solo me muestra los archivos adjuntados