É Possível usar o ACBmail no ACBrBoleto? E anexar mais de um arquivo?

[Mauricio Elias]

Olá Tudo Bem!

Gostaria de saber no campo MAIL no ACBrBoleto eu posso usar o ACBrMail igual no ACBrnfe?

Se sim como faço para anexar mais de um arquivo(boleto) usando o ACBrmail?

Desde já Muito Obrigado pela Ajuda e Atenção!

Obrigado!

[Juliomar Marchetti]

sim. pode

mas ele vai mandar um a um. salvo engano da configuração

[Alexandre de Paula]

Boa tarde @Mauricio Elias,

Verifique no programa exemplo do ACBrBoleto (http://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrBoleto/)

na aba email, no botão "Enviar Email"

procedure TfrmDemoBoleto.btnEnviarEmailClick(Sender: TObject);
var
  SL: TStringList;
  //i: Integer;
begin
  AplicarConfiguracoesComponenteEmail;
  SL := TStringList.Create;
  try
    SL.Add('Olá,');
    SL.Add('Atenção, Boleto está em Anexo');
    FACBrBoleto.EnviarEmail(edtEmail.Text ,'Teste de Envio de Email', SL, True);

    //Método para envio e-mail de forma individual para cada título
    {for i := 0 to FACBrBoleto.ListadeBoletos.Count -1 do
    begin
      if (FACBrBoleto.ListadeBoletos[i].Sacado.Email <> '') then
        FACBrBoleto.ListadeBoletos[i].EnviarEmail(FACBrBoleto.ListadeBoletos[i].Sacado.Email ,'Teste de Envio de Email', SL, True);

    end;}

  finally
    SL.Free;
  end;
end;

mostra como enviar o email direto pelo boleto.

Também se quiser anexar mais arquivos o  FACBrBoleto.MAIL.AddAttachment() vai funcionar normalmente. Somente fique atento se for fazer o envio de múltiplos emails para controlar corretamente os anexos.
 

[Mauricio Elias]

Em 31/08/2023 at 15:26, Alexandre de Paula disse:

Boa tarde @Mauricio Elias,

Verifique no programa exemplo do ACBrBoleto (http://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrBoleto/)

na aba email, no botão "Enviar Email"

procedure TfrmDemoBoleto.btnEnviarEmailClick(Sender: TObject);
var
  SL: TStringList;
  //i: Integer;
begin
  AplicarConfiguracoesComponenteEmail;
  SL := TStringList.Create;
  try
    SL.Add('Olá,');
    SL.Add('Atenção, Boleto está em Anexo');
    FACBrBoleto.EnviarEmail(edtEmail.Text ,'Teste de Envio de Email', SL, True);

    //Método para envio e-mail de forma individual para cada título
    {for i := 0 to FACBrBoleto.ListadeBoletos.Count -1 do
    begin
      if (FACBrBoleto.ListadeBoletos[i].Sacado.Email <> '') then
        FACBrBoleto.ListadeBoletos[i].EnviarEmail(FACBrBoleto.ListadeBoletos[i].Sacado.Email ,'Teste de Envio de Email', SL, True);

    end;}

  finally
    SL.Free;
  end;
end;

mostra como enviar o email direto pelo boleto.

Também se quiser anexar mais arquivos o  FACBrBoleto.MAIL.AddAttachment() vai funcionar normalmente. Somente fique atento se for fazer o envio de múltiplos emails para controlar corretamente os anexos.
 

Obrigado Alexandre de Paula por me responder.

Desculpa só estar respondendo hoje é como aqui é uma Software House então estava enviando um por vez ae tive que fazer outras demandas de clientes, e acabei não vendo sua resposta, perdão.

Vou tentar usar o FACBrBoleto.MAIL.AddAttachment(), muito Obrigado pela dica.

Por Favor pode encerrar o tópico como resolvido.

Mais uma vez desculpa pela demora em responder.

Obrigado á Todos pela Ajuda!

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.