Tcl

Get an Alternative Body into a BinData

Demonstrates the Chilkat Email.GetAlternativeBodyBd method, which copies the contents of the Nth alternative body into a BinData object. The first alternative body is at index 0, and it should only be called when NumAlternatives is greater than 0. This example builds a message with plain-text and HTML alternatives and copies the first into a BinData.

Background: This is the binary counterpart to GetAlternativeBody (which returns text). Reading an alternative into a BinData preserves the exact bytes — important when a body part uses a binary or unusual transfer encoding, or when you intend to hash it or write it out verbatim rather than decode it to a string.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the GetAlternativeBodyBd method, which copies the contents of the Nth
#  alternative body into a BinData object.  The first alternative body is at index 0; call
#  only when NumAlternatives is greater than 0.

set email [new_CkEmail]

CkEmail_put_Subject $email "GetAlternativeBodyBd example"

CkEmail_SetTextBody $email "This is the plain-text alternative." "text/plain"
CkEmail_AddHtmlAlternativeBody $email "<html><body>This is the HTML alternative.</body></html>"

#  Copy the first alternative body (index 0) into a BinData object.
set bd [new_CkBinData]

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

puts "Alternative 0 size (bytes) = [CkBinData_get_NumBytes $bd]"

delete_CkEmail $email
delete_CkBinData $bd