Enviar email dos boletos em pdf

[joaomello]

Ao executar "ACBrBoletoFCFR1.GerarPDF" será criar um arquivo pdf com todos os boletos gerados, por exemplo uns 10 boletos, como faço pra separar esses boletos e encaminhar para o e-mail dos respectivos clientes?

[Juliomar Marchetti]

18 minutos atrás, joaomello disse:

Ao executar "ACBrBoletoFCFR1.GerarPDF" será criar um arquivo pdf com todos os boletos gerados, por exemplo uns 10 boletos, como faço pra separar esses boletos e encaminhar para o e-mail dos respectivos clientes?

Vou te ajudar a você encontrar a resposta assim sendo poderá sanar outras dúvidas!

na pasta do svn tem exemplos e do boleto existe um lá e que faz uma pequena demonstração !

[joaomello]

1 minuto atrás, Juliomar Marchetti disse:

Vou te ajudar a você encontrar a resposta assim sendo poderá sanar outras dúvidas!

na pasta do svn tem exemplos e do boleto existe um lá e que faz uma pequena demonstração !

Juliomar eu vi os exemplos, mas não encontrei nenhum com envio de boletos por e-mail.

[Juliomar Marchetti]

O pior é que tem, veja a imagem que segue o botão enviar e-mail

 

[joaomello]

12 minutos atrás, Juliomar Marchetti disse:

O pior é que tem, veja a imagem que segue o botão enviar e-mail

 

Nos meus exemplos não tem esse botão, e acabei de atualizar... Você poderia me mandar o que tem no botão. Obrigado!

[Juliomar Marchetti]

Tem sim abre o exemplo em lazarus! eles sempre estão completos mais que em delphi!

[Charbel]

Em 22/01/2016 at 16:54, Juliomar Marchetti disse:

O pior é que tem, veja a imagem que segue o botão enviar e-mail

 

Como faço pra baixar essa versão com envio pro email

Em 22/01/2016 at 17:56, Juliomar Marchetti disse:

Tem sim abre o exemplo em lazarus! eles sempre estão completos mais que em delphi!

Como faço pra baixar essa versão com envio pro email.

Em 22/01/2016 at 17:08, joaomello disse:

Nos meus exemplos não tem esse botão, e acabei de atualizar... Você poderia me mandar o que tem no botão. Obrigado!

Como faço pra baixar essa versão com envio pro email.

[Juliana Tamizou]

Bom dia.

Os exemplos em lazarus ficam no mesmo caminho dos exemplos em delphi, ou seja "..\Exemplos\ACBrBoleto\Lazarus\..."

Att.

[joaomello]

Mas o exemplo só mostra como enviar 1 e-mail, não tem como eu enviar por exemplo 10 emails com boletos para diversos clientes ao mesmo tempo não? Outro detalhe quando "GerarPDF" é criado um pdf com todos os boletos, como gerar 1 pdf pra cada boleto separadamente?

[joaomello]

Resolvido!

Era só  "ACBrBoleto1.ListadeBoletos.Clear" antes de enviar e-mail, aí ele envia um pdf para os clientes com seus respectivos boletos. Antes de "Titulo := ACBrBoleto1.CriarTituloNaLista", porque se você criar uma lista e depois EnviarEmail, ele acumula e manda todos os boletos dos clientes na lista.

Editado 25 Janeiro, 2016 por joaomello
Melhorar o entendimento da resposta

[Charbel]

Em 22/01/2016 at 16:31, joaomello disse:

Ao executar "ACBrBoletoFCFR1.GerarPDF" será criar um arquivo pdf com todos os boletos gerados, por exemplo uns 10 boletos, como faço pra separar esses boletos e encaminhar para o e-mail dos respectivos clientes?

joaomello

Seria possivel vc me ajudar com um exemplo, estou com dificuldade em fazer esta rotina.

5 horas atrás, Juliana Tamizou disse:

Bom dia.

Os exemplos em lazarus ficam no mesmo caminho dos exemplos em delphi, ou seja "..\Exemplos\ACBrBoleto\Lazarus\..."

Att.

So pra saber quando abro com o delphi 7 ele abre totalmente truncado, sem que eu possa ver como e feito o exemplo.

caso tenha um exemplo agradeço

[joaomello]

2 horas atrás, Charbel disse:

joaomello

Seria possivel vc me ajudar com um exemplo, estou com dificuldade em fazer esta rotina.

