[求助]D6中用idsmtp发送邮件,提示connection closed gracefully !怎么办!!??
问题如题,找了很多资料都解决不了,有些书上的光盘实例运行起来也有这个问题。请教大虾怎么解决这个问题呢?小弟万分感激!!!
附我的源代码:
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;