envio de correo falla

[giantonti]

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]

Empezado por giantonti

.. 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 ), 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]

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]

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]

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.