(Visual FoxPro) POP3 Fetch a Single Email by UIDL

Demonstrates how to fetch a single email by UIDL.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL loSa
LOCAL lcUidl
LOCAL i
LOCAL lnNumUidls
LOCAL loEmail

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

loMailman.MailHost = "pop.example.com"

loMailman.PopUsername = "myLogin"
loMailman.PopPassword = "myPassword"

loMailman.MailPort = 995
loMailman.PopSsl = 1

loSa = loMailman.GetUidls()
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Download each email by UIDL.

i = 0
lnNumUidls = loSa.Count
DO WHILE i < lnNumUidls
    lcUidl = loSa.GetString(i)
    ? lcUidl

    loEmail = loMailman.FetchEmail(lcUidl)
    IF (loMailman.LastMethodSuccess = 0) THEN
        ? loMailman.LastErrorText
        RELEASE loMailman
        CANCEL
    ENDIF

    ? loEmail.Subject
    ? ""
    RELEASE loEmail

    i = i + 1
ENDDO

RELEASE loSa

RELEASE loMailman