Tcl

Load an Email from MIME Text in a String

Demonstrates the Chilkat Email.SetFromMimeText method, which loads the email from MIME text (such as the contents of a .eml file) held in a string. On success, it replaces the entire current email. This example serializes one email to MIME with GetMime, then reconstructs it in a second object.

Background: This is the in-memory (string) counterpart to LoadEml, which reads MIME from a file. It is handy when the raw message text arrives from somewhere other than the filesystem — a database column, an HTTP response, or a message queue — letting you parse it straight into a fully populated Email object.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the SetFromMimeText method, which loads the email from MIME text (such as
#  the contents of a .eml file) held in a string.  On success, it replaces the entire
#  current email.

#  Build a source email and get its MIME text.
set source [new_CkEmail]

CkEmail_put_Subject $source "Source message"
CkEmail_put_From $source "alice@example.com"
CkEmail_put_Body $source "Hello from MIME text."
set mimeText [CkEmail_getMime $source]

#  Load a new email object from the MIME text.
set email [new_CkEmail]

set success [CkEmail_SetFromMimeText $email $mimeText]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $source
    delete_CkEmail $email
    exit
}

puts "Loaded subject: [CkEmail_subject $email]"

delete_CkEmail $source
delete_CkEmail $email