Envio De Boleto Por E-Mail

Vinicius Sanchez · 28 Maio, 2015

Boa tarde pessoal,

Estou implementando o processo de geração de boleto utilizando o ACBr no meu projeto. A geração funcionou perfeitamente, porem quando vou utilizar o método disponível no componente de enviar o e-mail com o boleto, o mesmo não funciona. Estava olhando os fontes do ACBr e vi que foi comentado os códigos referente ao mesmo.

procedure TACBrBoleto.EnviarEmail(const sSmtpHost,
                                      sSmtpPort,
                                      sSmtpUser,
                                      sSmtpPasswd,
                                      sFrom,
                                      sTo,
                                      sAssunto: String;
                                      sMensagem : TStrings;
                                      SSL : Boolean;
                                      EnviaPDF: Boolean = true;
                                      sCC: TStrings=nil;
                                      Anexos:TStrings=nil;
                                      PedeConfirma: Boolean = False;
                                      AguardarEnvio: Boolean = False;
                                      NomeRemetente: String = '';
                                      TLS : Boolean = True;
                                      HTML:Boolean = False);
var
  ThreadSMTP : TSendMailThread;
  m:TMimemess;
  p: TMimepart;
  StreamNFe : TStringStream;
  i: Integer;
begin
  m:=TMimemess.create;

  ThreadSMTP := TSendMailThread.Create(Self) ;  // Não Libera, pois usa FreeOnTerminate := True ;
  StreamNFe  := TStringStream.Create('');
  try
    p := m.AddPartMultipart('mixed', nil);
    if sMensagem <> nil then
//       m.AddPartText(sMensagem, p);
      if HTML = true then
         m.AddPartHTML(sMensagem, p)
      else
         m.AddPartText(sMensagem, p);

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


    if assigned(Anexos) then
       for i := 0 to Anexos.Count - 1 do
       begin
          m.AddPartBinaryFromFile(Anexos[i], p);
       end;

    m.header.tolist.add(sTo);

    if Trim(NomeRemetente) <> '' then
       m.header.From := Format('%s<%s>', [NomeRemetente, sFrom])
    else
       m.header.From := sFrom;

    m.header.subject:= sAssunto;
    m.Header.ReplyTo := sFrom;
    if PedeConfirma then
       m.Header.CustomHeaders.Add('Disposition-Notification-To: '+sFrom);
    m.EncodeMessage;

    ThreadSMTP.sFrom := sFrom;
    ThreadSMTP.sTo   := sTo;
    if sCC <> nil then
       ThreadSMTP.sCC.AddStrings(sCC);
    ThreadSMTP.slmsg_Lines.AddStrings(m.Lines);

    ThreadSMTP.smtp.UserName := sSmtpUser;
    ThreadSMTP.smtp.Password := sSmtpPasswd;

    ThreadSMTP.smtp.TargetHost := sSmtpHost;
    if trim(sSmtpPort)<>'' then     // Usa default
       ThreadSMTP.smtp.TargetPort := sSmtpPort;

    ThreadSMTP.smtp.FullSSL := SSL;
    ThreadSMTP.smtp.AutoTLS := TLS;


    ThreadSMTP.Resume; // inicia a thread
    if AguardarEnvio then
    begin
      repeat
         Sleep(1000);
         Application.ProcessMessages;
      until ThreadSMTP.Terminado;
    end;
 finally
    m.free;
    StreamNFe.Free ;
 end;
end;

procedure TACBrBoletoFCQuick.Imprimir;
var
  frACBrBoletoQuick : TACBRBoletoFCQuickFr;
  RLLayout: TQuickRep;
  //MultiExport : TQRMultiExport ;
  //FiltroExportacao: TQRPAbstractExportFilter;
  //HTMLFilter  : TQRHTMLDocumentFilter ;
