一个邮件发送的问题

Question

我用的是indy邮件收发控件，pop3收邮件是正常的，但smtp发邮件出现问题。
当idsmtp.connnect的时候，抛出下面的异常：“windows socket error:您的主机中的软件放弃了一个已建立的连接。（10053），on API 'connect' “
这是什么原因呢？我看大家的程序也都是这么写的阿！（我的25端口都是开放的）顺便在问一下，各位用的邮件服务器是自己开发，还是用一些开源的邮件服务器程序？能不能举个例子？

Answer 1

var idmessage1:TIdMessage;
begin
   idmessage1:=tidmessage.Create(application);
   IdSMTP1.AuthenticationType:=atLogin;
    IdSMTP1.Host:='host.com';
    IdSMTP1.Port:=25；
    IdSMTP1.Username:='[email protected]';
    IdSMTP1.Password:='***';
    IdMessage1.From.Address:=edit6.Text;
    IdMessage1.Recipients.EMailAddresses:='[email protected]';
    IdMessage1.Subject:=edit1.Text;
    IdMessage1.Body.Text:=Memo1.Text;
   try
      try
        IdSMTP1.Connect(1000);
        IdSMTP1.Send(IdMessage1);
      end;
    finally
      if IdSMTP1.Connected then
        IdSMTP1.Disconnect;
      idmessage1.Free;
    end;