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. Lianja

llSuccess = .F.

// 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.example.com")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

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

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

loEmail = createobject("CkEmail")

lnUid = 2014
llIsUid = .T.

llSuccess = loImap.FetchEmail(.F.,lnUid,llIsUid,loEmail)
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    release loEmail
    return
endif

// 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

? "--"

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


release loImap
release loEmail