Tcl

Get an Email's MIME into a BinData

Demonstrates the Chilkat Email.GetMimeBd method, which serializes the complete RFC822/MIME message (headers, body representations, related items, and attachments) and appends the bytes to a BinData object. This example builds a message, serializes it to a BinData, and prints the byte count.

Background: A BinData holds raw bytes, which is the right container when you want the MIME as binary rather than text — for example to write it directly to a file or socket, hash it, or hand it to another API that expects a byte buffer. It is the binary counterpart to GetMime (string) and GetMimeSb (StringBuilder).

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the GetMimeBd method, which serializes the complete RFC822/MIME message
#  (headers, bodies, related items, and attachments) and appends the bytes to a BinData
#  object.

set email [new_CkEmail]

CkEmail_put_Subject $email "GetMimeBd example"
CkEmail_put_From $email "alice@example.com"
CkEmail_AddTo $email "Bob" "bob@example.com"
CkEmail_put_Body $email "Hello!"

#  Append the complete MIME to a BinData object.
set bdMime [new_CkBinData]

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

puts "MIME size (bytes) = [CkBinData_get_NumBytes $bdMime]"

delete_CkEmail $email
delete_CkBinData $bdMime