急求，如何在delphi 7 中向内部的exchange 邮件服务器发送邮件！然后收信人可以在outlook 中自动收到邮件。最好有源码

Question

如题!急求，如何在delphi 7 中向内部的exchange 邮件服务器发送邮件！然后收信人可以在outlook 中自动收到邮件。最好有源码.之前在6.0上下做过，7.0 下的INDY 看了些demo ,也是晕，不知如何做！

Answer 1

为何连接服务器时提示socket error # 10049，代码如下：
procedure TForm1.Button4Click(Sender: TObject);
begin
  IdSMTP1.Username :='allenting'; //服务器上的用户名
  IdSMTP1.Password :='ding'; //服务器上的密码
  IdSMTP1.Host :='192.168.0.204'; //服务器SMTP地址
  IdSMTP1.Port :=25; //服务器端口
  IdSMTP1.Connect;
end;