Envio de boleto por email, como ter a confirmação de envio?

[rodrigorodrigues]

Pessoal, estou tentando usar a função EnviaEmail da classe ACBRBoleto, na verdade estou extraindo para usar de forma independente, pergunto, como identificar se o email foi enviado com sucesso?

Estou fazendo os seguinte

try

EnviarEmail(Parametros...);

Label7.Caption := 'Email enviado';

except on E:Exception do

begin

Label7.Caption := E.Message;

end;

O envio funciona, porém, eu coloco qualquer informação errada, da o erro so que não entra no except, já examinei o código, vi que a exceção ocorre na classe TSendMailThread só que eu não conseguir indentificar uma forma de capturar o erro no envio do email e mostrar ao usuário

[carlosfilho]

Bom dia,

try

ACBrBoleto1.EnviarEmail(parametros);

except

on e: Exception do

begin

ShowMessage(e.Message);

end;

end;

Deste jeito ele retorna os erros, erro de email errado não retorna, pois se observar quando vc manda email ele retorna outro email com falando que esta errado, desta forma teria que o componente esperar e ler os emais da caixa de entrada, lembrando que tem servidor de email que demora para retornar a msg que teve algum erro.

Att.

Carlos