O código abaixo foi extraído do fórum devmedia, e trata do assunto. Não testei,
somente copiei/colei.
//**** INÍCIO DO ARQUIVO ****
IdMessage1.ContentType:='text/html';
IdMessage1.Headers.Values['X-Library'] :='';
IdMessage1.From.Name:='[EMAIL PROTECTED]';
IdMessage1.Recipients.EMailAddresses:='[EMAIL PROTECTED]';
IdMessage1.Subject := 'Assunto';
IdMessage1.Body.Add('Texto da mensagem');
IdMessage1.Body.Add('<font face="Verdana" size="2">');
IdMessage1.Body.Add('Clube do delphi.....<br>');
IdMessage1.Body.Add('</font>');
IdMessage1.Body.Add('<HTML><BODY>');
IdMessage1.Body.Add('<H2>Teste de Envio de Email HTML</H2>');
IdMessage1.Body.Add('</BODY><HTML>');
// nome do seu servidor SMTP
//IdPOP31.Host := 'pop3.poa.terra.com.br';
//IdPOP31.UserId:= '[EMAIL PROTECTED]';
//IdPOP31.Password := '123456';
//IdPOP31.Connect;
IdSMTP1.Host := 'smtp.poa.terra.com.br';
// alguns servidores SMTP requerem login outros não
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.UserId:='[EMAIL PROTECTED]';
//IdSMTP1.Username:=
IdSMTP1.Password := '205431';
// conecta com o servidor
IdSMTP1.Connect;
TIdAttachment.Create(IdMessage1.MessageParts, TFileName('c:\setupxlg.txt'));
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
//IdPOP31.Disconnect;
end;
// **** FINAL DO CÓDIGO ****
----- Mensagem original ----
De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 2 de Janeiro de 2008 19:09:29
Assunto: RE: [delphi-br] Corpo de email em negrito
Com texto normal, impossível. Agora, se vc configurar o texto do corpo do
e-mail como HTML, aí pode. Procura na internet (Google, AltaVista, etc.) que tu
vais encontrar dica pra mandar e-mail em formato HTML. Em texto normal, meu
caro, não existe isso de por texto em negrito.
Sds.
____________ _________ _________ __
To: [EMAIL PROTECTED] os.com.br
From: ricardoravelli@ gmail.com
Date: Wed, 2 Jan 2008 19:07:27 -0300
Subject: [delphi-br] Corpo de email em negrito
Boa noite a todos, alguem sabe como posso fazer parte do corpo do texto
ficar em negrito? Eu uso Delphi 7.
Estou utilizando essa código abaixo... (exemplo).
with IdMessage1 do
begin
Body.Add('teste' );
Body.Add('') ;
Body.Add('O serviço de número:')
Body.Add('') ;
Body.Add('Detalhes do pedido:');
Body.Add('') ;
Body.Add('teste' ');
Body.Add('teste' ');
Body.Add('') ;
Body.Add('teste' ');
Body.Add('teste' ');
end;
Agradeço desde já.
Obrigado.
Ricardo Ravelli.
[As partes desta mensagem que não continham texto foram removidas]
____________ _________ _________ _________ _________ _________ _
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
