problemas con jmail
Publicado por Willy (76 intervenciones) el 12/12/2006 21:10:51
Hola foxeros, necesito una ayuda, estuve desarrollando en win98 una aplicacion que corria en otro win98, ahí utilizaba el jmail y los envios de correos lo hacia bien, pero ahora han cambiado de Sistema Operativo y usamos Win2000 y la apliación ya no envia los mails, me sale un error:
The message was underiverable. All servers failed to receive the message.
Es algo raro ya que win98 no tenia ningun problema, quiza alguno de Uds. les ha pasado, agradecé sus comentarios.
Este es el codigo que uso:
oMail = Createobject("jmail.SMTPMail")
oMail.ServerAddress = "192.168.254.1"
oMail.AddRecipient ("[email protected]")
oMail.Sender = "[email protected]"
oMail.Subject = "Titulo del email"
oMail.Body = "Enviado automaticamente por el Sistema de forja"
oMail.AddAttachMent (raiz+backup+".txt")
nRet = oMail.Execute()
If nRet != .T.
=Messagebox(Transform(oMail.errorCode))
ELSE
MESSAGEBOX(' el requerimiento se envio con exito',64,'Mensaje de usuario')
EndIf
Release oMail
The message was underiverable. All servers failed to receive the message.
Es algo raro ya que win98 no tenia ningun problema, quiza alguno de Uds. les ha pasado, agradecé sus comentarios.
Este es el codigo que uso:
oMail = Createobject("jmail.SMTPMail")
oMail.ServerAddress = "192.168.254.1"
oMail.AddRecipient ("[email protected]")
oMail.Sender = "[email protected]"
oMail.Subject = "Titulo del email"
oMail.Body = "Enviado automaticamente por el Sistema de forja"
oMail.AddAttachMent (raiz+backup+".txt")
nRet = oMail.Execute()
If nRet != .T.
=Messagebox(Transform(oMail.errorCode))
ELSE
MESSAGEBOX(' el requerimiento se envio con exito',64,'Mensaje de usuario')
EndIf
Release oMail
Valora esta pregunta
0