B4X Requires Chilkat v11.0.0+
B4X
Create Apple Watch HTML (text/watch-html) Email
See more Email Object Examples
Demonstrates how to create an Apple Watch text/watch-html email.Chilkat B4X Downloads
Dim success As Boolean = False
' 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.
Dim email As ChilkatEmail
email.Initialize
email.Body = "This is the plain text part."
email.Subject = "Apple Watch Example"
email.From = "from@example.org"
email.AddTo("", "to@example.org")
Log(email.GetMime)
Log("--")
' 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
' 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..
Dim mime As ChilkatMime
mime.Initialize
mime.LoadMime(email.GetMime)
' Convert this MIME to multipart/alternative.
mime.ConvertToMultipartAlt
Log(mime.GetMime)
Log("--")
' 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
' 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..
Dim partPlainText As ChilkatMime
partPlainText.Initialize
success = mime.PartAt(0, partPlainText)
If success = False Then
Log(mime.LastErrorText)
Return
End If
partPlainText.Charset = "utf-8"
partPlainText.Disposition = "inline"
partPlainText.Encoding = "quoted-printable"
' Create the text/watch-html MIME part and add it.
Dim partWatchHtml As ChilkatMime
partWatchHtml.Initialize
partWatchHtml.ContentType = "text/watch-html"
partWatchHtml.Charset = "utf-8"
partWatchHtml.Disposition = "inline"
partWatchHtml.Encoding = "quoted-printable"
partWatchHtml.SetBody("<b>This is the Watch HTML part</b>")
mime.AppendPart(partWatchHtml)
Log(mime.GetMime)
Log("--")
' 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
' 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.
Dim partHtml As ChilkatMime
partHtml.Initialize
partHtml.ContentType = "text/html"
partHtml.Charset = "utf-8"
partHtml.Disposition = "inline"
partHtml.Encoding = "quoted-printable"
partHtml.SetBody("<p>This is the standard HTML part</p>")
mime.AppendPart(partHtml)
Log(mime.GetMime)
Log("--")
' 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
' 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..
email.SetFromMimeText(mime.GetMime)
Log(email.GetMime)