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;