请高手指教！(200分)

用Indy控件发送HTML格式的邮件时，如果没有附件，则发送正常，如果插入附件，
尽管邮件的格式设置成text/Html，发送的邮件也为文本格式。请高手指教如何解
决。

以前收藏的一个：

pnljh (2003-03-07 19:32:00)
问题：
Indy发送Html格式的邮件，并带有附件时，
邮件的格式设了text/Html后，发出去的却不是html格式，
不带附件却可以，为什么？

twos (2003-02-18 18:23:00)
看一下例子 Delphi安装目录/Demo/Indy/Mailclient

易名烦 (2003-02-18 18:35:00)
我也想知道，还有就是INDY9怎么通过TIdSocksInfo联接邮件服务器。

pnljh (2003-02-19 8:30:00)
例子也有此问题

zhang_yz6666 (2003-02-19 14:05:00)
我遇到的问题和你相反！请看：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1631723

cxz9 (2003-02-19 17:18:00)
with IdMsgSend do
begin
if fileExists(fn) then
body := ToGB(fn)
else
begin
showmessage('文件"' + fn + '"不存在，请稍候再发送此邮件！');
exit;
end;
FileExt := AnsiUpperCase(ExtractFileExt(fn));
if (FileExt = '.HTM') or (FileExt = '.HTML') then
ContentType := 'text/html';
From.Text := UserEmail;
ReplyTo.EMailAddresses := UserEmail;

阿艺 (2003-02-21 15:03:00)
这里有好东东请自已看吧
http://lui2008.8u8.com

P_W_Q (2003-02-21 15:39:00)
附件所對應的數字簽字要包含在Html文檔中

pnljh (2003-02-21 16:50:00)
To P_W_Q：能不能说说怎么做？

pnljh (2003-03-07 13:59:00)
多人接受答案了。

我记得DELPHI6下的DEMO中INDY目录下有一个 mailclient 　好象就是这个功能

gz

To 楼主：
　　昨天回去忘了带过来，我记得大概是这样的（不行的话我明天带过来发给你）：
var
sl:TStringList;
begin
sl:=TStringList.Create;
sl.Add('Html内容');
TIDText.Create(idMessage1.MessageParts,sl);//邮件的正文放这里
TIDText.Create(idMessage1.MessageParts,nil);//这句要有
TIdAttachment.Create(idMessage1.MessageParts,'附件文件名');
end;
//只列出关键部分

pnljh大侠，还是不行。
请继续帮助。

我原来的语句是这样的
IdMessage1.Body.Add('Html内容');
TIdAttachment.Create(IdMessage1.MessageParts,'附件文件名');
IdMessage1.Encoding:=meMIME;
IdMessage1.ContentType:='Text/HTML';
IdMessage1.ContentTransferEncoding:='Base64';
出现如前所述的问题。

明天给你。

感谢各位高手指教！