|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Create Apple Watch HTML (text/watch-html) EmailDemonstrates how to create an Apple Watch text/watch-html email. Note: This example requires Chilkat v9.5.0.68 or greater.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email") set email = Server.CreateObject("Chilkat.Email") email.Body = "This is the plain text part." email.Subject = "Apple Watch Example" email.From = "from@example.org" success = email.AddTo("","to@example.org") Response.Write "<pre>" & Server.HTMLEncode( email.GetMime()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>" ' 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.. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime") set mime = Server.CreateObject("Chilkat.Mime") success = mime.LoadMime(email.GetMime()) ' Convert this MIME to multipart/alternative. success = mime.ConvertToMultipartAlt() Response.Write "<pre>" & Server.HTMLEncode( mime.GetMime()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>" ' 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 Chilkat.Mime Set partPlainText = mime.GetPart(0) partPlainText.Charset = "utf-8" partPlainText.Disposition = "inline" partPlainText.Encoding = "quoted-printable" ' Create the text/watch-html MIME part and add it. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime") set partWatchHtml = Server.CreateObject("Chilkat.Mime") 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>" success = mime.AppendPart(partWatchHtml) Response.Write "<pre>" & Server.HTMLEncode( mime.GetMime()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>" ' 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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime") set partHtml = Server.CreateObject("Chilkat.Mime") 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>" success = mime.AppendPart(partHtml) Response.Write "<pre>" & Server.HTMLEncode( mime.GetMime()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>" ' 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.. success = email.SetFromMimeText(mime.GetMime()) Response.Write "<pre>" & Server.HTMLEncode( email.GetMime()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.