Saludos a todos, estoy utilizando delphi 5 y los componentes de indy para enviar mails por codigo a un servidor que tiene configurado el outlock para tal objeto. Cambie mi sistema operativo de Server 2000 a Server 2003 y cuando intento enviar correos por mi aplicacion en delphi, me indica el siguiente error:
Project SEMCA.EXE raised exception class EidProtocolReplyError with message '201.143.118.168 is blacklisted in either CBL or Sorbs'
Esa direccion IP es la que tiene definida mi Modem / Router.
Utilizo el siguiente codigo:
Código Delphi
[-] IdSMTP1.Port:= 25;
IdSMTP1.Host:= 'bajaoptica.com';
IdSMTP1.Username:= '';
IdSMTP1.Password:= '';
IdMessage1.Recipients.Add;
IdMessage1.Recipients[0].Name := 'Sugerencias';
IdMessage1.Recipients[0].Address := 'sugerencias@bajaoptica.com';
IdMessage1.From.Name := Nombre;
IdMessage1.From.Address := 'rsalomon@bajaoptica.com';
IdMessage1.Subject:= 'Opinion';
IdMessage1.Body.Text:= msugerencias.Text;
IdSMTP1.Connect(3000);
try
try
IdSMTP1.Send(IdMessage1);
except
on E:Exception do
ShowMessage ('Ha ocurrido un error durante el envio, intente de Nuevo');
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;
ShowMessage ('Gracias por su comentarios!!, su Opinion/Sugerencia sera tratada en forma anonima ');
Close;
Espero que me puedan ayudar, gracias.
Saludos desde Mexicali, Mexico.