Envio de email
 

Distinguido equipo club delphi, una vez mas nesecito de su ayuda, estoy intentando realizar una pequeña aplicación que envie correos desde delphi, y tengo una rutina utilizando SMTP, pero al momento de la conexión me figura un mensaje como este:

PROYECT EMAIL.EXE RAISED EXCEPTION CLASS EIDSOCKETERROR WITH MESSEGE 'SOCKET ERROR #11044', PROCESS STOPEED. USE STEP OR RUN TO CONTINUE

LA RUTINA EMPLEADA ES ESTA :

Código Delphi [-]
procedure TForm1.btenviarClick(Sender: TObject);
var Anexo : Integer;
begin
  IdMessage.Recipients.EMailAddresses := edtPara.Text;
  IdMessage.Subject := edtAssunto.Text;
  IdMessage.Body := mmMensagem.Lines;
  //Manipulando os Anexos
  for Anexo := 0 to lbxAnexos.Items.Count-1 do
   TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));
  IdSMTP.Connect;
  try
    IdSMTP.Send(IdMessage);
  finally
    IdSMTP.Disconnect;
  end;
  Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION +   MB_OK);
end;
end.

Ajala alguien me puede hechar una mano.

gracias.

////Coloque las etiquetas Delphi

Debes estar seguro de haber configurado bien las propiedad del componente IdSMTP, puede ser que el servidor de correo no sea el correcto.

Tiene pinta de ir por donde comenta jhonny o que tengas algo (fireWall, por ejemplo) que te esté "cortando" el acceso a esa dirección.