HMGforum.com

Posted: **Mon Sep 14, 2020 1:14 pm**

Hola Mustafá:
estaba haciendo un ejemplo similar ya que ":CreateMHTMLBody("File://C:\CDOsys\PickUp\sample.html",0) " contiene los TAG
<html>
</html>
al utilizar cualquier otra operacion HTML las imagenes incrustadas pasan a ser archivos adjuntos
mi codigo esta algo similar a estoque por falta de tiempo no pude completar

Code: Select all

Function CreateHTML()
    cNameHTML := "Demo.htm"
         IF FILE( cNameHTML )
             FERASE( cNameHTML )
         ENDIF
	msgbox ( cNameHTML )	 
   nHandle := FCREATE( cNameHTML, FC_NORMAL )

   FWRITE( nHandle, "<HTML>" +  CRLF )
   FWRITE( nHandle, "<HEAD>" +  CRLF )
   FWRITE( nHandle, "<TITLE>Body Email With HMTL documment</TITLE>" +  CRLF )
   FWRITE( nHandle, "</HEAD>" +  CRLF )
   FWRITE( nHandle, "<BODY BGCOLOR=FFFFFF>" +  CRLF )
   FWRITE( nHandle, "<CENTER><IMG SRC=hmg.jpg ALIGN=BOTTOM> </CENTER>" +  CRLF )
   FWRITE( nHandle, "<DIV><FONT face=Verdana size=4><STRONG>EMBED PICTURES SAMPLE WITH CDOSYS</STRONG></FONT></DIV>" +  CRLF )
   FWRITE( nHandle, "<P></P><P></P>" +  CRLF )

Return 

/***************************************************************************************************/
Function CreateBody()

   msgbox( cNameHTML )

FWRITE( nHandle, "<DIV><IMG src=" + GetStartUpFolder() + "\logo1.jpg" + "></DIV>" +;
                 "<DIV><FONT face=Verdana size=2>Image" + ;
                 "<<lcJustFnamePictFile>></FONT></DIV>"+  CRLF )
FWRITE( nHandle, "<P></P><P></P><div></div><div></div>"+  CRLF )

Return 

/***************************************************************************************************/
Function CloseHtml()
  FWRITE( nHandle, "</BODY>" +  CRLF )
  FWRITE( nHandle, "</HTML>" +  CRLF )
  FCLOSE( nHandle )
Return

Posted: **Mon Sep 14, 2020 1:40 pm**

Hola Daniel:
Muy agradecido por la rapida contestación
sigo investigando.
Saludos /Regards
Mustafa

Posted: **Fri Oct 16, 2020 2:12 pm**

Hola amigos:

Dejo un Sample basado en el magnífico trabajo
aportado por DaNiElMaXiMiLiAnO con su Sample
CDOsys de envío de Correo.

Me propuse crear un fichero HTML con un Logo
e incrustarlo en el cuerpo del eMail (color de
fondo, elección tipo de letra, color letra, etc )
No como un > Attached <

El objetivo lo he conseguido a medias ...
Funciona desde el Sample a ==> Gmail --OK!!--

Pero desde ==> Outlook no está saliendo
correcto y tampoco desde el Sample a ==> Yahoo

Ver Carpeta Help_Config ==>"Screenshot.jpg"
ver también en misma carpeta "Readme.txt"
Ver Errores ?

Bueno amigos espero que sea de su agrado

Un Saludo

Mustafa

*---------- Google Translator --------------+
Hello friends:

I leave a Sample based on the magnificent work
provided by DaNiElMaXiMiLiAnO with its Sample
Mail shipping CDOsys.

I decided to create an HTML file with a Logo
and embed it in the body of the eMail (color of
background, font choice, font color, etc )
Not as an > Attached <

I have half achieved the goal ...
Works from Sample to ==> Gmail --OK !! -

But since ==> Outlook is not exiting
correct and neither from the Sample a ==> Yahoo!

See Help_Config Folder ==> "Screenshot.jpg"
see also in the same folder "Readme.txt"
View Errors ?

Well friends I hope you like it

Regards

Mustafa

Posted: **Fri Oct 16, 2020 3:31 pm**

hi

i do use CDO too but as i know Support will end.
so i switch to hbTip()

Posted: **Fri Oct 16, 2020 3:33 pm**

AUGE_OHR wrote: ↑Fri Oct 16, 2020 3:31 pm hi