begin
  inherited Imprimir;    // Executa verificações padroes

  frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);
  try
     with frACBrBoletoQuick do
     begin
        case LayOut of
           lCarne  : RLLayout:= BoletoCarne;
           lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;
        else
           RLLayout := LayoutBoleto;
        end;

        RLLayout.PrinterSettings.Copies := NumCopias ;

        case Filtro of
          fiPDF  :
            begin
//              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
//                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
//                RLLayout.ExportToFilter(FiltroExportacao);
              finally
//                FiltroExportacao.Free;
              end;
//               MultiExport := TQRMultiExport.Create(self);
//               try
//                  MultiExport.Report       := RLLayout ;
//                  MultiExport.ExportFormat := qrxPDF ;
//                  MultiExport.FileName     := NomeArquivo ;
//                  MultiExport.ShowDialog   := MostrarSetup ;
//                  MultiExport.DPI          := 300 ;
//                  MultiExport.DoExport ;
//               finally
//                  MultiExport.Free ;
//               end ;
            end ;

          fiHTML :
            begin
               (*  Codigo abaixo comentado pois  não funciona...
               HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );
               try
                  RLLayout.ExportToFilter( HTMLFilter );
               finally
                  HTMLFilter.Free ;
               end ;
               *)
               raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;
            end ;
        else
          begin
            if MostrarPreview then
               RLLayout.PreviewModal
            else
             begin
               if MostrarSetup then
                  RLLayout.PrinterSetup ;

               if (RLLayout.Tag = 0) then
                  RLLayout.Print;
             end ;
          end
        end ;
     end ;
  finally
     frACBrBoletoQuick.Free ;
  end;
end;

Repare que os códigos estão comentados. Alguém por favor pode me ajudar? Alguém utiliza o envio de boleto por e-mail?

OBS: Utilizo o Delphi 2010 e uso o Quick Report.

Att: Vinicius Sanchez

Juliana Tamizou · 29 Maio, 2015

Boa noite.

Qual é o problema que você está tendo?

Att.

Vinicius Sanchez · 29 Maio, 2015

Estou gerando os boletos pelo ACBR, porém o mesmo não exporta para PDF e nem é consigo fazer o envio por e-mail do boleto.

Banco: Todos
Componente: ACBRBoleto + QuickReport

Delphi 2010

Att: Vinicius Sanchez

Juliana Tamizou · 29 Maio, 2015

Bom dia.

Afim de concentrar os esforços em mlehorias e correções num número menor de componentes, estamos deixando de fornecer suporte aos boletos em QuickReport por isso recomendo a utilização do fortes report.

Att.

Alberto Scolnik · 31 Maio, 2015

Boa tarde pessoal,

Estou implementando o processo de geração de boleto utilizando o ACBr no meu projeto. A geração funcionou perfeitamente, porem quando vou utilizar o método disponível no componente de enviar o e-mail com o boleto, o mesmo não funciona. Estava olhando os fontes do ACBr e vi que foi comentado os códigos referente ao mesmo.

procedure TACBrBoleto.EnviarEmail(const sSmtpHost,
                                      sSmtpPort,
                                      sSmtpUser,
                                      sSmtpPasswd,
                                      sFrom,
                                      sTo,
                                      sAssunto: String;
                                      sMensagem : TStrings;
                                      SSL : Boolean;
                                      EnviaPDF: Boolean = true;
                                      sCC: TStrings=nil;
                                      Anexos:TStrings=nil;
                                      PedeConfirma: Boolean = False;
                                      AguardarEnvio: Boolean = False;
                                      NomeRemetente: String = '';
                                      TLS : Boolean = True;
                                      HTML:Boolean = False);
var
  ThreadSMTP : TSendMailThread;
  m:TMimemess;
  p: TMimepart;
  StreamNFe : TStringStream;
  i: Integer;
begin
  m:=TMimemess.create;

  ThreadSMTP := TSendMailThread.Create(Self) ;  // Não Libera, pois usa FreeOnTerminate := True ;
  StreamNFe  := TStringStream.Create('');
  try
    p := m.AddPartMultipart('mixed', nil);
    if sMensagem <> nil then
