关于Indy组件的邮件发送及接收的问题，很急！！！！(100分)

小第目前在开发一个管理软件，其中有邮件处理这一块，本人对indy组件不是很了解，但在DFW看了很多也没有找到解决办法，请大侠们不吝赐教！
目前碰到问题如下：
1、怎么把邮件正文为HTML的转换为正常的文本形式。
2、为什么我用Delphi的Demo中的MailDemo不能发送邮件。
3、我从DFW上Copy下来的邮件专递的代码不能发送163.com 21cn.com sina.com.cn 的邮件，但是Sohu.com的可以。（见下面代码）

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdUDPBase, IdUDPClient, IdDNSResolver,
IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze;

type
TForm1 = class(TForm)
IdAntiFreeze1: TIdAntiFreeze;
IdSMTP: TIdSMTP;
IdDNSResolver: TIdDNSResolver;
IdMsgSend: TIdMessage;
Button1: TButton;
eto: TEdit;
Label1: TLabel;
ezt: TEdit;
Label3: TLabel;
efrom: TEdit;
Label4: TLabel;
memo1: TMemo;
function SendMail() : Boolean;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure GetMxList(AMxList: TStringList; AQName: string);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.GetMxList(AMxList: TStringList; AQName: string);
{ *****************************************************************************
这个过程是用来得到邮件特快专递目的地服务器名称及优先级别数，参数AMXList是用
　来接收结果值，AQName代表传递过来的域名
*****************************************************************************}
var
i: Integer;
begin

with IdDNSResolver do
begin
//Host := '202.101.107.55';
Host := '202.101.107.55';
{ Host属性用来指定域名服务器的地址，此处为笔者所在地
的主域名服务器地址，你也可以指定任一可以快速访问到的Internet上域名服务器
地址，要知道自己所在地的域名服务器地址，win98下通过winipcfg命令,win2000下
通过ipconfig /all即可查出。}
ReceiveTimeout := 10000;// 在指定的时间内得不到域名服务器的反馈，则视为失败。
ClearVars;// 清除前一次查询所反馈回来的资源记录

{ 构建此次查询的头部结构 }
with DNSHeader do
begin
Qr := False; // False 代表查询
Opcode := 0; // 0代表标准域名查询
RD := True; //域名服务器可以进行递归查询
QDCount := 1; //查询的数量
end;

{ 构建要查询的问题 }
DNSQDList.Clear;
with DNSQDList.Add do
begin
QName := AQName; //要查询的域名
QType := cMX; //QTYPE指定要查询的资源记录的种类，值为cMX代表邮件交换记录
QClass := cIN;
end;

ResolveDNS; //向域名服务器发出请求

{ 从域名服务器接收反馈的结果，将反馈回来的邮件服务器名称放在AMXList列表的Name部分，
邮件服务器的优先级别数放在Value部分。 }
for i := 0 to DNSAnList.Count - 1 do
AMxList.Add(DNSAnList.RData.MX.Exchange + '=' +
IntToStr(DNSAnList.RData.MX.Preference));
end;
end;

function TForm1.SendMail: Boolean;
var
MxList: TStringList;
i: Integer;
QName, ThoughAddress: string;
begin
{ 根据用户所填写的内容创建邮件 }
if IdSmtp.Connected then
IdSmtp.Disconnect;

with IdMsgSend do
begin
Body.Assign(memo1.Lines);
From.Address := Trim(efrom.Text); //发件人地址
Recipients.EMailAddresses := Trim(eto.Text); //收件人地址
Subject := ezt.Text; //邮件主题
end;

{ 从输入的收件人地址中取出邮箱域名，利用前面的GetMxList过程得到目的地地址 }
// QName := TrimRight(copy(edtTo.Text, Pos('@', edtTo.Text) + 1, Length(edtTo.Text)));
//QName :='sina.com.cn';
QName := TrimRight(copy(eto.Text, Pos('@', eto.Text) + 1, Length(eto.Text)));
MxList := TStringList.Create;
try
GetMxList(MxList, QName);
ThoughAddress := MxList.Names[0]; {取反馈回来的第一个服务器为目的地，读者可
根据实际需要改进，比如说考虑到信件的优先级或当你选择的服务器因繁忙而暂时
不能处理你的信件时，换用其它服务器试试 }
finally
MxList.Free;
end;

{ 发送邮件 }
with IdSMTP do
begin
Host := ThoughAddress; // 将Host赋值为目的地，这就是特快专递与普通邮件的区别
Port := 25; // smtp服务默认的端口为25
Connect; //连接到服务器
try
Send(IdMsgSend); //发送刚才创建的邮件
ShowMessage('发送完毕'); //发送完毕后提示
finally
Disconnect; //断开服务器连接
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMail;
end;

--------------------------------------------------
以上3个问题请大侠们帮忙解决一下，十分的感谢！

不是吧，这个问题没有回答呀，大虾都跑哪了

建议你去看看这个
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359545
这个能解决发送的问题

chlf6312,谢谢你了，我用的Delphi6,没办法改呀，请问你有没有办法

这里可以下载到indy9和indy10的最高版本
http://indy.fulgan.com/ZIP/
建议使用indy10，这个版本的indy10已经十分稳定，而且那些发送问题早已被解决，估计很难再被封杀了

TO:lzf1010,非常感谢，我用indy10好了，但是现在用碰到发送和接收邮件正文html格式的问题，怎么办，请你帮我解决，如果分不够可以再加！

IdMessage1.ContentType := 'Text/Html';
不写上条语句的情况下默认为Text。这个是在发送的时候这样，接收的时候在什么地方设，你自己查下

1. 需要些个过滤函数之类的，把 html 代码过滤掉。Foxmail也许就这么做的。
其他的建议使用sakemail 或 mail2000 来创建发送邮件，比indy方便。