Xbase++

Attach a File to a Multipart MIME Entity

Demonstrates the Chilkat Mime.AppendPartFromFile method, which reads a local file, creates an attachment part, and appends it. The only argument is the file path; the content headers are chosen from the filename extension.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the one-call way to add an attachment: Chilkat reads the file, infers its Content-Type from the extension, base64-encodes binary content, and appends it as a child part — typically inside a multipart/mixed. It is the building block behind adding attachments to an email, saving you from constructing the part and setting its headers by hand.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMime
LOCAL oBodyPart

nSuccess := 0

//  Demonstrates the Mime.AppendPartFromFile method, which reads a local file, creates an attachment
//  part, and appends it.  The only argument is the file path; the content headers are chosen from
//  the filename extension.

oMime := CreateObject("Chilkat.Mime")
nSuccess := oMime:NewMultipartMixed()
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
ENDIF

//  A message body part.
oBodyPart := CreateObject("Chilkat.Mime")
nSuccess := oBodyPart:SetBodyFromPlainText("Please see the attached files.")
IF (nSuccess == 0)
    ? oBodyPart:LastErrorText
    oMime:destroy()
    oBodyPart:destroy()
    RETURN
ENDIF

nSuccess := oMime:AppendPart(oBodyPart)
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oBodyPart:destroy()
    RETURN
ENDIF

//  Attach files directly.
nSuccess := oMime:AppendPartFromFile("qa_data/report.pdf")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oBodyPart:destroy()
    RETURN
ENDIF

nSuccess := oMime:AppendPartFromFile("qa_data/photo.jpg")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oBodyPart:destroy()
    RETURN
ENDIF

? "Number of parts: " + Str(oMime:NumParts)

oMime:destroy()
oBodyPart:destroy()