Create Binary MIME

Download Chilkat MIME ActiveX

Demonstrates how to create a MIME document using the "binary" content-transfer-encoding.

LOCAL loMime
LOCAL lnSuccess

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  Set a custom headerr field:
loMime.AddHeaderField("Content-ID","PDFFile")

*  Load a PDF file into the MIME body-part of the message.
*  Note: This automatically sets the content-type and
*  content-transfer-encoding header fields to appropriate values
*  based on the file extension.  If specific values for these
*  header fields are required, set the ContentType and
*  Encoding properties after (as shown here)
lnSuccess = loMime.SetBodyFromFile("test.pdf")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  Use binary MIME -- the MIME body will not be encoded
*  but will instead consist of the binary data of the file.
loMime.Encoding = "binary"

*  Make sure our content-type is "application/pdf"
*  (It should already be this value...)
loMime.ContentType = "application/pdf"

*  Save the MIME to a file.
lnSuccess = loMime.SaveMime("outMime.txt")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  Success!
=MESSAGEBOX("Success!")