CPop.GetMail 方法

 VIRTUAL METHOD GetMail(
	nMail
) AS USUAL CLIPPER

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

 1FUNC POPReadMail (cServerIP AS STRING,;
 2                    cUser   AS STRING,;
 3                    cPassW  AS STRING,;
 4                    nMail   AS INT ) AS ARRAY PASCAL
 5LOCAL oPop AS CPop
 6LOCAL aRet AS ARRAY
 7LOCAL n AS INT
 8
 9oPop := CPop{cServerIP}
10
11IF oPop:Logon(cUser, cPassW)
12    oPop:GetStatus()
13    n := oPop:MailCount
14
15    IF nMail <= n
16        IF oPop:GetMail(nMail)
17            aRet    := ArrayCreate(3)
18            aRet[1] := oPop:MailHeader
19            aRet[2] := oPop:MailBody
20            aRet[3] := oPop:Attachment
21        ENDIF
22    ENDIF
23ENDIF
24
25oPop:Disconnect()
26
27RETURN aRet