smtp

[[sitrico]]

Bueno, he tenido el mismo problema (el email no se envía) y no aparece el error.

Uso el código:

Try
   If not(SMTP.Connected) then
      SMTP.Connect;
   SMTP.Send(Mensage);
   SMTP.Disconnect;
   Application.MessageBox('El Registro se Completo con exito','Atención',MB_Ok);
   ModalResult := mrOk;
Except
   Application.MessageBox('El Registro no pudo ser completado','Atención',MB_Ok);
   End;

Que no anida los dos Try como en el código de jachguate (cosa que voy a arreglar) pero lo que si descubri que el error se genera cuando se una una dirección de email invalida en la propiedad :

Mensage.From.Address := fromAddress.Text;

En la que yo asignaba el valor dado por el usuario.