Visual FoxPro Requires Chilkat v11.0.0+
Visual FoxPro
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 Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loEmail
LOCAL loMime
LOCAL loPartPlainText
LOCAL loPartWatchHtml
LOCAL loPartHtml
lnSuccess = 0
* 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.
loEmail = CreateObject('Chilkat.Email')
loEmail.Body = "This is the plain text part."
loEmail.Subject = "Apple Watch Example"
loEmail.From = "from@example.org"
loEmail.AddTo("","to@example.org")
? loEmail.GetMime()
? "--"
* 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..
loMime = CreateObject('Chilkat.Mime')
loMime.LoadMime(loEmail.GetMime())
* Convert this MIME to multipart/alternative.
loMime.ConvertToMultipartAlt()
? loMime.GetMime()
? "--"
* 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..
loPartPlainText = CreateObject('Chilkat.Mime')
lnSuccess = loMime.PartAt(0,loPartPlainText)
IF (lnSuccess = 0) THEN
? loMime.LastErrorText
RELEASE loEmail
RELEASE loMime
RELEASE loPartPlainText
CANCEL
ENDIF
loPartPlainText.Charset = "utf-8"
loPartPlainText.Disposition = "inline"
loPartPlainText.Encoding = "quoted-printable"
* Create the text/watch-html MIME part and add it.
loPartWatchHtml = CreateObject('Chilkat.Mime')
loPartWatchHtml.ContentType = "text/watch-html"
loPartWatchHtml.Charset = "utf-8"
loPartWatchHtml.Disposition = "inline"
loPartWatchHtml.Encoding = "quoted-printable"
loPartWatchHtml.SetBody("<b>This is the Watch HTML part</b>")
loMime.AppendPart(loPartWatchHtml)
? loMime.GetMime()
? "--"
* 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.
loPartHtml = CreateObject('Chilkat.Mime')
loPartHtml.ContentType = "text/html"
loPartHtml.Charset = "utf-8"
loPartHtml.Disposition = "inline"
loPartHtml.Encoding = "quoted-printable"
loPartHtml.SetBody("<p>This is the standard HTML part</p>")
loMime.AppendPart(loPartHtml)
? loMime.GetMime()
? "--"
* 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..
loEmail.SetFromMimeText(loMime.GetMime())
? loEmail.GetMime()
RELEASE loEmail
RELEASE loMime
RELEASE loPartPlainText
RELEASE loPartWatchHtml
RELEASE loPartHtml