ret:=CreateObject('PoP3','POP3.TINYSOFT.COM.CN',uName,passWord);
  ret.UIDL(ids); //取服务器的邮件唯一标示列表存放在ids中
  s:= str2array(ids,'\r\n');
  ss:=array();
  for i:=0 to length(s)-2 do
    ss[i]:=str2array(s[i],' ');
  ss[:,0]:=strtoint(ss[:,0]);
  MsgID:=ss[3,0];//以第三个邮件为例
  ret.Top(MsgID,r,10); //指定邮件内容前N行
  echo '取邮件的前N行内容:',r[length(r)-40:];
  d:=ret.RetrieveMsgSize(MsgID);//邮件大小
  echo '邮件大小:',d;
  d1:=ret.RetrieveMailBoxSize();//邮箱大小
   echo '邮箱大小:',d1;
  r1:=ret.Retrieve(MsgID,lr); //返回结果为MailMSg类型
  echo '取邮件内容:',r1,' ',lr;
  echo tostn(ReturnMailMsg(lr));
  r2:=ret.RetrieveHeader(MsgID,hr);//返回结果为MailMSg类型
  echo '取邮件头部信息:',r2,' ',hr;
  echo tostn(ReturnMailMsg(hr));
  r3:=ret.RetrieveHeader(MsgID,yr); //返回结果为MailMSg类型
  echo '取邮件的原始内容:',r3,' ',yr;
  echo tostn(ReturnMailMsg(yr));
  ss:=ret.CAPA();
  echo '取服务器的支持命令列表:',ss;
  return ss;