Teste de EnviarEmail

[deco0_07]

Olá pessoal.

Estou precisando pegar o retorno de envio de email, mas não estou conseguindo.

Vocês poderiam testar se o seguinte código exibe a mensagem do except?

Lembrando que preciso que gere uma exceção, então, por favor coloquem configuração de SMTP errada, por exemplo. E deixe o parâmetro de aguardar envio como True.

ACBRNFe1.NotasFiscais.Clear;

ACBRNFe1.NotasFiscais.LoadFromFile(Arquivo);

try

ACBRNFe.NotasFiscais.Items[0].EnviarEmail(SMTP,PORTA,USUARIO,SENHA,FROM,PARA,ASSUNTO,MENSAGEM,True,True,COM_COPIA,nil,False,True,NOME_REMETENTE,True );

except

showmessage('deu mensagem de erro');

end;

showmessage('continua o código');