Enviar imagen local como firma usando Outlook.Application

Enviar imagen local como firma usando Outlook.Application

Postby csincuir » Mon Jan 23, 2023 2:11 pm

Hola, si alguien me puede ayudar con este problema por favor.
Tengo este codigo HTML para insertar una imagen en body:
Code: Select all  Expand view  RUN

<!doctype html>
<html>
<head>
<meta charset="UTF-8">
<title>Mi firma HTML</title>
</head>

<body>
<p>Esta es una prueba</p>
<p>Saludos cordiales.</p>

<a href="https://haas.com.gt/" target="_blank"><img src="G:/svnsem/sem68/Imagenes/kperez.jpg" width="500" height="250" style="padding-top:15px;"></a>

</body>
</html>
 

La imagen esta en mi disco local, y si la veo desde el navegador web, funciona correcamente:
Image
Pero cuando la envío como html en un correo de Outlook:
Code: Select all  Expand view  RUN

FUNCTION OutlookPiedePagina()
LOCAL oOutlook, oMail, cFirma


oOutlook := CreateObject('Outlook.Application')

oMail := oOutlook:CreateItem(0)

oMail:Subject := 'Asunto del correo'
oMail:To := 'sincuir@yahoo.com'

TEXT INTO cFirma
<!doctype html>
<html>
<head>
<meta charset="UTF-8">
<title>Mi firma HTML</title>
</head>

<body>
<p>Esta es una prueba</p>
<p>Saludos cordiales.</p>

<a href="https://haas.com.gt/" target="_blank"><img src="G:/svnsem/sem68/Imagenes/kperez.jpg" width="500" height="250" style="padding-top:15px;"></a>

</body>
</html>
ENDTEXT

oMail:HTMLBody := cFirma

oMail:Send()

RELEASE oMail

Return .f.
 

Al recibir el correo, no se ve la imagen:
Image

Alguien sabe como colocar esa imagen local para que se muestre en el correo?

Saludos.

Carlos
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Enviar imagen local como firma usando Outlook.Application

Postby cnavarro » Mon Jan 23, 2023 4:32 pm

Carlos, has de "incrustarla" en el código HTML ( base64 )
https://stackoverflow.com/questions/849 ... es-in-html
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6548
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Enviar imagen local como firma usando Outlook.Application

Postby csincuir » Mon Jan 23, 2023 5:44 pm

Gracias Cristobal, voy a probar y te cuento luego.

Saludos cordiales

Carlos.
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Enviar imagen local como firma usando Outlook.Application

Postby cnavarro » Mon Jan 23, 2023 5:56 pm

Recuerda que sería concatenar en tu código HTML lo que devuelve la function
hb_base64Encode( hb_memoRead( "myimage.jpg" ) )
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6548
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Enviar imagen local como firma usando Outlook.Application

Postby csincuir » Tue Jan 24, 2023 12:21 pm

No funcionó Cristobal.
Nuevamente, al ver el html generado se ve correctamente en el navegador local:
Image

Pero al recibirlo en el correo, no se muestra la imagen:
Image

Este es el codigo como lo estoy haciendo:
Code: Select all  Expand view  RUN

FUNCTION OutlookPiedePagina()
LOCAL oOutlook, cImagen
LOCAL oMail, cFirma

cImagen := hb_base64Encode( hb_memoRead( "G:\Tempo\Haas\kperezfirma.png" ) )

oOutlook := CreateObject('Outlook.Application')
oMail := oOutlook:CreateItem(0)

oMail:Subject := 'Recibo de caja...'
oMail:To := 'sincuir@yahoo.com'

TEXT INTO cFirma
<!DOCTYPE html>
<html>
<head>
   <title>Recibo de Caja</title>
</head>
<body>
   <div>
      <h1>Recibo de Caja</h1>
      <p>Esta es una prueba</p>
      <p>Saludos cordiales.</p>
      <img src="data:image/png;charset=utf-8;base64,[data]" width="500" height="250" style="padding-top:15px;" alt="Recibo de Caja" />
   </div>
