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

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

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

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

多谢了,在线等待回复。

...全文
757 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
invalid 2002-12-07
把系统配置好,先用foxmail,outlook express试试,就知道是什么问题了。
回复
plq 2002-12-07
我的程序也出现了这样的问题,原先还用得的,但这几天试了一下以前写的程序,不是出现550 system is busy,就是出现Invaid(具体单词我忘了,好象意思是无效吧) user<your@mail>的提示,我后来使用delphi关于id邮件客户端的例程,也出现这两个问题,因此急切盼望各位大虾帮忙,或提供替代控件,一定要是能够进行身份认证的,谢谢了!!!!!
回复
idole 2002-11-25
代码如下,请指正

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◣|使♂        ▲自由保存帖子,浏览,关注检测
┃迎|◥论坛助手◤|用┃        ▲完善的CSDN客户端工具
┗━☆━━◇━━━☆┛       ▲自动添加签名......

让你更快,更爽,更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
回复
itperson 2002-11-23
你的idsmtp的发送程序是怎么写的?
请帖出源代码
回复
idole 2002-11-23
拜托各位,帮帮忙吧
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1575

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2002-11-23 02:37
社区公告
暂无公告