怎么才能不通过SMTP服务器，发送邮件！(100分)

怎么才能不通过SMTP服务器，发送邮件！
并且返回是否发送成功！

用indy9，indy8中有一个serverrelay的例子，程序自带一个smtpserver功能

本文将采用Indy控件集进行域名查询、邮件发送部分的编程。INDY的全名是Internet Direct（也叫Winshoes），是一套开放源代码、跨平台、优秀的Internet控件集，它支持大部分流 行的Internet协议。Delphi 6已经包含了该控件集，如果你使用的是Delphi 6以前的版本，请先 到Indy主页http://www.nevrona.com/Indy/Download.html下载并安装该控件集。

三、窗口设计 向窗体上放置三个TEdit组件，一个TMemo组件，四个Tlabel组件，用到的Indy组件为 TIdDNSResolver、TIdAntiFreeze、TIdSMTP、TIdMessage。其中TIdDNSResolver是用来向域 名服务器发出查询请求并得到结果，TIdMessage用来构建邮件，TIdSMTP用来发送邮 件，TidAntiFreeze可以确保Indy在工作时程序能响应来自外界的消息(注：Indy是以同步的方式 进行工作的，在读或写操作完成之前，其它代码无法执行，加入TidAntiFreeze可以在每隔一段 时间通过呼叫Application.ProcessMessage方法响应来自外界的消息。) 程序的界面如下图所示(箭头所指向的文字标识了该组件的名字)： 四、程序代码(代码中包含了详细的说明)

……(前面一部分省略) type TForm1 = class(TForm) IdDNSResolver: TIdDNSResolver; IdAntiFreeze1: TIdAntiFreeze; btnSend: TButton; IdSMTP: TIdSMTP; IdMsgSend: TIdMessage; mmContent: TMemo; Label1: TLabel; edtTo: TEdit; Label4: TLabel; Label5: TLabel; edtFrom: TEdit; Label6: TLabel; edtSubject: TEdit; procedure btnSendClick(Sender: TObject); private { Private declarations } procedure GetMxList(AMxList: TStringList; AQName: string); public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

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

{ 单击"发送"按钮时发送专递邮件 } procedure TForm1.btnSendClick(Sender: TObject); var MxList: TStringList; i: Integer; QName, ThoughAddress: string; begin { 根据用户所填写的内容创建邮件 } with IdMsgSend do begin Body.Assign(mmContent.Lines); //邮件正文 From.Address := Trim(edtFrom.Text); //发件人地址 Recipients.EMailAddresses := Trim(edtTo.Text); //收件人地址 Subject := edtSubject.Text; //邮件主题 end;

{ 从输入的收件人地址中取出邮箱域名，利用前面的GetMxList过程得到目的地地址 } QName := TrimRight(copy(edtTo.Text, Pos('@', edtTo.Text) + 1, Length(edtTo.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;

end.
希望以上能给你帮助[]

接受答案了.

fgd