编程论坛 → Delphi论坛

[求助]D6中用idsmtp发送邮件，提示connection closed gracefully !怎么办！！？？

jiaxuanyao 发布于 2006-09-07 21:42， 2787 次点击

问题如题，找了很多资料都解决不了，有些书上的光盘实例运行起来也有这个问题。请教大虾怎么解决这个问题呢？小弟万分感激！！！

附我的源代码：
idmessage1.Body.Add('test'); //写入邮件正文
idmessage1.From.Text:='me'; //发信人
idmessage1.Recipients.EMailAddresses:='me@163.com'; //收信人地址
idmessage1.Subject:='testtitle'; //邮件标题
idsmtp1.Host:='163.com'; //邮件服务器主机地址
idsmtp1.AuthenticationType:=atlogin;
idsmtp1.UserId:='mememe'; //发信人用户名
idsmtp1.Password:='12345'; //发信人密码

idsmtp1.Port:=25; //smtp默认端口号为25
idsmtp1.Connect();
try
idsmtp1.Send(idmessage1); //发送邮件
showmessage('OK');

finally
idsmtp1.Disconnect;
end;

4 回复

#2

volte2006-09-08 16:07

var
Msg:TidMessage;
Mail:TidSMTP;
begin
with Msg do
begin
From.Text:='xxxxx@163.com';
Recipients.EMailAddresses:='xxxxx@126.com';
Subject:='主题';
Body.Text:='idSMTP邮件发送测试'
end;
with Mail do
begin
Host:='smtp.163.com';
UserName:='xxxxx';
Password:='***********';
Connect;
try
if not Authenticate then Exit;
Send(Msg);
ShowMessage('OK');
finally
Disconnect;
end;
end;

#3

jiaxuanyao2006-09-10 09:12

是不是像163，搜狐，新浪为样的网站邮件都发不了呢？听网友说好像这些大网站搞屏蔽，是不是这样呢？

#4

jiaxuanyao2006-09-10 09:39

回volta，你的代码我试了，结果编译通过，运行出错，说内存访问错误，还自动重启了。。。是怎么回事，麻烦你能帮我调试一下吗？大谢！

另，如何从指定的邮件中获取是否有新邮件（未读）？有这样的控件或方法吗？万望赐教！

#5

volte2006-09-10 09:50

现在很多网站都屏蔽了这样的功能。

确实如此。

1