delphi 邮件收发

procedure TForm1.Button1Click(Sender: TObject); begin if( idMessage = NIL ) then idMessage.Create(Form1); if( idSMTP = NIL ) then idSMTP.Create(Form1); idMessage.Body.Clear; idMessage.Body.Add('mail test '); idMessage.From.Address := '****@tom.com'; idMessage.Recipients.EMailAddresses := '****@***.com'; idMessage.Subject := 'test'; idSMTP.AuthenticationType := atLogin; idSMTP.Username := '****@tom.com'; idSMTP.Password := '****'; idSMTP.Host :='smtp.tom.com'; idSMTP.Port := 25; try idSMTP.Connect(-1); idSMTP.Send(idMessage); idSMTP.DisconnectSocket; idSMTP.Disconnect; idSMTP.Destroy; showmessage('send mail ok'); except idSMTP.Destroy; idMessage.Destroy; showmessage('mail send false'); end; end; 有以上代码尝试发送邮件，结果发送成功，但每次刚执行完idSMTP.Send(idMessage);准备disconnect时，系统总是出现“250 OK queued as oMAAE5pNUAVABVX”的错误提示，请问各位大侠，应该怎么解决此问题？ 　　前几天，一些用户打来电话，说原来在程序中能发送邮件，最近更换了网络，不能发送了，问如何解决。 　　经过测试，发现问题确实如此，通过互联网上的多数邮件系统发送邮件都失败。 　　我在程序开发的过程中使用了IdSMTP控件，该控件支持SMTP的验证，原来的发送代码如下： if IdSMTP1.Connected then begin //如果与邮件服务器链接成功则发送邮件 try //发送邮件 JDT.Visible:=True; Application.ProcessMessages; IdSMTP1.Send(IdMessage1); beep; MeString:='邮件发送成功！'; except MeString:='未能发送邮件，请检查设置！'; end; end; IdSMTP1.Disconnect; 　　经过反复调整，将代码改为如下所示后，发送邮件正常。 if IdSMTP1.Connected and IdSMTP1.Authenticate then begin //如果与邮件服务器链接成功并且正常登录则发送邮件 try //发送邮件 JDT.Visible:=True; Application.ProcessMessages; IdSMTP1.Send(IdMessage1); beep; MeString:='邮件发送成功！'; except MeString:='未能发送邮件，请检查设置！'; end; end; IdSMTP1.Disconnect; 　　即增加了一个是否正常登录邮件服务器的判别操作。因为现在多数SMTP服务器都要求身份验证，能正常链接服务器并不代表通过了身份验证。