Tmail

[fergonm]

Buenos días.

Intento mandar mail en modo interactivo (ejemplo testmail). Necasitaría en TEXT mandar varios campos de una base de datos. Para ello he modoifaco el programa como sigue:


function InteractiveMessage()

local oMail
LOCAL cNumSini:=SPACE(18)
LOCAL cNumPoliza:=SPACE(15)
Use Siniestr
cnumSini:=siniestr->Numsini
DEFINE MAIL oMail ;
SUBJECT "Siniestro "+cNumSini ;
TEXT "Número de siniestro"+cnumSini+K_RETURN+"Número de póliza"+cNumPoliza ;
FROM USER ;
RECEIPT

ACTIVATE MAIL oMail

MsgInfo( oMail:nRetCode )
Close databases
return nil

No funciona, ya que no está bien el codigo inkey para retorno de carro de manera que cada campo aparezca en una línea. ¿como puede hacer que cada campo aparezca en una línea?

Muchas gracias. Fernando