Enviar imagen local como firma usando Outlook.Application

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Enviar imagen local como firma usando Outlook.Application
Posted: Mon Jan 23, 2023 02:11 PM

Hola, si alguien me puede ayudar con este problema por favor.
Tengo este codigo HTML para insertar una imagen en body:

<!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:

Pero cuando la envío como html en un correo de Outlook:

Code (fw): Select all Collapse

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:

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

Saludos.

Carlos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Mon Jan 23, 2023 04:32 PM

Carlos, has de "incrustarla" en el código HTML ( base64 )
https://stackoverflow.com/questions/8499633/how-to-display-base64-images-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

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Mon Jan 23, 2023 05:44 PM

Gracias Cristobal, voy a probar y te cuento luego.

Saludos cordiales

Carlos.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Mon Jan 23, 2023 05: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

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 12:21 PM

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

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

Este es el codigo como lo estoy haciendo:

Code (fw): Select all Collapse

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

rubenfernandez01

Posts: 48

Joined: Sun Sep 20, 2015 01:41 AM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 02: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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 03:48 PM

Olá, mira se ayuda:

https://groups.google.com/g/comp.lang.xharbour/c/hp_MgZCiRE8/m/37T9ShEHYfAJ

https://comp.lang.xharbour.narkive.com/onq2Tb4J/html-e-mail

https://www.fivetechsupport.com/forums/viewtopic.php?f=3&t=38427

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=6020&start=0

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

VitalJavier

Posts: 257

Joined: Mon Jun 10, 2013 06:40 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 04: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.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 06:03 PM

Asi, funciona bien:

Code (fw): Select all Collapse

  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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 07:23 PM

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

joao.html

Code (fw): Select all Collapse

<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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 08:02 PM

Asi, funciona bien y la imagen esta perfecta.

TEST.HTML

Code (fw): Select all Collapse

<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

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Re: Enviar imagen local como firma usando Outlook.Application
Posted: Tue Jan 24, 2023 08: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

FiveTech Support Forums

Continue the discussion