CPop.DeleteMail 方法

 VIRTUAL METHOD DeleteMail(
	nMail
) AS USUAL CLIPPER

[ClipperCallingConventionAttribute(new string[] { ... })]
public virtual __Usual DeleteMail(
	__Usual nMail = default
)

 1FUNC POPGetMails (cServerIP AS STRING,;
 2                    cUser   AS STRING,;
 3                    cPassW  AS STRING,;
 4                    lDelete AS LOGIC ) AS ARRAY PASCAL
 5    LOCAL oPop AS CPop
 6    LOCAL aRet AS ARRAY
 7    LOCAL i,n AS INT
 8
 9    oPop := CPop{cServerIP}
10
11    IF oPop:Logon(cUser, cPassW)
12        oPop:GetStatus()
13        n       := oPop:MailCount
14        aRet    := oPop:ListMail()
15
16        IF lDelete
17            // 删除所有消息
18            FOR i := 1 TO n
19                oPop:DeleteMail(i)
20            NEXT
21        ENDIF
22    ENDIF
23
24    oPop:Disconnect()
25
26    RETURN aRet