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