Alteração objeto EMail no ACBrMonitorPlus

[VinheSoft]

Boa Noite

segue alteração de metodos do objeto Email, na unit DoEmailUnit.pas

Linha: 169
else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail}
       Body.Text := Cmd.Params(0)

alteração:
else if Cmd.Metodo = 'textomensagem' then {informa o texto do e-mail}
       Body.Add( Cmd.Params(0) )

 

Linha: 172
else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail}
       AltBody.Text := Cmd.Params(0)

alteração:
else if Cmd.Metodo = 'textoalternativo' then {informa o texto alternativo (texto puro) do e-mail}
       AltBody.Add( Cmd.Params(0) )

Com esta alteração podemos enviar vários comandos, e o monitor vai montando o corpo do email.
Do jeito que esta, ele so considera o ultimo envio com corpo do email, também tentei enviar o corpo de uma vez
incluindo o comando de Final de linha, porem o monitor sempre separa o comando e não executando corretamente.

Att

VinheSoft
Joao Carlos 

 

DoEmailUnit.pas

[JSantos]

João Carlos,

Outra alternativa que usamos aqui:

Body.Text := StringReplace(Cmd.Params(0),'\n',#13+#10,[rfIgnoreCase,rfReplaceAll])

AltBody.Text := StringReplace(Cmd.Params(0),'\n',#13+#10,[rfIgnoreCase,rfReplaceAll])

 

[Celso Marigo Junior]

@VinheSoft, obrigado pela contribuição, já está no SVN: [11929]