este codigo te puede valer , al ejecutarlo abre el correo si no esta abierto y si tienes activo el enviar y recibir hace el proceso de enviar lo pendiente y recibirlo ...
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]"
*!* OleMMess.recipaddress="
[email protected]"
OleMMess.msgnotetext="Prueba de correo texto"
OleMMess.msgsubject="Comentario del corrreo"
*!* 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(1) && no lo muestra &&(1) lo muestra
OleMSess.signoff
en la penultima linea con el valor 1 aparece la pantalla del correo para escribir lo que quieras a mayores y darle enviar ... si pones 0 lo envia directamente sin mostrarlo
es otra forma de ejecutarlo
Espero te sirva
