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;