smtp

[Nuria]

Menos mal, siempre estaís ahí, para corregirme...

[[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.

[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.

[Julià T.]

Hola Volare:

te falla la conexión

  try
    IdSmtp1.Connect;//falla aquí
    try
      // Envio el mensaje.
      IdSmtp1.Send(idMessage1);
    finally
      IdSmtp1.Disconnect;
    end;
    ShowMessage('Enviado Correctamente');
  except
    ...
  end;

para poderte conectar, necesitas:
Host: la dirección o el nombre de tu servidor de correo. ej tu_servidor.com
User: la cuenta de usuario. ej tu_cuenta_de_correo
Password: el pàssword del usuario. ej tu_password_de_correo

[VolaRe]

Coño Juliá T. muchas gracias, casi me habeis tenido que dar un tiron de orejas para que me diera cuenta, yo pensaba que el host era la ip, por eso nunca lo ponia, y no la direccion del smtp.

Al leer este mensaje me ha entrado vergüenza y to, de lo burrico que he sido con esto.

Bueno gracias por vuestro tiempo.

[DarkByte]

Suele pasar , hasta los grandes programadores se equivocan en las cosas mas tontas... Yo estube a punto de tirar un monitor hasta que me dí cuenta que estaba desenchufado xD