</body>
</html>
ENDTEXT

cFirma := StrTran( cFirma, "[data]", cImagen )
oMail:HTMLBody := cFirma

oMail:Send()

RELEASE oMail

Return .f.
 


Creo que todo esta correcto, pero no funciona, y probé con una imagen mas pequeña y me dio el mismo resultado.

Saludos.

Carlos
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Enviar imagen local como firma usando Outlook.Application

Postby rubenfernandez01 » Tue Jan 24, 2023 2:10 pm

Disculpen el atrevimiento, tienes configurado Outlook para que baje las imágenes automáticamente?

Saludos
Ruben Dario Fernandez

Enviado desde mi 21081111RG mediante Tapatalk
rubenfernandez01
 
Posts: 46
Joined: Sun Sep 20, 2015 1:41 am


Re: Enviar imagen local como firma usando Outlook.Application

Postby VitalJavier » Tue Jan 24, 2023 4:56 pm

Buen dia
Me pasa exactamente lo mismo
Lo que hice para resolverlo, fue subir la imagen a un repositor. (Postimage)
Solamente asi me lo solucione.

Saludos.
User avatar
VitalJavier
 
Posts: 241
Joined: Mon Jun 10, 2013 6:40 pm

Re: Enviar imagen local como firma usando Outlook.Application

Postby karinha » Tue Jan 24, 2023 6:03 pm

Asi, funciona bien:


Code: Select all  Expand view  RUN

  LOCAL cHtml, oHtml

  oHtml    := SPACE(01)

  oHtml    := "C:\OUTL2007\test.html"

  cHtml    := IF( oHtml = NIL      , SPACE( 1 )   , oHtml )

FUNCTION EnvioEmailOutLook( _cTo, _cComCopia, _cCOculta, _cAttach, _cAttach2, _cAttach3, _cSubject, _cBody, _cHtml, nProvedor_Env  )

   IF .NOT. EMPTY( _cHtml )

      oEmail:HTMLBody := MEMOREAD( ALLTRIM( _cHtml ) )

   ENDIF

   oEmail:Display( .T. )

 


Fontes completo:

https://mega.nz/file/1RNW2Y5T#XlHnc63dDOIfsXwKrMod3kbfnZyTLhHq0uTAV9vIHfE

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7828
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Enviar imagen local como firma usando Outlook.Application

Postby karinha » Tue Jan 24, 2023 7:23 pm

Entonces lo obtengo mediante una firma digital. Todavía no he descubierto cómo colocar una imagen.

joao.html

Code: Select all  Expand view  RUN

<html>

</script>

<head>

João Santos - São Paulo - Brasil - kapiabafwh@gmail.com

</head>
<body>

</html>
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7828
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Enviar imagen local como firma usando Outlook.Application

Postby karinha » Tue Jan 24, 2023 8:02 pm

Asi, funciona bien y la imagen esta perfecta.

TEST.HTML

Code: Select all  Expand view  RUN

<html>

</script>

<head>

João Santos - São Paulo - Brasil - kapiabafwh@gmail.com

<a href="https://imgur.com/RgY2JBq"><img src="https://i.imgur.com/RgY2JBq.png" title="source: imgur.com" /></a>

</head>
<body>

</html>
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7828
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Enviar imagen local como firma usando Outlook.Application

Postby csincuir » Tue Jan 24, 2023 8:49 pm

Gracias a todos por sus respuestas.

Rubén, pues el correo lo leo desde la web con yahoo.com o con bluemail, y también con el outlook, y en todos pasa lo mismo, y si tengo configurado ver las imágenes.

Javier, si, con la imagen en algún repositorio web funciona muy bien, el problema es que los clientes no tienen repositorio web, por eso la necesidad de tomarla del disco local.

João, gracias por los ejemplos, voy a probar con los mismos.

Si lo resuelvo, pongo por acá la solución.

Saludos cordiales.

Carlos
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 17 guests