(Lianja) POP3 Fetch Mime Source of Email by UIDL

Demonstrates how to fetch the MIME source of a single email by UIDL.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loMailman = createobject("CkMailMan")

loMailman.MailHost = "pop.example.com"

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

loMailman.MailPort = 995
loMailman.PopSsl = .T.

loSa = loMailman.GetUidls()
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

lnNumUidls = loSa.Count
loBdMime = createobject("CkBinData")

// Download the 1st email and save to a file.
if (lnNumUidls > 0) then
    lcUidl = loSa.GetString(0)
    ? lcUidl

    // Download the MIME source of the email into bdMime.
    // The bdMime contains the email exactly as it is on the mail server.
    llSuccess = loMailman.FetchMimeBd(lcUidl,loBdMime)
    if (llSuccess = .F.) then
        ? loMailman.LastErrorText
        release loMailman
        release loBdMime
        return
    endif

    llSuccess = loBdMime.WriteFile("qa_output/firstEmail.eml")
endif

release loSa


release loMailman
release loBdMime