So pra saber quando abro com o delphi 7 ele abre totalmente truncado, sem que eu possa ver como e feito o exemplo.

caso tenha um exemplo agradeço

Sem problemas...

Vamos lá, eu fiz o seguinte: Eu tenho um grid os boletos selecionados, aí fiz um loop para criar os titulos e no início do loop eu limpei a lista e criei novamente e no final eu enviei os e-mails, assim ele envia um por um, ou seja, envia o boleto para cada cliente.

Código:

    QrReceitas.First;
    while not QrReceitas.eof do
    begin
          ACBrBoleto1.ListadeBoletos.Clear;
          Titulo := ACBrBoleto1.CriarTituloNaLista;
          with Titulo do
           begin
             LocalPagamento    := DMDados.Qry_lojaLOJ_PRM_INSTRUCAODECAIXA.Value + '   ' + MsgVencto;
             Vencimento        := StrToDate(FormatDateTime('dd/mm/yyyy', DMDados.CliDS_ReceitasListagemVENCIMENTO_RECEITA.Value));
             DataDocumento     := StrToDate(FormatDateTime( 'dd/mm/yyyy', DMDados.CliDS_ReceitasListagemEMISSAO_RECEITA.AsDateTime));
             EspecieDoc        := Trim(edtEspDoc.Text);
             EspecieMod        := Trim(edtEspecie.Text);
             Aceite         := atSim
             DataProcessamento := StrToDate(FormatDateTime('dd/mm/yyyy', Date));
             Carteira          := DMDados.qryContasCC_CARTEIRA.AsString;
             NumeroDocumento   := DMDados.CliDS_ReceitasListagemNUMDOCTO_RECEITA.AsString;
             ValorDocumento    := DMDados.CliDS_ReceitasListagemVALOR_RECEITA.Value;;
             Sacado.NomeSacado := DMDados.CliDS_ReceitasListagemNOME_PESSOA.AsString;;
             Sacado.Email      := DMDados.CliDS_ReceitasListagemEMAIL_PESSOA.AsString;;
             Sacado.CNPJCPF := Trim(DMDados.CliDS_ReceitasListagemCPFCNPJ_PESSOA.AsString);
             Sacado.Pessoa  := pJuridica;
             Sacado.Logradouro := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_ENDERECO.AsString), 1, 31);
             Sacado.Bairro     := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_BAIRRO.AsString), 1, 15);
             Sacado.Cidade     := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_CIDADE.AsString), 1, 15);
             Sacado.UF         := Trim(DMDados.CliDS_ReceitasListagemCOB_UF.AsString);
             Sacado.CEP        := Trim(DMDados.CliDS_ReceitasListagemCOB_CEP.AsString);
             ValorMoraJuros  := StrToFloat('0');
             ValorAbatimento := DMDados.CliDS_ReceitasListagemREC_DESCONTO.AsCurrency;
             DataMoraJuros   := Now;
             DataAbatimento  := 0;
             Sacado.Complemento := '';
             NossoNumero := IntToStr(DMDados.Qry_ContasCC_NOSSONUMEROEXT.AsInteger + cont);
             if TipoInteracao = ImprimirComEmail then
                ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);
             Next;
           end;
          QrReceitas.Next;
    end;

 

[Charbel]

Bom  joaomello , entao agradeço faço o mesmo loop para adicionar mais aonde coloco as informacoes pra que seja enviado o email, como smtp, email de envio, porta essas informacoes pois vi que tem 

 

  if TipoInteracao = ImprimirComEmail then
                ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);

obrigado pela ajuda pois tenho muita necessidade desta rotina

[joaomello]

35 minutos atrás, Charbel disse:

Bom  joaomello , entao agradeço faço o mesmo loop para adicionar mais aonde coloco as informacoes pra que seja enviado o email, como smtp, email de envio, porta essas informacoes pois vi que tem 

 

  if TipoInteracao = ImprimirComEmail then
                ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);

obrigado pela ajuda pois tenho muita necessidade desta rotina

Você usa o componete ACBrMail1 nele tem todos essas informações é só preencher e depois conecte-o ao componente do boleto acbr e pronto. Esse "if" que fiz foi uma variável que criei.

[Charbel]

ACBrMail1 , nao tenho ele instalado em qual componente ele esta pra eu instalar ? pois instalei o acbr pelo instalador..e ele nao instalou

[Juliomar Marchetti]

na verdade ele faz parte de um dos requisitos

