nicanor;
Yo también he estado horas y horas probando de todo, hasta diferentes versiones de harbour, ya que en la versión FWH812, funcionaba todo bien.
Lo único bueno que he sacado, es que buscando y buscando en un fuente en VB vi como se podía enviar los correos en formato HTML.
Para enviar los emilios en formato HTML solo hay que usar una DLL que convierte RTF a HTML.
1.- creas un objeto GET RICHEDIT.
2.- Luego creas un fichero .RTF con el texto que se ha introducido, lo guardas con: oCampos[5]:SaveToRTFFile( "tmpRTF.rtf" )
3.- Llama a la DLL para convertir el RTF a HTML: RtfToHTML( "tmpRTF.rtf", "tmpRTF.HTM", 16, "FFFFFF", "Title", 72 )
4.-Recuperas el contenido del fichero: strHTML := MemoRead( "tmpRTF.htm" )
5.-Y luego en vez de mandar el correo con la DATA :TextBody se envía con :HTMLBody asi: :HTMLBody := strHTML
Y listo, se envía en formato HTML con todas las caracteristicas de RTF.
La declaración de la DLL:
- Code: Select all Expand view
DLL32 FUNCTION RtfToHTML( cSource AS LPSTR, ;
cDest AS LPSTR, ;
nOption AS LONG, ;
cBG AS LPSTR, ;
cTitel AS LPSTR, ;
nDPI AS LONG ) AS LONG ;
PASCAL FROM "EXRTF2WEB" LIB "IRUN.DLL"
Te dejo la DLL en el FTP para que te la descargues:
http://www.grupes.es/basura/rtftoHTML.rarP.D Para cualquier cosa, también en el MSN:
fwh-jll@hotmail.esY muchas gracias por tu ayuda.
Un saludo
JLL