[ACBR-8582] Parâmetro "AReplyTo" está sendo ignorado no método "TACBrBoleto.EnviarEmail()"

[fabioaurelio]

Conforme é possível observar no código do método TACBrBoleto.EnviarEmail(), o parâmetro "AReplyTo" é ignorado.

procedure TACBrBoleto.EnviarEmail(const sPara, sAssunto: String;
  sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings;
  AReplyTo: TStrings; sBCC: TStrings);
var
  i: Integer;
  EMails: TStringList;
  sDelimiter: Char;
begin
  if not Assigned(FMAIL) then
    raise EACBrBoleto.Create( ACBrStr('Componente ACBrMail não associado') );

  FMAIL.Clear;

  EMails := TStringList.Create;
  try
    if Pos( ';', sPara) > 0 then
       sDelimiter := ';'
    else
       sDelimiter := ',';
    QuebrarLinha( sPara, EMails, '"', sDelimiter);

    for i := 0 to EMails.Count -1 do
       FMAIL.AddAddress( EMails[i] );
  finally
    EMails.Free;
  end;

  FMAIL.Subject := sAssunto;

  if Assigned(sMensagem) then
  begin
    if FMAIL.IsHTML then
      FMAIL.Body.Assign(sMensagem);

    FMAIL.AltBody.Text := (StripHTML(sMensagem.Text));
  end;

  FMAIL.ClearAttachments;
  if (EnviaPDF) then
  begin
    GerarPDF;
    if ACBrBoletoFC.IndiceImprimirIndividual >= 0 then
        FMAIL.AddAttachment( ACBrBoletoFC.GetNomeArquivoPdfIndividual(ACBrBoletoFC.NomeArquivo, ACBrBoletoFC.IndiceImprimirIndividual)  ,
                        ExtractFileName( ACBrBoletoFC.GetNomeArquivoPdfIndividual(ACBrBoletoFC.NomeArquivo, ACBrBoletoFC.IndiceImprimirIndividual)) )

    else
      FMAIL.AddAttachment(ACBrBoletoFC.NomeArquivo,
                        ExtractFileName(ACBrBoletoFC.NomeArquivo) );
  end
  else
  begin
    GerarHTML;
    FMAIL.AddAttachment(ACBrBoletoFC.NomeArquivo,
                        ExtractFileName(ACBrBoletoFC.NomeArquivo));
  end;

  if Assigned(sCC) then
  begin
    for i := 0 to sCC.Count - 1 do
      FMAIL.AddCC(sCC[i]);
  end;

  if Assigned(Anexos) then
  begin
    for i := 0 to Anexos.Count - 1 do
      FMAIL.AddAttachment(Anexos[i],ExtractFileName(Anexos[i]));
  end;

  if Assigned(sBCC) then
  begin
    for i := 0 to sBCC.Count - 1 do
      FMAIL.AddBCC(sBCC[i]);
  end;

  FMAIL.Send;
end;

 

[Daniel InfoCotidiano]

Boa tarde @fabioaurelio
Este login que vc está usando não é da sua conta ACBr PRO ?
Conforme orientado no discord, precisa ser criado com seu login pro para que eu possa mover para SLA criar tarefas. 
Posts criado com perfil de usuario normal é atendido pela comunidade, espero que entenda.

[Alexandre de Paula]

@fabioaurelio

Criada a tarefa ACBR-8582 para avaliação.

Obrigado por reportar.

[Renato Rubinho]

Olá @fabioaurelio

Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-45498
Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado.