Pesquisar na Comunidade

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;