RE:Solucion ...Que pasa con los genios !!.!!!
Tito, hola, como andas. Te paso un código para mandar correos usando el Outlook.
Este es para iniciar sesion.
** INICIO SESION EMAIL
PUBLIC SESSION
SESSION=CREATEOBJECT('mapi.session')
SESSION.LOGON (,,.f.,.f.,0)
* Este es para mandar un email:
NEW=SESSION.OUTBOX.MESSAGES.ADD
NEW.SUBJECT = "Registro de llamadas particulares T.E. " + ALLTRIM(ThisForm.txtTe_area.value) + ' - '+ ALLTRIM(ThisForm.txtTe_nro.value)
NEW.TEXT="Se informa que se procederá a debitar de su próximo sueldo el importe de $ " + ALLTRIM(STR(ThisForm.txtImporte.Value,10,2)) ;
+ "correspondiente a la llamada de referencia."
SENDTO=NEW.RECIPIENTS.ADD
lcempleado = ALLTRIM(thisform.direccion)
lcdireccion = ALLTRIM(LEFT(lcempleado,AT(' ', lcempleado, 2)))
SENDTO.NAME=lcdireccion
SENDTO.TYPE=1
SENDTO.RESOLVE
NEW.SEND(0,0,0)
* cierra sesion:
SESSION.LOGOFF
Fijate para mandar un Mail, hay algunas variables mias, pero no creo que tengas problemas en entender como funciona, cualquier cosa, escribieme otro mensaje. Suerte.