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;
