FoxPro/Visual FoxPro - Enviar Archivo X Email

Hola a todos..

Tengo una aplicacion multiusuario en Server1 y 8 pc's en LAN que actualizan
3 archivos y que al cerrar la aplicación en Server1,2, etc., se deberán
enviar por EMAIL a "SCENTRO" el cual necesita recibir los archivos de todos
los Server's e incorporarlos a un concentrado de datos, el proceso de
recepcion en SCENTRO será manual pero en Servers deberá ser al terminar de
capturar las terminales y al Salir de la Aplicación.

pc's = terminales para captura.
Server = Servidores en la cual radica la aplicacion que usan las terminales.
SCENTRO = Servidor Central de Recepcion de Datos de los Servers

Local oSession As MSMAPI.MAPISession
Local oMsg As MSMAPI.MAPIMessages

oSession = Createobject("MSMAPI.MAPISession")
oMsg = Createobject("Msmapi.MapiMessages")

oSession.DownLoadMail = .F.
oSession.SignOn
oMsg.sessionid = oSession.sessionid
cDestino = "[email protected]"

With oMsg
.compose
.MsgIndex = -1
.msgsubject = "Titulo"
.msgnotetext = "Texto del mensaje"
.AddressResolveUI = .F.
.RecipAddress = cDestino

* En caso que desee adjuntar archivos
* En el ejemplo se adjuntas 2 archivos
*------------------------------------------
.AttachmentIndex = 0
.AttachmentName = "datos1.ext"
.AttachmentPathName = "C:\datos1.ext"
.AttachmentIndex = 1
.AttachmentName = "datos2.ext"
.AttachmentPathName = "C:\datos2.ext"
*-------------------------------------------

.Send
oSession.signoff
EndWith

Release oMsg
Release oSession
Suerte

1000 tanks... me sirvio mucho...
saludos amigo...

un placer compañero.