envio mail VFP error

Luis Punga
09 de Septiembre del 2004
oleMMess=createobject("msmapi.mapimessages")
oleMSess=createobject("msmapi.mapisession")
oleMSess.signon
OleMMess.sessionid=OleMSess.sessionid
OleMMess.msgindex=-1
OleMMess.compose
*set default to "C:encripta" && pierde el path ojo....
oleMmess.Addresscaption="[email protected]"
OleMMess.Recipdisplayname="[email protected]"
*"[email protected]"
OleMMess.recipaddress="[email protected]"
*"[email protected]"
OleMMess.msgnotetext="Prueba de correo texto X0"
OleMMess.msgsubject="Comentario del corrreo X10"
*!* OleMMess.attachmentindex=0 && agregar archivo adjunto
*!* OleMMess.attachmentposition=0
*!* OleMMess.attachmentpathname="c:curri.doc" && si no existe dara un error al intentar enviar
*!* OleMMess.attachmentname=""
*!* OleMMess.attachmenttype=0
OleMMess.send(0) && no lo muestra &&(1) lo muestra
OleMSess.signoff


el texto anterior lo tome de un ejemplo que algun colega lo envio al foro y funciona la primera vez que lo ejecuto, el realizarlo la siguiente vez en un lapso no mayor a un minuto, no funciona...
haber si a alguien le paso lo mismo y puede ayudarme.
gracias
luis punga