Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   envio de correo falla (https://www.clubdelphi.com/foros/showthread.php?t=82795)

giantonti 14-04-2013 15:44:00

envio de correo falla
 
hola foro estoy tratando de que mi aplicacion envie un corre, sin embargo lo probe desde mi oficina y funciona perfecto aunque un poquito lento, ahora lo estoy probando desde mi casa y no se conecta, la informacion es correcta solo que talvez tengo problema con el puerto ya que debe utilizar el 465 ssl y el componente que estoy usando no tiene este tipo de autentificacion. trabajo con firemonkey, tambien he probado a conectarlo a mi exchange pero siempre el problema viene por el puerto ya que exchange usa nml. Finalmente logre crear una cuenta en un hosting y desde mi oficina logre hecharlo andar sin colocarle autentificacion pero ahora desde mi casa no puedo.

Código Delphi [-]
begin
IdSMTP1.Host := 'host.caracasftp.com';
IdSMTP1.Username := 'ist@xxxx.com.ve';
IdSMTP1.Password := 'Passw0rd2010';
//SMTP1.AuthType := satNone;
IdSMTP1.Port := 25;
try
  IdSMTP1.Connect;
except

end;
IdMessage1.From.Address := 'xxx@vic.com.ve';
IdMessage1.Recipients.EMailAddresses := 'xxxx@gmail.com';
IdMessage1.Recipients.EMailAddresses := 'xxx@vic.com.ve';
IdMessage1.Subject := 'Solicitud de Servicio IST Numrto: #' + Editid.Text + ' # ';
IdMessage1.Body.Add('Estimado Cliente: ' + Edit2.Text + ' ');
IdMessage1.Body.Add('Le informamos que se generó el ticket: #' + Editid.Text + ' por la Falla: ' + Memo1.Text + ' , del Equipo: ' + Edit3.Text +' Serial Nro. ' +Edit4.Text +'');
IdMessage1.Body.Add('Solicitud creada: #' + Label13.Text + ' por IST Administrador');
IdMessage1.Body.Add('Tecnico Asignado: #' + edit5.Text + ' atendera este caso personalmente el dia : ' + Label17.text + 'en sus Instalaciones ');
IdMessage1.Body.Add('XXXXXX');
IdMessage1.Body.Add('Ingenieria y Soporte Tecnologicos | Direcion  de SOPORTE');
IdMessage1.Body.Add('xxxxxxxxx');
IdMessage1.Body.Add('xxxxx');

IdSMTP1.Send(Formcaso.IdMessage1);
IdSMTP1.Disconnect;
IdMessage1.Clear;
ShowMessage('Se envio un correo al cliente ' + Edit2.Text + ' con el Numero de Caso ' + Editid.text +'');

   
end;

Casimiro Notevi 14-04-2013 21:02:48

Cita:

Empezado por giantonti (Mensaje 458594)
.. pero ahora desde mi casa no puedo.

Te recuerdo, de nuevo, nuestra guía de estilo, no es porque yo sea un pesado (que lo soy :p), es porque si no explicas correctamente las cosas, es imposible ayudarte.
Date cuenta que "desde mi casa no puedo" no nos sirve de nada para ayudar, ¿tienes internet?, ¿funciona el router/modem?, etc. Aclara todo lo máximo posible.

giantonti 15-04-2013 00:53:59

quiero decir que el viernes desde mi aficina si me funciono perfectamente y ahora desde mi casa (hoy) no he podido es decir que me da un error " NO CONECT". Claramente tengo Internet, El servidor "HOST" esta activo y lo verifique. a la sentencia no le hice ningun cambio. quiero saber si hay algo malo en ella porque ya no puedo enviar correo. O si conocen otra forma de mandarlo, talvez con otro componente que sea mas versatil y que talvez funciones con exchange.

Casimiro Notevi 15-04-2013 01:15:55

Tú ponte en el lugar de cualquier persona que lee lo que has escrito: en mi oficina puedo enviar emails, pero desde mi casa no puedo, ¿por qué puede ser?

Ahora intenta tú mismo adivinar la respuesta. Es totalmente imposible.

orodriguezca 16-04-2013 00:31:54

Posible problema de firewall
 
Si el código que funciona en "tu oficina" es exactamente el mismo código que NO funciona en "tu casa", sin cambiarle absolutamente nada, pero absolutamente nada, entonces yo me inclinaría a pensar que el problema va por los lados de algún firewall; lo más probable es que sea el firewall de tu PC (quizas el firewall de windows). Prueba desactivando completamente el fireware de tu pc y nos cuentas.

A propósito, ¿ El equipo de "tu oficina" es el mismo equipo de "tu casa" o son equipos diferentes?, porque si es el mismo equipo la prueba que estoy planteando no aplica.


La franja horaria es GMT +2. Ahora son las 11:38:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi