envio de correo por medio de Visual foxpro

Denisse
17 de Diciembre del 2003
Buen día, le agradecería mucho a la persona que me ayude con esto: Necesito enviarun archivo por correos desde visual foxPro.

mmm
17 de Diciembre del 2003
En tu formulario incrustas los controles Mapi de Microssoft y al enviar pones este código, que le remite a una cuenta de correo un mensaje y un fichero adjunto.

IF LogSession && Verifica si el Usuario tiene una Cuenta de Correo
ThisForm.OleMMess.sessionid=ThisForm.OleMSess.sessionid
*Llama al Evento Compose para Abrir el Correo
ThisForm.OleMMess.compose()
Thisform.OleMMess.RecipAddress= alltrim(nomemail)
ThisForm.OleMMess.msgnotetext= texx
ThisForm.OleMMess.msgsubject=' IPAMARK, S.L. Actualización de datos ('+ALLT(NOMZIP)+')'
Thisform.OleMMess.AttachmentPathName = archivo
ThisForm.OleMMess.send(0)
IF logsession
ThisForm.OleMSess.signoff
ENDIF
ENDIF
temp=inkey(10)