PureBasic

Save an Email to a .eml File

Demonstrates the Chilkat Email.SaveEml method, which converts the email object to EML and saves it to a file. An EML file contains the complete RFC822/MIME message — headers, bodies, related items, and attachments. This example builds a message and saves it.

Background: Saving as .eml writes the message in the universal MIME format that virtually every mail client can open, making it ideal for archiving, sharing, or handing a message to another program. It is the counterpart to LoadEml. A saved .eml also retains Chilkat's CKX- metadata headers (a way to store your own metadata with the email; they are always stripped before an email is sent), so .eml is the recommended way to persist a message even within Chilkat-based software. A separate Chilkat XML format (SaveXml) exists as an alternative, but offers no metadata advantage over .eml.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the SaveEml method, which converts the email object to EML and saves it to
    ;  a file.  An EML file contains the complete RFC822/MIME message, including headers,
    ;  bodies, related items, and attachments.

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "Save as EML")
    CkEmail::setCkFrom(email, "alice@example.com")
    CkEmail::ckAddTo(email,"Bob","bob@example.com")
    CkEmail::setCkBody(email, "Hello, this message will be saved as a .eml file.")

    ;  Save the email to a .eml file.
    success = CkEmail::ckSaveEml(email,"qa_output/message.eml")
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    Debug "Saved to message.eml."

    ;  Note: The path "qa_output/..." is a relative local filesystem path,
    ;  relative to the current working directory of the running application.


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure