45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 编程代码 > 阅读资讯:使用IDPOP3控件收取邮件的方法

使用IDPOP3控件收取邮件的方法

2016-09-09 07:20:50 来源:www.45fan.com 【

使用IDPOP3控件收取邮件的方法

Delphi6中,提供了IDPOP3控件,我能检测到邮箱中的邮件却不能收取邮件件,使用Retrieve方法不能得到理想的结果,我写的代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var iCount : integer;
msg : TidMessage;
begin
msg :=TIdMessage.Create(self);
iCount :=0;
idpop31.Host := edit1.Text;
idpop31.UserId:=edit2.Text;
idpop31.Password:=edit3.Text;

idpop31.Connect;
if idpop31.Connected then
showmessage('已经成功登陆到邮件服务器!');

showmessage(inttostr(idpop31.CheckMessages));

idpop31.Retrieve(iCount,msg);
//明明有邮件为什么得不到信息?

idpop31.Disconnect;
msg.Free;
end;

如果哪位熟悉IDPOP3控件,希望能给予帮助,必非常感谢!

 

本文地址:http://www.45fan.com/bcdm/73944.html
Tags: 怎样 控件 IDPOP3
编辑:路饭网
推广内容
推荐阅读
热门推荐
推荐文章
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部