Tcl

Get the Content-Type of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentType method, which returns the Content-Type of the Nth related content item in an email. The index is zero-based. This example adds a related style sheet and reads its content type.

Background: Each related item declares a Content-Type — image/png for an inline image, text/css for a style sheet, and so on — that tells the rendering client how to use it. Reading the content type lets a program enumerate a message's embedded resources and act on them by kind, for example collecting every inline image while ignoring the style sheets.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

#  Demonstrates the GetRelatedContentType method, which returns the Content-Type of the Nth
#  related content item in an email.  The index is zero-based.

set email [new_CkEmail]

CkEmail_put_Subject $email "GetRelatedContentType example"

#  The HTML references the style sheet by name (Content-Location).
CkEmail_SetHtmlBody $email "<html><head><link rel=\"stylesheet\" href=\"styles.css\"/></head><body>Styled.</body></html>"

#  Add the related style sheet (index 0).
CkEmail_AddRelatedString2 $email "styles.css" "body { color: navy; }" "utf-8"

#  Read the Content-Type of the first related item (index 0).
set ct [CkEmail_getRelatedContentType $email 0]
puts "Related item 0 Content-Type: $ct"

delete_CkEmail $email