AcbrBoleto1.EnviarEmail

[gilsoftware]

Ola colegas,

há muito tempo não fazia atualização do acbr e resolvi fazer hoje. Tudo foi bem, mas tive problema com os campos do boleto abaixo. Abri o fonte e percebi que está muito diferente dos parâmetros que passava como no exemplo abaixo. Alguém poderia me ajudar? Obrigado

     AcbrBoleto1.EnviarEmail(
        tblUsuariosSMTP.Value,             //servidor smtp
        tblUsuariosPorta.asstring,        // porta smtp
        UsuariosNomeUsuarioEmail.value, //nome usuario
        tblUsuariosSenhaUsuarioEmail.Value,//email  usuario
        tblUsuariosEmail.asstring,         //de
        email,                                        //para
        'Boleto ref NFe Emtida ',                    //titulo
        msg,                                         //mensagem
        UsuariosSSL.Value,             // ssl
        true,                                         // pdf
        nil,                                          // cc email
        nil,                                          //anexo
        false,                                        //pede confirma
        false,                                        //aguarda envio
        '',                                           //nomeremetente
        tblUsuariosTLS.Value              // tls
        );

 

[Jean Patrick]

Agora, para enviar e-mails,é preciso antes associar um componente ACBrMail ao componente ACBrBoleto, através da propriedade MAIL:

ACBrBoleto1.MAIL := ACBrMail1;

with ACBrBoleto1.MAIL do
begin
  From      := tblUsuariosEmail.AsString;             // e-mail do remetente
  FromName  := 'Seu Nome';                            // nome do remetente
  Username  := tblUsuariosNomeUsuarioEmail.AsString;  // nome usuario
  Password  := tblUsuariosSenhaUsuarioEmail.AsString; // email usuario
  Host      := tblUsuariosSMTP.AsString;              // servidor smtp
  Port      := tblUsuariosPorta.AsString;             // porta smtp
  SetSSL    := tblUsuariosSSL.AsBoolean;              // ssl
  SetTLS    := tblUsuariosTLS.AsBoolean;              // tls
  UseThread := False;                                 // False = aguarda envio, True = envia em segundo plano
  ReadingConfirmation := False;                       // pede confgirmação
end;

ACBrBoleto1.EnviarEmail(
  email,                    //para
  'Boleto ref NFe Emtida ', //titulo
  msg,                      //mensagem
  true,                     // pdf
  nil,                      // cc email
  nil                       // anexos
);

A mesma mudança ocorreu em outros componentes do ACBr que possuem o método EnviarEmail.

[gilsoftware]

obrigado amigo