(Tcl) Create Apple Watch HTML (text/watch-html) Email

Demonstrates how to create an Apple Watch text/watch-html email.

Note: This example requires Chilkat v9.5.0.68 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example will produce an email such as:

# 	MIME-Version: 1.0
# 	Date: Fri, 02 Jun 2017 09:17:06 -0500
# 	Message-ID: <E6F1F17104442EA09740322D3E2E78806C87FB80@CHILKAT13>
# 	X-Priority: 3 (Normal)
# 	Subject: Apple Watch Example
# 	From: from@example.org
# 	To: to@example.org
# 	Content-Type: multipart/alternative; boundary="------------080904030200000307060803"
# 
# 	--------------080904030200000307060803
# 	Content-Type: text/plain; charset=utf-8
# 	Content-Transfer-Encoding: quoted-printable
# 	Content-Disposition: inline
# 
# 	This is the plain text part.
# 	--------------080904030200000307060803
# 	Content-Type: text/watch-html; charset=utf-8
# 	Content-Disposition: inline
# 	Content-Transfer-Encoding: quoted-printable
# 
# 	<b>This is the Watch HTML part</b>
# 	--------------080904030200000307060803
# 	Content-Type: text/html; charset=utf-8
# 	Content-Disposition: inline
# 	Content-Transfer-Encoding: quoted-printable
# 
# 	<p>This is the standard HTML part</p>
# 	--------------080904030200000307060803--

# Create a new email instance to get the default auto-created fields.
set email [new_CkEmail]

CkEmail_put_Body $email "This is the plain text part."
CkEmail_put_Subject $email "Apple Watch Example"
CkEmail_put_From $email "from@example.org"
CkEmail_AddTo $email "" "to@example.org"

puts [CkEmail_getMime $email]
puts "--"

# This is the MIME so far:
# (Chilkat automatically removes CKX-* headers when sending email.)

# 	MIME-Version: 1.0
# 	Date: Fri, 02 Jun 2017 09:17:06 -0500
# 	Message-ID: <E6F1F17104442EA09740322D3E2E78806C87FB80@CHILKAT13>
# 	Content-Type: text/plain; format=flowed
# 	Content-Transfer-Encoding: 7bit
# 	X-Priority: 3 (Normal)
# 	Subject: Apple Watch Example
# 	From: from@example.org
# 	CKX-Bounce-Address: from@example.org
# 	To: to@example.org
# 
# 	This is the plain text part.

# We'll use the Chilkat MIME object to build it.
# The MIME API provides more flexibility..
set mime [new_CkMime]

CkMime_LoadMime $mime [CkEmail_getMime $email]

# Convert this MIME to multipart/alternative.
CkMime_ConvertToMultipartAlt $mime

puts [CkMime_getMime $mime]
puts "--"

# We now have this MIME:

# 	MIME-Version: 1.0
# 	Date: Fri, 02 Jun 2017 09:17:06 -0500
# 	Message-ID: <E6F1F17104442EA09740322D3E2E78806C87FB80@CHILKAT13>
# 	X-Priority: 3 (Normal)
# 	Subject: Apple Watch Example
# 	From: from@example.org
# 	CKX-Bounce-Address: from@example.org
# 	To: to@example.org
# 	Content-Type: multipart/alternative; boundary="------------080904030200000307060803"
# 
# 	--------------080904030200000307060803
# 	Content-Type: text/plain; format=flowed
# 	Content-Transfer-Encoding: 7bit
# 
# 	This is the plain text part.
# 	--------------080904030200000307060803--

# If we desire a particular charset, encoding, or disposition..
# partPlainText is a CkMime
set partPlainText [CkMime_GetPart $mime 0]
CkMime_put_Charset $partPlainText "utf-8"
CkMime_put_Disposition $partPlainText "inline"
CkMime_put_Encoding $partPlainText "quoted-printable"
delete_CkMime $partPlainText

# Create the text/watch-html MIME part and add it.
set partWatchHtml [new_CkMime]

CkMime_put_ContentType $partWatchHtml "text/watch-html"
CkMime_put_Charset $partWatchHtml "utf-8"
CkMime_put_Disposition $partWatchHtml "inline"
CkMime_put_Encoding $partWatchHtml "quoted-printable"
CkMime_SetBody $partWatchHtml "<b>This is the Watch HTML part</b>"
CkMime_AppendPart $mime $partWatchHtml

puts [CkMime_getMime $mime]
puts "--"

# We now have this MIME:

# 	MIME-Version: 1.0
# 	Date: Fri, 02 Jun 2017 09:17:06 -0500
# 	Message-ID: <E6F1F17104442EA09740322D3E2E78806C87FB80@CHILKAT13>
# 	X-Priority: 3 (Normal)
# 	Subject: Apple Watch Example
# 	From: from@example.org
# 	CKX-Bounce-Address: from@example.org
# 	To: to@example.org
# 	Content-Type: multipart/alternative; boundary="------------080904030200000307060803"
# 
# 	--------------080904030200000307060803
# 	Content-Type: text/plain; charset=utf-8
# 	Content-Transfer-Encoding: quoted-printable
# 	Content-Disposition: inline
# 
# 	This is the plain text part.
# 	--------------080904030200000307060803
# 	Content-Type: text/watch-html; charset=utf-8
# 	Content-Disposition: inline
# 	Content-Transfer-Encoding: quoted-printable
# 
# 	<b>This is the Watch HTML part</b>
# 	--------------080904030200000307060803--

# Create the text/html MIME part and add it.
set partHtml [new_CkMime]

CkMime_put_ContentType $partHtml "text/html"
CkMime_put_Charset $partHtml "utf-8"
CkMime_put_Disposition $partHtml "inline"
CkMime_put_Encoding $partHtml "quoted-printable"
CkMime_SetBody $partHtml "<p>This is the standard HTML part</p>"
CkMime_AppendPart $mime $partHtml

puts [CkMime_getMime $mime]
puts "--"

# We now have this MIME:

# 	MIME-Version: 1.0
# 	Date: Fri, 02 Jun 2017 09:17:06 -0500
# 	Message-ID: <E6F1F17104442EA09740322D3E2E78806C87FB80@CHILKAT13>
# 	X-Priority: 3 (Normal)
# 	Subject: Apple Watch Example
# 	From: from@example.org
# 	CKX-Bounce-Address: from@example.org
# 	To: to@example.org
# 	Content-Type: multipart/alternative; boundary="------------080904030200000307060803"
# 
# 	--------------080904030200000307060803
# 	Content-Type: text/plain; charset=utf-8
# 	Content-Transfer-Encoding: quoted-printable
# 	Content-Disposition: inline
# 
# 	This is the plain text part.
# 	--------------080904030200000307060803
# 	Content-Type: text/watch-html; charset=utf-8
# 	Content-Disposition: inline
# 	Content-Transfer-Encoding: quoted-printable
# 
# 	<b>This is the Watch HTML part</b>
# 	--------------080904030200000307060803
# 	Content-Type: text/html; charset=utf-8
# 	Content-Disposition: inline
# 	Content-Transfer-Encoding: quoted-printable
# 
# 	<p>This is the standard HTML part</p>
# 	--------------080904030200000307060803--

# Load the email object with this MIME, and we're good to go..
CkEmail_SetFromMimeText $email [CkMime_getMime $mime]
puts [CkEmail_getMime $email]

delete_CkEmail $email
delete_CkMime $mime
delete_CkMime $partWatchHtml
delete_CkMime $partHtml