TACBrBoleto.EnviarEmail

[FabioMachado]

Boa Noite Galera, estou com dificuldade para conseguir enviar email com os meus boletos, com a utilização do ACBrMail1, não havia achado um pq está dando erro então fui olhar as funções dentro do acbr e achei uma uma diferença entre a função para envio da NFe e o boleto, queria saber se está correta a função do TACBrBoletoEnviarEmail.

procedure TACBrBoleto.EnviarEmail(Const sPara, sAssunto: String;
  sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings);

procedure NotaFiscal.EnviarEmail(sPara, sAssunto: String; sMensagem: TStrings;
  EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings);

[FabioMachado]

Ta correto sim, leseira do amigo. A minha função ficou assim:

 

        tMensagens:=TstringList.Create;
        CC:=TstringList.Create;
        try
          tMensagens.Add(cEmailMensagem);

          if (Trim(sqlClienteCLI_EMAIL_2.AsString) <>'') then
          CC.Add(sqlClienteCLI_EMAIL_2.AsString); //especifique um email válido

          ACBrBoleto.EnviarEmail(sqlClienteCLI_EMAIL_1.asstring, cEmailTitulo,
            tMensagens, True, CC, nil);

       except;
       end;

       CC.Free;
       tMensagens.Free;