acbrmail - caracteres estranhos ao usar o stringreplace para adequar o meu body.

[raosistemas]

todasobs:='';
                ACBrMail1.Clear;
                acbrmail1.IsHTML:=true;
                ACBrMail1.Subject:=edtassuntolembrete.Text;
                ACBrMail1.Body.Clear;
                ACBrMail1.Body.LoadFromFile(ExtractFilePath(ParamStr(0))+'\imagens\emailboleto.html');
                acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_exclamacao.png','LOGOALERTA');
                acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_logoboleto.jpg','LOGOBOLETO');
                acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_160x63.png','LOGOEMPRESA');
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_TELEFONE',edtEmitFone.Text,[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CLIENTE','Rogério Alves de Oliveira',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_NF','000001',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DOC','00001/1',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_VALOR','R$ 0,01',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_VCTO','00/00/0000',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CODIGOBARRAS','32322 232233 32223.232323 1 33234334344333',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_MULTA','10',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_JUROSDIA','0,033',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DIASPROTESTO','3',[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_EMAIL',edtemail.Text,[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_EMPRESA',edtEmitRazao.Text,[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DATAHORA',formatdatetime('dd/mm/yyyy - hh:nn',now),[rfReplaceAll]);
                acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CODCLIENTE','567',[rfReplaceAll]);

charset no html está UTF8, acbrmail configurado como UTF8...

ao enviar o email recebo todos os caracteres que estão acentuados com caracteres tipo "japoneses".. só os que eu usei o string replace.

para os que já existiam dentro do html que estou carregando estão todos ok.

[Daniel Simoes]

Delphi no Windows usa CP1252

[raosistemas]

coloquei essa codificacao no idecharset e no defaultcharset... aí o conteúdo que já existira no html bagunçou e o conteúdo que coloquei via codigo ficou correto.

[raosistemas]

6 horas atrás, Daniel Simoes disse:

Delphi no Windows usa CP1252

salvei o meu txt que eu estava carregando com no body no formato ANSI... tudo certinho... e fica pra quem estiver o mesmo problema...

 

[Daniel Simoes]

Obrigado por reportar.

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