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
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 nilDEFINE 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> ] ] ];
Jimmy thank you very much.
Best regards
Ruben Dario Fernandez
