indy中用TIdSMTP和TIdMessage发送邮件，如何发送HTML格式的邮件。

Question

indy中用TIdSMTP和TIdMessage发送邮件，如何发送HTML格式的邮件，怎么设置？具体例子请看delphi自带的mailclient

Answer 1

    with IdMessage1 do 
    begin 
      Body.Text:='asdfasdfasdfasdf'; 
      From.Text:='[email protected]'; 
      Recipients.EMailAddresses:='[email protected]'; 
      Subject:='asdfasdf'; 
      ReceiptRecipient.Text:=''; 
    end; 
    IdSMTP1.Host:='smtp.sina.com.cn'; 
    IdSMTP1.Port:=25; 
    IdSMTP1.UserId:='zhangchao7622'; 
    IdSMTP1.Password:='zhangchao'; 
    IdSMTP1.Connect; 
    try 
    IdSMTP1.Send(IdMessage1); 
    Application.MessageBox('asdfasdf','asdfasdf',MB_OK); 
    finally 
    IdSMTP1.Disconnect; 
    end; 这里只能发送TXT文件 html格式的发送如何设置，不能用附件形式。

Answer 2

你把想要发送的html格式的文件的源代码放到body.text中。

Answer 3

发现用下面的代码下载邮件附件时有问题，楼上的，谁能解决？
if IdMessage1.MailParts.item[ n ] is TIdAttachment then
   TIdAttachment( IdMesssage1.MailParts.item[n].SaveToFile( filename) ;对于 163 的附件很容易保存，可不知为什么 sina发的附件 用此代码保存时，发现文件打不开，或是乱码