Lianja

Download MIME Source of Emails in IMAP Mailbox

Demonstrates how to download the MIME source for emails on an IMAP server. Lianja

llSuccess = .F.

// This example assumes 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("myLogin","myPassword")
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

// The NumMessages property contains the number of messages in the selected mailbox.
lnNumMessages = loImap.NumMessages
if (lnNumMessages = 0) then
    ? "No messages exist in the Inbox."
    release loImap
    return
endif

loSbMime = createobject("CkStringBuilder")

for seqNum = 1 to lnNumMessages
    loSbMime.Clear()
    llSuccess = loImap.FetchSingleAsMimeSb(lnSeqNum,.F.,loSbMime)
    if (llSuccess = .F.) then
        ? loImap.LastErrorText
        release loImap
        release loSbMime
        return
    endif

    // The MIME source of the downloaded email is contained in sbMime.
next

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


release loImap
release loSbMime