Xbase++

Append a MIME Message to an IMAP Mailbox

Demonstrates the Chilkat Imap.AppendMime method, which uploads a complete RFC 822/MIME message to a mailbox. The first argument is the destination mailbox name and the second is the MIME text. This example obtains the MIME from an Email object and uploads it to Drafts.

Background: Use AppendMime when you already hold a message's raw source — a .eml file, a message you assembled, or one you received. Chilkat sends the text exactly as supplied, without normalizing line endings or re-encoding headers, so every header and MIME boundary is preserved verbatim. The supplied text must be plain text (no raw non-text binary bytes).

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oImap
LOCAL oEmail
LOCAL cMimeText

nSuccess := 0

//  Demonstrates the Imap.AppendMime method, which uploads a complete MIME message to a mailbox.
//  The 1st argument is the destination mailbox name and the 2nd is the MIME text.

oImap := CreateObject("Chilkat.Imap")

oImap:Ssl := 1
oImap:Port := 993

nSuccess := oImap:Connect("imap.example.com")
IF (nSuccess == 0)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

nSuccess := oImap:Login("user@example.com", "myPassword")
IF (nSuccess == 0)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Build the email to be uploaded.
oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Meeting agenda"
oEmail:From := "Alice <alice@example.com>"
nSuccess := oEmail:AddTo("Bob", "bob@example.com")
oEmail:Body := "Let's meet at 10am to review the agenda."

//  Obtain the MIME text to upload.  Here it is generated from the Email, but it could equally
//  be read from a .eml file.
cMimeText := oEmail:GetMime()
IF (oEmail:LastMethodSuccess == 0)
    ? oEmail:LastErrorText
    oImap:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  Append (upload) the MIME to the "Drafts" mailbox.
nSuccess := oImap:AppendMime("Drafts", cMimeText)
IF (nSuccess == 0)
    ? oImap:LastErrorText
    oImap:destroy()
    oEmail:destroy()
    RETURN
ENDIF

? "Appended UID: " + Str(oImap:AppendUid)

nSuccess := oImap:Disconnect()
IF (nSuccess == 0)
    ? oImap:LastErrorText
    oImap:destroy()
    oEmail:destroy()
    RETURN
ENDIF

oImap:destroy()
oEmail:destroy()