CSDN博客

img hua0519

怎样使用IDPOP3控件收取邮件?请给予帮助最好能有一实例?

发表于2004/6/30 1:17:00  1429人阅读

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控件,希望能给予帮助,必非常感谢!

0 0

相关博文

我的热门文章

img
取 消
img