//       m.AddPartText(sMensagem, p);
      if HTML = true then
         m.AddPartHTML(sMensagem, p)
      else
         m.AddPartText(sMensagem, p);

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


    if assigned(Anexos) then
       for i := 0 to Anexos.Count - 1 do
       begin
          m.AddPartBinaryFromFile(Anexos[i], p);
       end;

    m.header.tolist.add(sTo);

    if Trim(NomeRemetente) <> '' then
       m.header.From := Format('%s<%s>', [NomeRemetente, sFrom])
    else
       m.header.From := sFrom;

    m.header.subject:= sAssunto;
    m.Header.ReplyTo := sFrom;
    if PedeConfirma then
       m.Header.CustomHeaders.Add('Disposition-Notification-To: '+sFrom);
    m.EncodeMessage;

    ThreadSMTP.sFrom := sFrom;
    ThreadSMTP.sTo   := sTo;
    if sCC <> nil then
       ThreadSMTP.sCC.AddStrings(sCC);
    ThreadSMTP.slmsg_Lines.AddStrings(m.Lines);

    ThreadSMTP.smtp.UserName := sSmtpUser;
    ThreadSMTP.smtp.Password := sSmtpPasswd;

    ThreadSMTP.smtp.TargetHost := sSmtpHost;
    if trim(sSmtpPort)<>'' then     // Usa default
       ThreadSMTP.smtp.TargetPort := sSmtpPort;

    ThreadSMTP.smtp.FullSSL := SSL;
    ThreadSMTP.smtp.AutoTLS := TLS;


    ThreadSMTP.Resume; // inicia a thread
    if AguardarEnvio then
    begin
      repeat
         Sleep(1000);
         Application.ProcessMessages;
      until ThreadSMTP.Terminado;
    end;
 finally
    m.free;
    StreamNFe.Free ;
 end;
end;

procedure TACBrBoletoFCQuick.Imprimir;
var
  frACBrBoletoQuick : TACBRBoletoFCQuickFr;
  RLLayout: TQuickRep;
  //MultiExport : TQRMultiExport ;
  //FiltroExportacao: TQRPAbstractExportFilter;
  //HTMLFilter  : TQRHTMLDocumentFilter ;
begin
  inherited Imprimir;    // Executa verificações padroes

  frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);
  try
     with frACBrBoletoQuick do
     begin
        case LayOut of
           lCarne  : RLLayout:= BoletoCarne;
           lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;
        else
           RLLayout := LayoutBoleto;
        end;

        RLLayout.PrinterSettings.Copies := NumCopias ;

        case Filtro of
          fiPDF  :
            begin
//              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
//                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
//                RLLayout.ExportToFilter(FiltroExportacao);
              finally
//                FiltroExportacao.Free;
              end;
//               MultiExport := TQRMultiExport.Create(self);
//               try
//                  MultiExport.Report       := RLLayout ;
//                  MultiExport.ExportFormat := qrxPDF ;
//                  MultiExport.FileName     := NomeArquivo ;
//                  MultiExport.ShowDialog   := MostrarSetup ;
//                  MultiExport.DPI          := 300 ;
//                  MultiExport.DoExport ;
//               finally
//                  MultiExport.Free ;
//               end ;
            end ;

          fiHTML :
            begin
               (*  Codigo abaixo comentado pois  não funciona...
               HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );
               try
                  RLLayout.ExportToFilter( HTMLFilter );
               finally
                  HTMLFilter.Free ;
               end ;
               *)
               raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;
            end ;
        else
          begin
            if MostrarPreview then
               RLLayout.PreviewModal
            else
             begin
               if MostrarSetup then
                  RLLayout.PrinterSetup ;

               if (RLLayout.Tag = 0) then
                  RLLayout.Print;
             end ;
          end
        end ;
     end ;
  finally
     frACBrBoletoQuick.Free ;
  end;
