> Tem como enviar um e-mail formato RTF através do componente INDY ?
A melhor forma de fazer isso é criar um email no Outlook, no formato HTML e
olhar os fontes. A partir daí vc tem a base para montar seus emails e envia-los
via Indy.
Ex:
Inicio =
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd";>'#10+
'<HTML>'#10+
'<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">'#10+
'</HEAD>'#10+
'<BODY>';
InicioTabela =
'<TABLE borderColor=#333333 cellSpacing=0 cellPadding=0 width="65%"
border=1>'#10+
' <TBODY>';
FimTabela =
' </TBODY>'#10+
'</TABLE>';
Fim =
'</BODY>'#10+
'</HTML>';
HtmlTotais =
' <TR>'#10+
' <TD><table width="%s" border="0" cellspacing="2" cellpadding="2">'#10+
' <TR bordercolor="#333333">'#10+
' <TD width="%s"><div align="right"><strong><FONT face=Arial
size=2>Total Bundles:</FONT></strong></div></TD>'#10+
' <TD width="%s"><strong><FONT face=Arial
size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' <TR bordercolor="#333333">'#10+
' <TD><div align="right"><strong><FONT face=Arial size=2>Total
Slabs:</FONT></strong></div></TD>'#10+
' <TD><strong><FONT face=Arial size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' <TR bordercolor="#333333">'#10+
' <TD><div align="right"><strong><FONT face=Arial size=2>Total
Height (Gross):</FONT></strong></div></TD>'#10+
' <TD><strong><FONT face=Arial size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' <TR bordercolor="#333333">'#10+
' <TD><div align="right"><strong><FONT face=Arial size=2>Total
Height (Net):</FONT></strong></div></TD>'#10+
' <TD><strong><FONT face=Arial size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' <TR bordercolor="#333333">'#10+
' <TD><div align="right"><strong><FONT face=Arial size=2>Total
Area
(Net):</FONT></strong></div></TD>'#10+
' <TD><strong><FONT face=Arial size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' <TR bordercolor="#333333">'#10+
' <TD><div align="right"><strong><FONT face=Arial size=2>Total
Area
(Net):</FONT></strong></div></TD>'#10+
' <TD><strong><FONT face=Arial size=2>%s</FONT></strong></TD>'#10+
' </TR>'#10+
' </table><BR></BR></TD>'#10+
' </TR>';
A partir das constantes acima eu vou montando meus emails (existem mais aqui no
meu sistema)
Note que existem vários %s no texto. Eu uso para substituir meus campos de
bancos de dados:
Result := Result +
Format(HtmlTotais, [
'100%', '20%', '90%',
fTotais.Data.FieldByName('qtd_itens').AsString,
fTotais.Data.FieldByName('qtd_detalhes').AsString,
FormatFloat('0 Kg', fTotais.Data.FieldByName('peso_bru').AsFloat),
FormatFloat('0 Kg', fTotais.Data.FieldByName('peso_liq').AsFloat),
FormatFloat('0.0000 SFT', fTotais.Data.FieldByName('pe_quad').AsFloat),
FormatFloat('0.00 SQM', fTotais.Data.FieldByName('m2_liq').AsFloat)
]);
Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324
----------------------------------------------------------------------------
http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc....
----------------------------------------------------------------------------
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]
