[Erro Ao Enviar O Boleto Por E-Mail]

Galera, boa tarde...

 

Abaixo segue correção para envio do boleto via e-mail.

O erro acontece quando o sistema é executado na área de trabalho através de atalho.

Acontece que a variável NomeArquivo recebe somente o nome do arquivo sem o caminho, então o sistema utiliza a pasta de execução para gerar o PDF, ou seja, a área de trabalho, mas na hora de anexar o sistema não localiza o arquivo gerado.

Com esta correção o funcionamento fica perfeito.

 

 

*** ERRADO ***

 

    if (EnviaPDF) then

    begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      ACBrBoletoFC.NomeArquivo :='boleto.pdf';

       NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.pdf';

       GerarPDF;

       m.AddPartBinaryFromFile(NomeArq, p);

 

    end else

     begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      ACBrBoletoFC.NomeArquivo :='boleto.html';

       NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.html';

       GerarHTML;

       m.AddPartBinaryFromFile(NomeArq, p);

     end;

 

*** CERTO ***

if (EnviaPDF) then

    begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      NomeArq := ExtractFilePath(Application.ExeName)+'boleto.pdf';

      ACBrBoletoFC.NomeArquivo := NomeArq;

      GerarPDF;

      m.AddPartBinaryFromFile(NomeArq, p);

 

    end else

     begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      NomeArq := ExtractFilePath(Application.ExeName)+'boleto.html';

      ACBrBoletoFC.NomeArquivo := NomeArq;

      GerarHTML;

      m.AddPartBinaryFromFile(NomeArq, p);

     end;