i do use CDO too but as i know Support will end.
so i switch to hbTip()

When does it finish?

Posted: **Fri Oct 16, 2020 4:45 pm**

mol wrote: ↑Fri Oct 16, 2020 3:33 pm When does it finish?

CDO was design for Exchange Server but the have a new Interface.
i have to search for the Info but as i remember next Exchange Version does not support "old" CDO any more.

it is true that you still can use it when have DLL but you have to install them manual when not "build-in"

Posted: **Sat Oct 17, 2020 7:33 am**

I had some problems with hbtip few years ago.
I'll do new tests in this case

Posted: **Sun Oct 18, 2020 4:15 pm**

Hola amigos:

Creo que he podido resolver el problema
que no se veian imagenes incrustada en HTML
mediante Outlook a Gmail.

He utilizado en:
==> "cid: = (CONTENT-ID)" que consiste en crear
en el Logo con el mismo nombre en Attached
pero que nuestra imagen queda oculta.

Code: Select all


Código:

   XUBICA := c:\Mail_CDOsys_2020\Logos_Html\Logo_1.jpg   <== ( por ejemplo, donde esta el Logo  )

  attachment := oMail:Attachments:Add(XUBICA)
  attachment:PropertyAccessor:SetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F", XUBICA )  
       
        oMail:HTMLBody := '<!DOCTYPE HTML>'+  CRLF + ; 
                          '<HTML><BODY>'   +  CRLF + ; 
                          '<BODY style="background-color:'+ ALLTRIM( xTipxF) +';">'  + CRLF +   ;
                          '<br><div ALIGN='+ ALLTRIM(XALIGN) +'>' + ;
            ==>           '<IMG SRC='+'"'+'cid:'+ XUBICA + '"'+  ' id='+"1"  +  ;     .... etc.etc.

PD: En Yahoo no está Funcionando, solo en Gmail y
de Outlook a Gmail

Espero que les guste

Saludos
Mustafa

******************** Geoogles Translator *****************

Hello friends:

I think I have been able to solve the problem
that embedded images were not seen in HTML
via Outlook to Gmail.

I have used in:
==> "cid: = (CONTENT-ID)" which consists of creating
in the Logo with the same name in Attached
but that our image is hidden.

Code: Select all

Code:

   XUBICA := c:\Mail_CDOsys_2020\Logos_Html\Logo_1.jpg        <== (for example where is the Logo )

  attachment: = oMail: Attachments: Add (XUBICA)
   attachment: PropertyAccessor: SetProperty ("http://schemas.microsoft.com/mapi/proptag/0x3712001F", XUBICA)
       
           oMail:HTMLBody := '<!DOCTYPE HTML>'+  CRLF + ; 
                          '<HTML><BODY>'   +  CRLF + ; 
                          '<BODY style="background-color:'+ ALLTRIM( xTipxF) +';">'  + CRLF +   ;
                          '<br><div ALIGN='+ ALLTRIM(XALIGN) +'>' + ;
            ==>           '<IMG SRC='+'"'+'cid:'+ XUBICA + '"'+  ' id='+"1"  +  ;     .... etc.etc.

PS: In Yahoo it is not working, only in Gmail and
from Outlook to Gmail

Hope you like

Greetings
Mustafa

Posted: **Thu Mar 04, 2021 4:46 pm**

Hola Mustafá y otros :
hoy me escribio una persona acerca del inconveniente de poder enviar correos mediante su codigo y CDOSyS con Yahoo.
veo que tu codigo menciona que con Yahoo tiene inconvenientes asi que me puse a leer la mesa de ayuda de Yahoo en este sitio
https://es.ayuda.yahoo.com/kb/Instrucci ... n4724.html
veo

https://es.ayuda.yahoo.com/kb/Genera-y- ... 15241.html que meciona sobre contraseñas para aplicaciones aqui y un enlace para generarlas https://es.ayuda.yahoo.com/kb/Genera-y- ... 15241.html

un abrazo a la distancia

Posted: **Thu Mar 04, 2021 4:48 pm**

Ese inconveniente a sido subsanado por la generacion de contraseñas para aplicaciones de terceros para yahoo mail y su aplicacion volvio a funcionar, esto le sucedio hace una semanas y no podia enviar emails...

HMGforum.com

CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email

Re: CDOsys sending email