Ir para conteúdo
  • Cadastre-se

dev botao

AcbrBoleto1.EnviarEmail


gilsoftware
  • Este tópico foi criado há 2892 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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
        );

 

Link para o comentário
Compartilhar em outros sites

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.

  • Curtir 3
Consultor SAC ACBr Jean Patrick Figueiredo dos Santos
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

                    DJPDV - Um frente de caixa SIMPLES e COMPLETO

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.