smtp

[VolaRe]

Strico como se si un mail es invalido.

Yo tengo un problema parecido, no me envia el mail y no se porque, ya eh provado capturando los errores incluso lo que dice jachgate lo de capturar el error en el socket, y na de na, te paso mi codigo haber si....

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdSmtp1.Connect;
    try
      // Envio el mensaje.
      IdSmtp1.Send(idMessage1);
    finally
      IdSmtp1.Disconnect;
    end;
    ShowMessage('Enviado Correctamente');
  except
     // Capturo algunas excepciones que pueden ocurrir
    ON E: EIdProtocolReplyError do begin
      ShowMessage('No se ha podido enviar el email.' + #13 +
          'Incorrecto el email o el usuario o la password.');
    end;
    on E: EFOpenError do begin
      ShowMessage('No se ha podido enviar el email.' + #13 +
          'Fichero Adjunto desconocido o erróneo.');
    end;
    on E: EIdSocketError do begin
      ShowMessage('No se ha podido enviar el email.'+ #13 +
          'Host desconocido o incorrecto. Ha ocurrido el error en el sochet nº ' + IntToStr(e.LastError));
    end
    else begin
      ShowMessage('Fallo en el envio de email');
      Raise;
    end;
  end;
  if IdSmtp1.Connected then IdSmtp1.Disconnect;
end;

El fallo que me indica es el ultimo, fallo en el envio de mail, y cuando pasa a raise me indica "Connection Closed Gracefully".

Haber si de una vez consigo hacer funcionar este componente, gracias.