|
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
(Visual FoxPro) 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.
LOCAL loEmail LOCAL loMime LOCAL loPartPlainText LOCAL loPartWatchHtml LOCAL loPartHtml * 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') 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 * 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') 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 * 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.. loPartPlainText = loMime.GetPart(0) loPartPlainText.Charset = "utf-8" loPartPlainText.Disposition = "inline" loPartPlainText.Encoding = "quoted-printable" RELEASE loPartPlainText * Create the text/watch-html MIME part and add it. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime') 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 * 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') 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 * 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.. loEmail.SetFromMimeText(loMime.GetMime()) ? loEmail.GetMime() RELEASE loEmail RELEASE loMime RELEASE loPartWatchHtml RELEASE loPartHtml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.