(Classic ASP) Create AMP for Email

Demonstrates how to create an email that has the AMP for Email Format.

See AMP for Email specification for more information.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set email = Server.CreateObject("Chilkat.Email")

email.Subject = "Sample AMP for Email"
email.From = "mary@example.com"
success = email.AddTo("Joe","joe@example.com")

' Create the following AMP for Email HTML

' <!doctype html>
' <html amp4email>
' <head>
'   <meta charset="utf-8">
'   <style amp4email-boilerplate>body{visibility:hidden}</style>
'   <script async src="https://cdn.ampproject.org/v0.js"></script>
' </head>
' <body>
' Hello, world.
' </body>
' </html>

set sbAmp4Html = Server.CreateObject("Chilkat.StringBuilder")
success = sbAmp4Html.Append("<!doctype html>")
success = sbAmp4Html.Append("<html amp4email>")
success = sbAmp4Html.Append("<head>")
success = sbAmp4Html.Append("<meta charset=""utf-8"">")
success = sbAmp4Html.Append("<style amp4email-boilerplate>body{visibility:hidden}</style>")
success = sbAmp4Html.Append("<script async src=""https://cdn.ampproject.org/v0.js""></script>")
success = sbAmp4Html.Append("</head>")
success = sbAmp4Html.Append("<body>")
success = sbAmp4Html.Append("Hello, world.")
success = sbAmp4Html.Append("</body>")
success = sbAmp4Html.Append("</html>")

' We want to build a multipart/alternative email, where the 1st alternative body
' is text/plain, the 2nd is text/x-amp-html, and the last is text/html.
' (Some email clients will only render the last MIME part, so we recommend placing the text/x-amp-html MIME part before the text/html MIME part.)

' First create a plain-text email body:
success = email.AddPlainTextAlternativeBody("Hello World in plain text!")

' Now add the text/x-amp-html.
email.SetTextBody sbAmp4Html.GetAsString(),"text/x-amp-html"

' Now add an HTML body..
success = email.AddHtmlAlternativeBody("<span>Hello World in HTML!</span>")

' See what we have:
Response.Write "<pre>" & Server.HTMLEncode( email.GetMime()) & "</pre>"

' This is the result:

' MIME-Version: 1.0
' Date: Thu, 30 May 2019 09:37:56 -0500
' Message-ID: <923A689FF657170A9F662B4CE87978AB1EBD4DBD@CHILKATSLICE>
' Content-Type: multipart/alternative;
'  boundary="------------040205090807060906020803"
' X-Priority: 3 (Normal)
' Subject: Sample AMP for Email
' From: mary@example.com
' To: Joe <joe@example.com>
' 
' --------------040205090807060906020803
' Content-Transfer-Encoding: 7bit
' Content-Type: text/plain; charset=us-ascii; format=flowed
' 
' Hello World in plain text!
' --------------040205090807060906020803
' Content-Transfer-Encoding: 7bit
' Content-Type: text/x-amp-html; charset=us-ascii
' 
' <!doctype html><html amp4email><head><meta charset="utf-8"><style amp4email-boilerplate>body{visibility:hidden}</style><script async src="https://cdn.ampproject.org/v0.js"></script></head><body>Hello, world.</body></html>
' --------------040205090807060906020803
' Content-Transfer-Encoding: 7bit
' Content-Type: text/html; charset=us-ascii
' 
' <span>Hello World in HTML!</span>
' 
' --------------040205090807060906020803--

%>
</body>
</html>