IdSmtp 用 smtp.netease.com 发送邮件的问题

[idole]

各位兄弟，我以前用idsmtp做的邮件发送程序连接 smtp.netease.com 发送邮件没有问题 （大概半年以前），可是前几天我重新拿出这个程序的时候，发现在发送结束（message可以进行传输）后总是接受到“550 system is busy”的消息，邮件不能正常发送。

但是，当我在我本机上，使用自己的smtp服务器的时候，就可以正常发送。

请问各位，这是 smtp.netease.com的问题，还是idsmtp的问题。

多谢了，在线等待回复。

[idole]

拜托各位，帮帮忙吧

[itperson]

你的idsmtp的发送程序是怎么写的?
请帖出源代码

[idole]

代码如下，请指正

Function SendMymail:Integer;
begin
{ Place thread code here }

//试图连接smtp服务器
with frm_jindu do begin
if SMTP1.Connected then SMTP1.Disconnect;
SMTP1.Host := smtp_svr;
SMTP1.UserId := user_id;
SMTP1.Password:=smtp_pwd;
try
SMTP1.Connect;
except
on Exception do MessageBox(frm_jindu.handle,'无法连接到SMTP服务器！'+#13#10+'请检查是否连接到Internet以及邮件服务器设置。',
'错误',MB_ICONSTOP+MB_OK);
end;

//以下是发送mail
if SMTP1.Connected then
begin
if not smtp1.Authenticate then ShowMessage('验证失败！');

//设置message发送优先级
with form_email do begin
SBar1.Panels[3].Text:='服务器已连接';

WMsg.Replyto.EMailAddresses:= User_email;
WMsg.Recipients.EMailAddresses := Me_to.Lines.Text;
WMsg.CCList.EMailAddresses:= ME_Copy.Lines.Text;
WMsg.Subject:= Me_Subject.Text;
WMsg.Body.Text := RE_Body.Text;
end;


try

SMTP1.send (Form_email.WMsg);
Form_email.SBar1.Panels[3].Text:='mail已经发送成功。';
Result:=1;
except
on Exception do begin
MessageBox(frm_jindu.handle,'无法发送消息，请检查收件人地址以及邮件服务器设置。',
'错误',MB_ICONSTOP+MB_OK);
Form_email.SBar1.Panels[3].Text:='mail发送失败。';
result:=0;
end;
end;
end;
end;
frm_jindu.smtp1.disconnect;

end;


—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......

让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

[plq]

我的程序也出现了这样的问题，原先还用得的，但这几天试了一下以前写的程序，不是出现550 system is busy,就是出现Invaid（具体单词我忘了，好象意思是无效吧） user<your@mail>的提示，我后来使用delphi关于id邮件客户端的例程，也出现这两个问题，因此急切盼望各位大虾帮忙，或提供替代控件，一定要是能够进行身份认证的，谢谢了！！！！！

[invalid]

把系统配置好，先用foxmail，outlook express试试，就知道是什么问题了。