Envio de Boletos por email

[JADSON]

Olá, estou enviando os boletos por e-mail mais em alguns casos ao executar a aplicação pelo atalho na área de trabalho o arquivo boleto.PDF está sendo gerado na própria área de trabalho ao invés do path da aplicação, e quando o componente tenta procurar esse arquivo no path da aplicação não acha pois foi gerado na área de trabalho. Lembrando que isso acontece em alguns casos esporadicamente.

[Daniel Simoes]

Tente reproduzir o problema usando o projeto Demo do ACBrBoleto... Se conseguir, favor fornecer o passo a passo para a reprodução do erro...

[Adonis]

Bom Dia;

Gostaria de saber qual componente usar para enviar boletos pelo acbr? ; queria começar a fazer minha rotina para enviar boletos pelo acbr!

Grato

Rafael Hussein Ribeiro

[JADSON]

RESOLVIDO COM O CÓDIGO ABAIXO, ADMINISTRADORES FAVOR VERIFICAR.

NA unit ACBrBoleto

procedure TACBrBoleto.EnviarEmail

    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;

[Juliana Tamizou]

Boa tarde.

Favor anexar a unir alterada para facilitar a análise.

Att.

[JADSON]

Segue o anexo

[Adonis]

Bom Dia;

Estou com um pequeno problema ao enviar o boleto por e-mail, acontece o seguinte erro em anexo!

Grato

[JADSON]

Não estou conseguindo visualizar os anexos.

[Adonis]

Bom Dia...

 

 

O Erro está em anexo!

 

Grato

[Adonis]

Bom Dia;

 

Estou a 2 dias esperando a resposta da pergunta acima!

 

Gostaria de saber o que significa este erro do anexo acima!

 

Urgência

 

Grato

[Jéter Rabelo Ferreira]

Boa tarde.

 

Se você der uma pesquisada no google a respeito do erro I/O 105 (http://www.delphifaq.com/faq/delphi/delphi_ide/f153.shtml) vera que o mesmo significa:

 

105 File not open for output

 

O Arquivo foi criado e/ou existe?

 

Atenciosamente.

Jéter Rabelo Ferreira

[Paulo Augusto]

Ainda com problema de envio do boelto por email...

 

apliquei as correções:

 

    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;

 

        Boleto.EnviarEmail('smtp.gmail.com',
                           '587',
                           '[email protected]',
                           '1234',
                           '[email protected]',
                           '[email protected]',
                           'Boleto bancario ',
                           nil,
                           True, // ssl
                           True, // enviar pdf
                           nil,
                           nil,
                           false,
                           false,
                           'Paulo',
                           true // tsl);

 

e continuo recebendo a mensagem de Erro SMTP ERROR login???-Other Undefined Status
alguem sabe me dizer onde estou errando ou como corrigir

[Leao]

Olá Paulo, mude a porta para 465

mas ocorre outra mensagem de erro "O sistema não pode encontrar o caminho especificado"

realmente precisa os moderadores dar uma olhada...

 

obrigado,

Leão

[Juliomar Marchetti]

tenta deixar o tsl false

mas com a porta certa 587

[Leao]

Olá Juliomar, fiz a modificação, continua com o mesmo erro

"O sistema não pode encontrar o caminho especificado"

 

  nodiretorio:=CamposResultado_banco2[1]+'\Boletos\'+Ano(XDateEdit1.DateValue)+'_'+Mes(XDateEdit1.DateValue)+'_'+Dia(XDateEdit1.DateValue)+'\';

        ACBrBoleto1.ACBrBoletoFC.NomeArquivo :=ExtractFilePath(nodiretorio)+Trim(wnome_cliente)+' '+XNumEdit1.Text+'P'+XNumEdit2.Text+'A.pdf'
 

o caminho estar correto, inclusive gera uma copia do .pdf na pasta conforme configuração...

 

Obrigado e aguardo

 

Leão

[Paulo Augusto]

Fiz conforme as duas sugestões e o erro continua

[Paulo Augusto]

 

Editado 15 Março, 2013 por Paulo Augusto

[Leao]

é, realmente continua, alguém se habilita ou estar usando...

 

Aguardando...

 

Leão

[Leao]

Aguardando alguém....

 

Leão

[EMBarbosa]

Aguardando alguém....

 

Leão

Fique a vontade para ser o alguém e sugerir uma resposta.

[Leao]

Fiz as recomendações sugeridas mas continua o mesmo a mensagem

"O sistema não pode encontrar o caminho especificado"

Imprimi e gera o .pdf, normalmente só não consegue usar a opção enviar e-mail.

 

Se alguém conseguio fazer, por favor, publicar aqui

 

Obrigado,

Leão

[sidnei_alves1]

Amigo não sei se é isso que esta dando problema pra voce

mais eu ajustei o ACBrBoleto assim

 

 

 

if (EnviaPDF) then
begin
   if ACBrBoletoFC.NomeArquivo = '' then
      ACBrBoletoFC.NomeArquivo := 'boleto.pdf';
   GerarPDF;
end else
begin
   if ACBrBoletoFC.NomeArquivo = '' then
      ACBrBoletoFC.NomeArquivo := 'boleto.html';
   GerarHTML;
end;

NomeArq:=ACBrBoletoFC.NomeArquivo;
m.AddPartBinaryFromFile(NomeArq, p);

 

o erro vinha que não era informado o caminho e nome do arquivo a variável NomeArq, ficando em branco dando erro;

Editado 19 Março, 2013 por sidnei_alves1

[Leao]

Sidnei, não é o caso, porque no EnviarEmail, a opção estar com True, assim tende a condição se.O erro

"O sistema não pode encontrar o caminho especificado"

Imprimi e gera o .pdf, normalmente só não consegue usar a opção enviar e-mail.

Agradeço ao Sidnei, se alguém tiver outra sugestão...

 

 

Obrigado,

Leão

[sidnei_alves1]

Então, olhe o seu Fonte ai e olhe o trecho de código que postei, no caso a variável NomeArq, não esta sendo carregada com o nome do arquivo, faz um debug pra você ver.
 

ao chegar neste treco você vai ver que a variável não tem informação de nome ou de endereço do arquivo para fazer o anexo no Email.

desculpe se não for isso que precisa.

 

Sidnei.

[Leao]

Sidnei, obrigado, fiz conforme exemplo, re-compilei os fontes do boleto,e continua a mesma mensagem.

 

Obrigado,

Leão