使用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