Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por raosistemas,
  • Este tópico foi criado há 1462 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1462 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.