deve de estar marcado a opção ACBrTCP , ele está junto

[Charbel]

blz muito obrigado..esse grupo e demais..

So pra agradecer e dizer que funcionou perfeitamente, tanto a instalação do ACBREMAIL quanto a rotina de envio.

[Ubirajara]

Em 25/01/2016 at 17:19, joaomello disse:

Sem problemas...

Vamos lá, eu fiz o seguinte: Eu tenho um grid os boletos selecionados, aí fiz um loop para criar os titulos e no início do loop eu limpei a lista e criei novamente e no final eu enviei os e-mails, assim ele envia um por um, ou seja, envia o boleto para cada cliente.

Código:

    QrReceitas.First;
    while not QrReceitas.eof do
    begin
          ACBrBoleto1.ListadeBoletos.Clear;
          Titulo := ACBrBoleto1.CriarTituloNaLista;
          with Titulo do
           begin
             LocalPagamento    := DMDados.Qry_lojaLOJ_PRM_INSTRUCAODECAIXA.Value + '   ' + MsgVencto;
             Vencimento        := StrToDate(FormatDateTime('dd/mm/yyyy', DMDados.CliDS_ReceitasListagemVENCIMENTO_RECEITA.Value));
             DataDocumento     := StrToDate(FormatDateTime( 'dd/mm/yyyy', DMDados.CliDS_ReceitasListagemEMISSAO_RECEITA.AsDateTime));
             EspecieDoc        := Trim(edtEspDoc.Text);
             EspecieMod        := Trim(edtEspecie.Text);
             Aceite         := atSim
             DataProcessamento := StrToDate(FormatDateTime('dd/mm/yyyy', Date));
             Carteira          := DMDados.qryContasCC_CARTEIRA.AsString;
             NumeroDocumento   := DMDados.CliDS_ReceitasListagemNUMDOCTO_RECEITA.AsString;
             ValorDocumento    := DMDados.CliDS_ReceitasListagemVALOR_RECEITA.Value;;
             Sacado.NomeSacado := DMDados.CliDS_ReceitasListagemNOME_PESSOA.AsString;;
             Sacado.Email      := DMDados.CliDS_ReceitasListagemEMAIL_PESSOA.AsString;;
             Sacado.CNPJCPF := Trim(DMDados.CliDS_ReceitasListagemCPFCNPJ_PESSOA.AsString);
             Sacado.Pessoa  := pJuridica;
             Sacado.Logradouro := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_ENDERECO.AsString), 1, 31);
             Sacado.Bairro     := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_BAIRRO.AsString), 1, 15);
             Sacado.Cidade     := Copy(Trim(DMDados.CliDS_ReceitasListagemCOB_CIDADE.AsString), 1, 15);
             Sacado.UF         := Trim(DMDados.CliDS_ReceitasListagemCOB_UF.AsString);
             Sacado.CEP        := Trim(DMDados.CliDS_ReceitasListagemCOB_CEP.AsString);
             ValorMoraJuros  := StrToFloat('0');
             ValorAbatimento := DMDados.CliDS_ReceitasListagemREC_DESCONTO.AsCurrency;
             DataMoraJuros   := Now;
             DataAbatimento  := 0;
             Sacado.Complemento := '';
             NossoNumero := IntToStr(DMDados.Qry_ContasCC_NOSSONUMEROEXT.AsInteger + cont);
             if TipoInteracao = ImprimirComEmail then
                ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);
             Next;
           end;
          QrReceitas.Next;
    end;

 

João, boa tarde.

Como você faz para enviar mais de um boleto para o mesmo cliente? Tem alguma configuração para que ele mande todos no mesmo pdf? Seguindo essa rotina, cada boleto é um email. Desde já, obrigado.

[joaomello]

35 minutos atrás, Ubirajara disse:

João, boa tarde.

Como você faz para enviar mais de um boleto para o mesmo cliente? Tem alguma configuração para que ele mande todos no mesmo pdf? Seguindo essa rotina, cada boleto é um email. Desde já, obrigado.

Boa tarde Ubirajara,

 

Nesse caso eu salvo todos os boletos numa pasta e depois mandou um email com todos eles em anexo. 

[Ubirajara]

14 horas atrás, joaomello disse:

Boa tarde Ubirajara,

 

Nesse caso eu salvo todos os boletos numa pasta e depois mandou um email com todos eles em anexo. 

Ah sim. Obrigado.