CDOsys sending email

HMG en Español

Moderator: Rathinagiri

User avatar
danielmaximiliano
Posts: 2352
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 423 times
Been thanked: 82 times
Contact:

Re: CDOsys sending email

Post by danielmaximiliano »

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 
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
mustafa
Posts: 1002
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 201 times
Contact:

Post by mustafa »

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

Post Reply