Estimado se que es un tema ya revisado pero no he podido solucionar
Tengo una app que debe enviar mail y la cuenta que utilizo no tiene credencial (password) solo me entregan el servidor smtp y el user , me conecto a al servicio pero cuando realizo el send la aplicación se queda detenida, no responde lo que realizo es lo siguiente
Código Delphi
[-]
SMTP := TIdSMTP.Create( nil );
Mensaje_Mail := TIdMessage.Create( nil );
Mensaje_Mail.Clear;
Mensaje_Mail.From.Address := 'xxxx@misitio.com';
Mensaje_Mail.Recipients.Add.Text:='cuentadestino@misitio.com';
Mensaje_Mail.Subject := 'Conexion a base datos';
Mensaje_Mail.Body.Text := 'Se conecto con éxito a base datos';
with SMTP do
begin
AuthType:=satNone;
Username := 'APPS_CECLCES@app.misitio.com';
Host := 'smtpapp.misitio.com';
Port := 587;
end;
SMTP.Connect;
SMTP.Send( Mensaje_Mail );
Como no tiene password es un parámetro que no completo , efectúe pruebas con otra cuenta que tiene password pero tampoco funciona y no estoy seguro si el puerto de salida es el corresponde ya que windows ocupó el 25 y si la app debe tener algun permiso especial para poder enviar mail
Su ayuda por favor ya que solo encuentro donde se trabaja con SSL y gmail lo cual tampoco he logrado que me envie mail