Ola detectei um problema que gostaria que fosse passado para o grupo.
Ao utilizar o comando EnviarEmail informando os parametros solicitados, Se informar um arquivo diferente do padrao de nota fiscal, o assunto e corpo do email saem em branco.
Ao entrar na rotina de SusbtituirVariaveis o sistema analisa pelo que entendi é tem nota fiscal, sendo assim se o arquivo for um protocolo ou qualquer arquivo diferente de NFe. Ele sai da rotina e apaga o retorno.
Alteração que fiz foi antes de sair da rotina gravar em Return a informação do assunto ou corpo. Abaixo onde mudei
if frmAcbrNfeMonitor.ACBrNFe1.NotasFiscais.Count <= 0 then
Result := TextoStr; // ACRESCENTEI ESSA LINHA
Exit;
Sendo assim ao contar os itens de nota e for = 0 , para qualquer arquivo diferente de NFe ele grava em result a informação (assunto ou corpo)
Espero que tenham entendido.
Abraço
Nilton Bonilha
Sócio-Gerente
SFW Informática
www.sfwinfo.com.br