(Lianja) Fetch Single Email by UID or Sequence Number

Assuming the UID is known, download a single email by UID from an IMAP mail server.

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.

loImap = createobject("CkImap")

// Connect to an IMAP server.
// Use TLS
loImap.Ssl = .T.
loImap.Port = 993
llSuccess = loImap.Connect("imap.someMailServer.com")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Login
llSuccess = loImap.Login("***","***")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Select an IMAP mailbox
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

lnUid = 2014
llIsUid = .T.

loEmail = loImap.FetchSingle(lnUid,llIsUid)
if (loImap.LastMethodSuccess = .T.) then

    // Display the From and Subject
    ? loEmail.FromAddress
    ? loEmail.Subject

    // Display the Body property, which is the default body.
    // If an email has an HTML body, the Body property contains
    // the HTML source.  Otherwise it contains the plain-text
    // body.
    ? "---- EMAIL BODY ----"
    ? loEmail.Body
    ? "--------------------"

    // Display the recipients:

    for j = 0 to loEmail.NumTo - 1
        ? loEmail.GetToName(j) + ", " + loEmail.GetToAddr(j)
    next
    for j = 0 to loEmail.NumCC - 1
        ? loEmail.GetCcName(j) + ", " + loEmail.GetCcAddr(j)
    next

    // Show the total size of the email, including body and attachments:
    ? str(loEmail.Size)

    // When a full email is downloaded, we would use the
    // email.NumAttachments property in conjunction with the
    // email.GetMailAttach* methods.
    // However, when an email object contains only the header,
    // we need to access the attachment info differently:
    lnNumAttach = loImap.GetMailNumAttach(loEmail)
    ? str(lnNumAttach)

    for j = 0 to lnNumAttach - 1
        ? loImap.GetMailAttachFilename(loEmail,j)
        lnAttachSize = loImap.GetMailAttachSize(loEmail,j)
        ? "    size = " + str(lnAttachSize) + " bytes"
    next

    ? "--"
    release loEmail
endif

// Disconnect from the IMAP server.
llSuccess = loImap.Disconnect()


release loImap