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

Juliana Tamizou

Vinicius Sanchez

Juliana Tamizou

Alberto Scolnik

Charbel

Vinicius Sanchez

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