Ajuste Na Procedure Enviaremailnormal()

[carlos_tedex]

Boa tarde,

 

Estou utilizando a procedure EnviarEmailNormal() e percebi que a mesma não esta fazendo uso do parâmetro "NomeRemetente" igual a procedure EnviaEmailThread(). Peço aos moderadores se for possível e viável fazer o seguinte ajuste no arquivo "ACBrNFe.pas" e subir para o SVN:

 

Código Atual

m.header.From := sFrom;

 

Código Modificado

if Trim(NomeRemetente) <> '' then
  m.header.From := Format('%s<%s>', [NomeRemetente, sFrom])
else
  m.header.From := sFrom;

 

Grato

[carlos_tedex]

Pessoal ainda necessito realizar esta modificação toda vez que faço uma atualização do componente. Quando tiverem um tempinho favor realizar o ajuste se possível. Grato!

 

Para visualizarem a modificação deixei este comentário no arquivo:

 

//Carlos Eduardo 06/03/2014

 

 

ACBrNFe.pas

[Juliomar Marchetti]

Favor atualizar e obrigado pela contribuição!

 

At revision: 6430