Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Acentos No Acbrmail

jose_luiz
 Compartilhar
  • Este tópico foi criado há 3785 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

jose_luiz Apprentice

jose_luiz

Postado
Postado

Boa noite.

 

Tenho essa rotina abaixo funcionando normalmente, mas as letras no corpo do email que tiver acento some da palavra, exemplo:

 

 //pega dados do cliente
  cds_cliente.Close;
  cds_cliente.CommandText:= '';
  cds_cliente.CommandText:= 'select nome,email from cliente where id_cliente = :cod';
  cds_cliente.Params[0].AsInteger:= cds_oficinaID_CLIENTE.AsInteger;
  cds_cliente.Open;
 
 
  email.From            := '[email protected]';
  email.FromName        := 'Digiton Eletrônica Ltda';
  email.Host            := 'smtp.digitoneletronica.com.br';
  email.Username        := '[email protected]';
  email.Password        := '*******';
  email.Port            := '587';
  email.AddAddress('[email protected]');
  email.Subject := 'Orçamento'; // assunto
  email.IsHTML := True; // define que a mensagem é html
  // mensagem principal do e-mail. pode ser html ou texto puro
  email.Body.Text :=
  '<html>'+#13+#10+
  '<head>'+#13+#10+#13+#10+
  '  <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+
  '</head>'+#13+#10+
  '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+
  '<h1>Digiton Eletrônica Ltda</h1><br>'+#13+#10+
  '<h3>ORDEM DE SERVIÇO: '+'( '+cds_oficinaID_OS.AsString+' )'+'</h3><br>'+#13+#10+#13#10+
  '<h3>VALOR DO SERVIÇO: '+'( '+edtOrcamento.text+')'+'</h3><br>'+#13+#10+
  '<h3>Serviço a ser executado: '+'( '+edtDefeito.text+')'+'</h3><br>'+#13+#10+
  '<h4>Aguardamos autorização para executar o Serviço. Obrigado pela preferência...</h4><br>'+#13+#10+
  '</body>'+#13+#10+
  '</html>'+#13+#10;
  email.AltBody.Text := 'Orçamento';
 
  email.Send;
 

se tive no corpo da mensagem uma palavra: CONEXÃO   - CHEGA NO EMAIL ASSIM   - CONEX O. A letra à é retirada da palavra.

 

Alguém poderia me ajudar.

 

 

Grato:

jose_luiz Apprentice

jose_luiz

Postado
  • Autor
Postado

boa noite,

 

Obrigado pela força, no corpo da mensagem deu certo mas no campo assunto(Subject) o problema continua. Teria outra modificação a ser feita?

 

Grato:

  • Este tópico foi criado há 3785 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.