(AutoIt) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; 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.
$oEmail = ObjCreate("Chilkat.Email")
$oEmail.Body = "This is the plain text part."
$oEmail.Subject = "Apple Watch Example"
$oEmail.From = "from@example.org"
$oEmail.AddTo("","to@example.org")

ConsoleWrite($oEmail.GetMime() & @CRLF)
ConsoleWrite("--" & @CRLF)

; 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..
$oMime = ObjCreate("Chilkat.Mime")
$oMime.LoadMime($oEmail.GetMime())

; Convert this MIME to multipart/alternative.
$oMime.ConvertToMultipartAlt()

ConsoleWrite($oMime.GetMime() & @CRLF)
ConsoleWrite("--" & @CRLF)

; 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..
Local $oPartPlainText = $oMime.GetPart(0)
$oPartPlainText.Charset = "utf-8"
$oPartPlainText.Disposition = "inline"
$oPartPlainText.Encoding = "quoted-printable"

; Create the text/watch-html MIME part and add it.
$oPartWatchHtml = ObjCreate("Chilkat.Mime")
$oPartWatchHtml.ContentType = "text/watch-html"
$oPartWatchHtml.Charset = "utf-8"
$oPartWatchHtml.Disposition = "inline"
$oPartWatchHtml.Encoding = "quoted-printable"
$oPartWatchHtml.SetBody "<b>This is the Watch HTML part</b>"
$oMime.AppendPart($oPartWatchHtml)

ConsoleWrite($oMime.GetMime() & @CRLF)
ConsoleWrite("--" & @CRLF)

; 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.
$oPartHtml = ObjCreate("Chilkat.Mime")
$oPartHtml.ContentType = "text/html"
$oPartHtml.Charset = "utf-8"
$oPartHtml.Disposition = "inline"
$oPartHtml.Encoding = "quoted-printable"
$oPartHtml.SetBody "<p>This is the standard HTML part</p>"
$oMime.AppendPart($oPartHtml)

ConsoleWrite($oMime.GetMime() & @CRLF)
ConsoleWrite("--" & @CRLF)

; 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..
$oEmail.SetFromMimeText($oMime.GetMime())
ConsoleWrite($oEmail.GetMime() & @CRLF)