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

[FiveWiDi]

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

Quizás así:

TEXT "Número de siniestro"+cnumSini + CRLF +"Número de póliza"+cNumPoliza ;

[QAZWSX2K]

creo que es con el retorno de carro blando el chr(10) y no el duro chr(13), prueba a ver

[jll-fwh]

Hola fergon:

En este post acabo de dejarle a MarioG un enlace de las funciones para mandar e-mail usando CDOSYS que funciona genial, solo tienes que adaptarlo a tus necesidades.

viewtopic.php?f=6&t=20603

Espero que te sirve.

Un saludo
JLL
MSN: fwh-jll@hotmail.es

[fergonm]

Buenos días.

Muchas gracias, FIVE, solucionado el tema con Crlf. No lo recordaba.

JLL, la utilización de CDOSYS, me dió errores con Telefonica.net que es mi servidor de correo. Probé el ejemplo del Maestro Mercado y me daba errores al enviar le correo.

Un saludo. Fernando

[jMelgar]

Hola.
Me gustaría ponerme en contacto contigo.
Mi correo es jesus<arroba>sisalamanca.com
Saludos.
Jesús.