end;

Repare que os códigos estão comentados. Alguém por favor pode me ajudar? Alguém utiliza o envio de boleto por e-mail?

OBS: Utilizo o Delphi 2010 e uso o Quick Report.

Att: Vinicius Sanchez

Adicione a unit QRPDFFilt a user do ACBRboletoFCQuickFr. Descomente tudo da procedure TACBrBoletoFCQuick mantendo apenas a exclusão da linha ref, HTMLfilter. Dê um nome com final .pdf ao seu arquivo na propriedade do componente ACBrBoletoFCQuick.NomeArquivo.

Fiz estas alterações e funcionou corretamente com o boleto (arquivo pdf) atachado ao e-mail.

Charbel · 25 Janeiro, 2016

Em 27/05/2015 at 15:42, Vinicius Sanchez disse:

Boa tarde pessoal,

Estou implementando o processo de geração de boleto utilizando o ACBr no meu projeto. A geração funcionou perfeitamente, porem quando vou utilizar o método disponível no componente de enviar o e-mail com o boleto, o mesmo não funciona. Estava olhando os fontes do ACBr e vi que foi comentado os códigos referente ao mesmo.


procedure TACBrBoleto.EnviarEmail(const sSmtpHost,
                                      sSmtpPort,
                                      sSmtpUser,
                                      sSmtpPasswd,
                                      sFrom,
                                      sTo,
                                      sAssunto: String;
                                      sMensagem : TStrings;
                                      SSL : Boolean;
                                      EnviaPDF: Boolean = true;
                                      sCC: TStrings=nil;
                                      Anexos:TStrings=nil;
                                      PedeConfirma: Boolean = False;
                                      AguardarEnvio: Boolean = False;
                                      NomeRemetente: String = '';
                                      TLS : Boolean = True;
                                      HTML:Boolean = False);
var
  ThreadSMTP : TSendMailThread;
  m:TMimemess;
  p: TMimepart;
  StreamNFe : TStringStream;
  i: Integer;
begin
  m:=TMimemess.create;

  ThreadSMTP := TSendMailThread.Create(Self) ;  // Não Libera, pois usa FreeOnTerminate := True ;
  StreamNFe  := TStringStream.Create('');
  try
    p := m.AddPartMultipart('mixed', nil);
    if sMensagem <> nil then
//       m.AddPartText(sMensagem, p);
      if HTML = true then
         m.AddPartHTML(sMensagem, p)
      else
         m.AddPartText(sMensagem, p);

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


    if assigned(Anexos) then
       for i := 0 to Anexos.Count - 1 do
       begin
          m.AddPartBinaryFromFile(Anexos[i], p);
       end;

    m.header.tolist.add(sTo);

    if Trim(NomeRemetente) <> '' then
       m.header.From := Format('%s<%s>', [NomeRemetente, sFrom])
    else
       m.header.From := sFrom;

    m.header.subject:= sAssunto;
    m.Header.ReplyTo := sFrom;
    if PedeConfirma then
       m.Header.CustomHeaders.Add('Disposition-Notification-To: '+sFrom);
    m.EncodeMessage;

    ThreadSMTP.sFrom := sFrom;
    ThreadSMTP.sTo   := sTo;
    if sCC <> nil then
       ThreadSMTP.sCC.AddStrings(sCC);
    ThreadSMTP.slmsg_Lines.AddStrings(m.Lines);

    ThreadSMTP.smtp.UserName := sSmtpUser;
    ThreadSMTP.smtp.Password := sSmtpPasswd;

    ThreadSMTP.smtp.TargetHost := sSmtpHost;
    if trim(sSmtpPort)<>'' then     // Usa default
       ThreadSMTP.smtp.TargetPort := sSmtpPort;

    ThreadSMTP.smtp.FullSSL := SSL;
    ThreadSMTP.smtp.AutoTLS := TLS;


    ThreadSMTP.Resume; // inicia a thread
    if AguardarEnvio then
    begin
      repeat
         Sleep(1000);
         Application.ProcessMessages;
      until ThreadSMTP.Terminado;
    end;
 finally
    m.free;
    StreamNFe.Free ;
 end;
