F�rum Email est� vindo em formato texto ao inv�s de HTML #365818

04/11/2008

Pessoal, montei aqui uma rotina que envia emails
para v�rios clientes de uma vez em formato HTML.

O engra�ado � que alguns clientes recebem normalmente,
tudo formatado e outros recebem o pr�prio c�digo HTML na integra,
sendo que o mesmo vem em texto.

O conte�do do email � o seguinte c�digo abaixo:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style>
html,body,div,dl,dt,dd,ul,ol,li,h1,h2,h3,h4,h5,h6,pre,form,fieldset,input,p,blockquote,th,td{margin:0;padding:0;} 
img,body,html{border:0;} 
h1,h2,h3,h4,h5,h6{font-size:100�;} 
body{ 
     background: #FFFFFF; 
     color: 000000; 
} 
..tituloEmpresa { 
                background: FFFFFF; 
                color: black; 
                font-family: Tahoma, Verdana, Arial, Serif; 
                font-size: 12px; 
                font-style: normal; 
                font-variant: normal;   
                font-stretch: normal; 
                font-size-adjust: none; 
                font-weight: bold; 
                } 
</style>
</head>
<body>
<div align="center">
<table>
<tr>
<td>
Teste...
</td>
</tr>
</table>
 </body>
</html>

Estou usando na rotina isto:

    lMessage.Body.Clear;
    lMessage.CharSet := �ISO-8859-1�; // force portugues
    lmessage.ContentType:=�text/plain; charset=ISO-8859-1�;
    lMessage.Priority := mpHigh;
    lMessage.Encoding:=meMIME;
    lMessage.NoEncode:=false;
    lmessage.NoDecode:=true;
    lmessage.ContentTransferEncoding:=�base64�;
    lTextPart := TIdText.Create(lMessage.MessageParts);
    lTextPart.CharSet:=�ISO-8859-1�;
    lTextPart.ContentType := �text/html�;
    lMessage.AttachmentEncoding := �MIME�;
    ltextpart.body.LoadFromFile(�c:\recortex.html�);
    lmessage.IsEncoded:=true;

O que ser� isto? O mais interessante � que eu recebo perfeito,
outros clientes tamb�m, por�m algums clientes s� recebem no
formato de texto puro o proprio codigo HTML.

Farnetani

Curtir t�pico

+ 0

Responder