Muito bem bolado Jackson, mas quem digita o texto é o cliente a partir de Ordem de Serviço.
Mesmo, assim sua dica foi muito produtiva e me servirá em outras oportunidades. Obrigado Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723 From: Jackson Gomes - Tools&Comps Sent: Friday, November 14, 2008 12:52 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTF via e-mail > 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] [As partes desta mensagem que não continham texto foram removidas]
