如何获知163邮箱有无未读邮件？

Question

如何获知163邮箱有无未读邮件？
窗体中有一按钮，当按下时，弹出一个显示未知邮件个数的对话框或窗体．
按下按下时，不能弹出ｉｅ窗口．但可以调用ｉｅ
可以用其它组件，但窗口中，只显示一个按钮．不能显示其它组件．

Answer 1

SMTP 163的邮件是支持这个协议的.如果你要做不用IE窗口的话就直接用这个协议好了.DELPHI里面也有这个控件的.

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  idpop31.Host:='pop3.163.com';
  idpop31.Port := 25; 加上这句，马上显示连接失败，没有这句，显示你没有使用ｐｏｐ3的权限
  idpop31.Username:='abc';
  idpop31.Password:='123';
  try
  idpop31.Connect;
  for i:= 1 to idpop31.CheckMessages do begin
  idpop31.RetrieveHeader(i,idmessage1);
  with listview1.Items.add do begin
  caption:=idmessage1.From.Text;
  subitems.Add(idmessage1.Recipients.EMailAddresses);
  subitems.Add(idmessage1.Subject);
  subitems.Add(datetostr(idmessage1.Date));end;
end;
except
showmessage('连接服务器失败，气死我了');
idpop31.Disconnect;
end;
end;
end.这些代码是照书上打的，就是运行时显示，没有权限使用ｐｏｐ3是什么怎么回事？