问一下发送邮件的程序出现这个问题是怎么回事？
程序代码如下
begin
idsmtp.Host:='smtp.21cn.com';
idsmtp.Port:=25;
idsmtp.Username:='xxx';
idsmtp.Password:='xxx';
//由于个人隐私问题，这里的用户名，密码和EMAIL地址都是虚构的
idmessage.From.Address:='xxx@21cn.com';
idmessage.Recipients.EMailAddresses:='xxx@hotmail.com';
idmessage.Subject:='你好';
idmessage.Body.Text:='你好你好你好你好你好你好你好你好你好';
Tidattachment.Create(idmessage.MessageParts,'F:\1.txt');
try
idsmtp.Connect(1000);
idsmtp.Send(idmessage);
finally
if idsmtp.Connected then idsmtp.Disconnect;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
执行到这里出错，提示“Connection Closed Gracefully”
请问这是什么原因？
end；
end；
问题点数：30、回复次数：4Top
1 楼Dlwxn（Dlwxn）回复于 2005-08-03 10:54:39 得分 0
关于这个问题的官方解释：
http://www.swissdelphicenter.ch/en/showarticle.php?id=1
中文：
http://dev.csdn.net/Develop/article/23/23137.shtm
Top
2 楼delphu（）回复于 2005-08-03 11:19:04 得分 0
我刚才修改一下代码
...
try
idsmtp.Connect(1000);
idsmtp.Send(idmessage);
showmessage('1');
except
begin
if idsmtp.Connected then idsmtp.Disconnect;
showmessage('0');
end;
结果是'0'，也就是说，邮件没有发送，请问我的程序到底哪里出问题了？
是不是21cn没有smtp服务？我试了用smtp.163.net，smtp.sina.com.cn好像都是不行
能给点建议吗？
Top
3 楼moonspot（月亮黑子）回复于 2006-01-24 16:35:34 得分 0
你看一下Indy的例子，和你的对比下。
我就是照抄Indy的例子，发送没问题。Top
4 楼小乖（Xi@oGu@i）回复于 2006-02-05 21:08:02 得分 0
会不会是邮件内容，包括回信地址，回信人姓名等等都太虚假了？
smtp服务器也会过滤很多邮件垃圾的，有问题的群发邮件都会被拒之门外的。。。
不如自己架设个smtp服务器好了，，当时我做垃圾群发的时候就是自己架设的smtp。Top
