Como Saber Se O Email Foi Enviado Com Sucesso

[carlos_tedex]

Boa tarde,

 

Utilizo a função de envio de e-mail do ACBr para enviar o XML e PDF da NFe.

 

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail()

Mas estou com as seguintes duvidas:

 

1 - Preciso saber se no envio deu algum erro?

 

2 - Quando da um erro de envio de e-mail o componente mostra a mensagem do erro ate ai tudo certo. Gostaria de saber se tem algum parâmetro para omitir a mensagem para o usuário, pois quando o mesmo faz o envio de varias notas a mensagem atrapalha no processamento das demais.

 

[ricardo_casc]

Pelo fato de ser um procedimento o envio de email o mesmo não retorna erro, uma opção seria vc utilizar a opção UsarThread = True, não ira omitir, mais não vai atrapalhar.

[carlos_tedex]

Pelo fato de ser um procedimento o envio de email o mesmo não retorna erro, uma opção seria vc utilizar a opção UsarThread = True, não ira omitir, mais não vai atrapalhar.

 

ricardo_casc, essa opção por default já esta setada para True

[ricardo_casc]

Mais como comentei, de todo jeito vai mostrar a msg, altere seus fontes para não mostrar os raise's.

[carlos_tedex]

Caro ricardo_casc,

 

Consegui resolver da seguinte maneira. Atribui ao parâmetro UsarThread =  FALSE e fiz o tratamento do erro desta forma:

try
  bEmailEnviado := True;
  ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(...);
except
  bEmailEnviado := False;
end;

Referente a alterar os fontes para não mostrar os raise's não acho interessante, pois quando eu atualizar o componente o que eu alterei será perdido.

 

Agradeço pelas informações, pois através delas consegui chegar à resolução do problema.