FoxPro/Visual FoxPro - Envio Archivo por email

Hola a todos.. buenas noches...
Tengo una cierta dudilla en relacion al envio por email de un reporte de ventas de cada sucursal (3) a la matriz.

lo que pasa en una de ellas no se puede enviar el reporte.. y de las otras 2 se se envian muy bien..

que pasara... tengo el siguiente codigo en el evento click de salir del sistema

WAIT WINDOW TIMEOUT 3.2 "Espere un momento mientra se envia el reporte de movimientos por correo electronico"
LOCAL oEmail,nremite,ndestina,eremite,edestina,cfecha
USE datosemail.dbf
GO top
nremite=ALLTRIM(nom_remite)
eremite=ALLTRIM(remite)
ndestina=ALLTRIM(nom_para)
edestina=ALLTRIM(epara)
nserver=ALLTRIM(smtp)
cfecha=DTOC(DATE())
LOCAL d,m,a
D=ALLTRIM(STR(DAY(DATE())))
m=ALLTRIM(STR(MONTH(DATE())))
an=ALLTRIM(STR(YEAR(DATE())))
a=SUBSTR(an,3,2)
cfile="S1"+d+m+a+".TXT" &&S1=Sucursal 1

oEmail = CREATEOBJECT("JMail.Message")
oEmail.Logging = .T.
oEmail.Silent = .T.
oEmail.From = eremite
oEmail.FromName = nRemite
oEmail.AddRecipient(edestina,ndestina)
*-- Asunto
oEmail.Subject = "Email automatico de movimientos realizados de la Sucursal 1 el dia: &cfecha"

oEmail.Body = "Email enviado Automaticamente al cerrar Sesion " + ;
"del Sistema se anexa cierre del dia

* Adjuntos.
oEmail.AddAttachment(FULLPATH(cFile),.F.)

LOCAL lOk
lOk = oEmail.SEND(nserver) && smtp.prodigy.net.mx
IF lOk
MESSAGEBOX("Felicidades el email se ha enviado Satisfactoriamente!",0+64,'Send Email')
ELSE
MESSAGEBOX("El Email No fue recibido por el Servidor!",0+16,'Send Email')
ENDIF
DELETE FILE &cFile
CLOSE ALL

Algo de esto te puede ayudar en tu problema:
http://www.portalfox.com/index.php?name=News&file=article&sid=2626
Espero que te sirva!!!!!!

estas utilizando el mismo administrador de correos en las 3 sucursales

SI... al parecer ya empiezo a solucionarlo necesitaba una ajustada en el DMZ Firewalls del Modem.. si el problema persiste... voy tener que molestarlos... de antemano voy a hechar una hojeada en la liga que dice mauricio...

muchas gracias..
saludos
Wolfman32

cuando gustes..