end;


procedure TACBrBoletoFCQuick.Imprimir;
var
  frACBrBoletoQuick : TACBRBoletoFCQuickFr;
  RLLayout: TQuickRep;
  //MultiExport : TQRMultiExport ;
  //FiltroExportacao: TQRPAbstractExportFilter;
  //HTMLFilter  : TQRHTMLDocumentFilter ;
begin
  inherited Imprimir;    // Executa verificações padroes

  frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);
  try
     with frACBrBoletoQuick do
     begin
        case LayOut of
           lCarne  : RLLayout:= BoletoCarne;
           lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;
        else
           RLLayout := LayoutBoleto;
        end;

        RLLayout.PrinterSettings.Copies := NumCopias ;

        case Filtro of
          fiPDF  :
            begin
//              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
//                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
//                RLLayout.ExportToFilter(FiltroExportacao);
              finally
//                FiltroExportacao.Free;
              end;
//               MultiExport := TQRMultiExport.Create(self);
//               try
//                  MultiExport.Report       := RLLayout ;
//                  MultiExport.ExportFormat := qrxPDF ;
//                  MultiExport.FileName     := NomeArquivo ;
//                  MultiExport.ShowDialog   := MostrarSetup ;
//                  MultiExport.DPI          := 300 ;
//                  MultiExport.DoExport ;
//               finally
//                  MultiExport.Free ;
//               end ;
            end ;

          fiHTML :
            begin
               (*  Codigo abaixo comentado pois  não funciona...
               HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );
               try
                  RLLayout.ExportToFilter( HTMLFilter );
               finally
                  HTMLFilter.Free ;
               end ;
               *)
               raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;
            end ;
        else
          begin
            if MostrarPreview then
               RLLayout.PreviewModal
            else
             begin
               if MostrarSetup then
                  RLLayout.PrinterSetup ;

               if (RLLayout.Tag = 0) then
                  RLLayout.Print;
             end ;
          end
        end ;
     end ;
  finally
     frACBrBoletoQuick.Free ;
  end;
end;

Repare que os códigos estão comentados. Alguém por favor pode me ajudar? Alguém utiliza o envio de boleto por e-mail?

OBS: Utilizo o Delphi 2010 e uso o Quick Report.

Att: Vinicius Sanchez

Ola preciso tambem enviar por email boletos e uso o acbrboleto...

vc conseguiu se puder me ajudar agradeço

[email protected]

Ola preciso tambem enviar por email boletos e uso o acbrboleto...

vc conseguiu se puder me ajudar agradeço

[email protected]

Em 28/05/2015 at 21:03, Juliana Tamizou disse:

Boa noite.

Qual é o problema que você está tendo?

Att.

Ola preciso tambem enviar por email boletos e uso o acbrboleto...

vc conseguiu se puder me ajudar agradeço na versão demo não temos um exemplo

[email protected]

Vinicius Sanchez · 25 Janeiro, 2016

Charbel, bom dia.

Seu ACBr está atualizado? Está utilizando o FC ou QR? Usando o trunk1 ou trunk2?

Att: Vinicius Sanchez

Entrar

Sobre nós...

Envio De Boleto Por E-Mail

Recommended Posts

Vinicius Sanchez

Link para o comentário

Compartilhar em outros sites

Juliana Tamizou

Link para o comentário

Compartilhar em outros sites

Vinicius Sanchez

Link para o comentário

Compartilhar em outros sites

Juliana Tamizou

Link para o comentário

Compartilhar em outros sites

Alberto Scolnik

Link para o comentário

Compartilhar em outros sites

Charbel

Link para o comentário

Compartilhar em outros sites

Vinicius Sanchez

Link para o comentário

Compartilhar em outros sites

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante