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 Sub

espero haberme expresado bien para el problema que tengo  y pueda ayudarme

2 Respuestas

Respuesta
1
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 Sub

ESTA ES LA MACROS SEÑORITA ELSA

Respuesta
1

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

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas