使用范例:
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;
打印的信息截图:(只展示部分信息)