(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

#  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.
$email = chilkat::CkEmail->new();
$email->put_Body("This is the plain text part.");
$email->put_Subject("Apple Watch Example");
$email->put_From('from@example.org');
$email->AddTo("",'to@example.org');

print $email->getMime() . "\r\n";
print "--" . "\r\n";

#  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..
$mime = chilkat::CkMime->new();
$mime->LoadMime($email->getMime());

#  Convert this MIME to multipart/alternative.
$mime->ConvertToMultipartAlt();

print $mime->getMime() . "\r\n";
print "--" . "\r\n";

#  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 Mime
$partPlainText = $mime->GetPart(0);
$partPlainText->put_Charset("utf-8");
$partPlainText->put_Disposition("inline");
$partPlainText->put_Encoding("quoted-printable");

#  Create the text/watch-html MIME part and add it.
$partWatchHtml = chilkat::CkMime->new();
$partWatchHtml->put_ContentType("text/watch-html");
$partWatchHtml->put_Charset("utf-8");
$partWatchHtml->put_Disposition("inline");
$partWatchHtml->put_Encoding("quoted-printable");
$partWatchHtml->SetBody("<b>This is the Watch HTML part</b>");
$mime->AppendPart($partWatchHtml);

print $mime->getMime() . "\r\n";
print "--" . "\r\n";

#  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.
$partHtml = chilkat::CkMime->new();
$partHtml->put_ContentType("text/html");
$partHtml->put_Charset("utf-8");
$partHtml->put_Disposition("inline");
$partHtml->put_Encoding("quoted-printable");
$partHtml->SetBody("<p>This is the standard HTML part</p>");
$mime->AppendPart($partHtml);

print $mime->getMime() . "\r\n";
print "--" . "\r\n";

#  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..
$email->SetFromMimeText($mime->getMime());
print $email->getMime() . "\r\n";