Ejemplo de mail sin intervención del usuario

[D.Fernandez]

Hola amigos:

Deseo mandar un mail desde mi programa sin intervención del usuario, alguien tendría un ejemple de como hacerlo.

Muchas gracias
saludos
Ruben Dario Fernandez

[D.Fernandez]

Hola amigos:

Este ejemplo de Antonio, me esta funcionandeo pero no veo como poner el FROM (lo hace del mail predeterminado y yo quiero de otro)

Code: Select all  Expand view  RUN

function DirectMessage(oCorreo, password)
    local oMail
 
    cTEXT :=  "A partir de hoy podrá ver su resúmen de cuenta en www...+CRLF+ ;
        "deberá ingresar su nro. cuenta y clave aquí enviada y una fecha del mes que desea ver."+CRLF+"Su clave es "+password +CRLF+CRLF+;
        "Le saluda atte"+CRLF+HBA("Don Quijote")



    DEFINE MAIL oMail ;
       SUBJECT "Mejoras para Ud." ;
       TEXT     cTEXT ;
       TO      oCorreo
 
    ACTIVATE MAIL oMail
 
    If oMail:nRetCode = 0
        MsgInfo("Mensaje enviado con éxito.","Informe")
    else
       MsgInfo("No se podido enviar el correo.","Informe" )
    endif
 return nil
 

Gracias, saludos

Ruben Dario Fernandez

[Jimmy]

hi,

MAIL have more Option like ORIGIN or FROM USER

DEFINE MAIL [ <oMail> ];
[ SUBJECT <cSubject> ];
[ TEXT <cText> ];
[ TYPE <cType> ];
[ DATE <dDate> ];
[ TIME <cTime> ];
[ CONVERSATION <cConversation> ]:
[ RECEIPT ];
[ FROM USER ];
[ FILES <cFilename1> ,<cDescript1>, <cFilenameN>, <cDescriptN> ] ];
[ ORIGIN <cOrigin> [ <cOriginAddress> ] ];
[ TO <cTarget1>, [ <cTargetAddress1> ] [ <cTargetN> [ <cTargetAddressN> ] ] ];

[D.Fernandez]

Jimmy thank you very much.

Best regards
Ruben Dario Fernandez