Rotina de EnviarEmail - Erro ao enviar arquivo

[sfwinfo]

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