FoxPro/Visual FoxPro - Envio Archivo por email

   
Vista:

Envio Archivo por email

Publicado por Wolfman32 (66 intervenciones) el 30/10/2008 02:42:30
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Envio Archivo por email

Publicado por Mauricio (1367 intervenciones) el 30/10/2008 15:36:15
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!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio Archivo por email

Publicado por Ernesto Hernandez (4632 intervenciones) el 30/10/2008 16:40:37
estas utilizando el mismo administrador de correos en las 3 sucursales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio Archivo por email

Publicado por Wolfman32 (66 intervenciones) el 30/10/2008 17:46:50
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio Archivo por email

Publicado por Ernesto Hernandez (4632 intervenciones) el 30/10/2008 17:47:57
cuando gustes..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar