Tcl

Load an Email from MIME in a BinData

Demonstrates the Chilkat Email.SetFromMimeBd method, which loads an email from the MIME stored in a BinData object. On success, it replaces the entire current email. This example serializes one email into a BinData with GetMimeBd, then reconstructs it in a second object.

Background: This is the binary counterpart to SetFromMimeText and SetFromMimeSb. When a message's raw MIME arrives as bytes — read from a file, a socket, or a database blob into a BinData — loading it directly avoids any lossy or awkward byte-to-text conversion, which matters because MIME can carry binary transfer encodings.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the SetFromMimeBd method, which loads an email from MIME stored in a BinData
#  object.  On success, it replaces the entire current email.

#  Build a source email and serialize its MIME into a BinData.
set source [new_CkEmail]

CkEmail_put_Subject $source "Source message"
CkEmail_put_From $source "alice@example.com"
CkEmail_put_Body $source "Hello from a BinData."
set bdMime [new_CkBinData]

CkEmail_GetMimeBd $source $bdMime

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

set success [CkEmail_SetFromMimeBd $email $bdMime]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $source
    delete_CkBinData $bdMime
    delete_CkEmail $email
    exit
}

puts "Loaded subject: [CkEmail_subject $email]"

delete_CkEmail $source
delete_CkBinData $bdMime
delete_CkEmail $email