Email with XML Alternative Body
Demonstrates how to create an email with three alternative bodies -- plain-text, HTML, and XML. It is not common to need an XML body, therefore, the Chilkat MIME component is needed to help create the email. Implementing this solution would require licenses to both Chilkat MIME and Chilkat Email (or the Chilkat Bundle, which includes all Chilkat components at a reduced price).
Important: The MIME object is only needed for the 3rd alternative body having the type text/xml. Creating emails with two alternative bodies (HTML and plain-text) is possible using only the Chilkat Email component.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set mime = Server.CreateObject("Chilkat_9_5_0.Mime")
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"
End If
mime.NewMultipartAlternative
set mimeHtml = Server.CreateObject("Chilkat_9_5_0.Mime")
mimeHtml.SetBodyFromHtml "<html><body>HTML Body</body></html>"
set mimeText = Server.CreateObject("Chilkat_9_5_0.Mime")
mimeText.SetBodyFromPlainText "Plain text body"
set mimeXml = Server.CreateObject("Chilkat_9_5_0.Mime")
mimeXml.SetBodyFromXml "<test>XML Body</test>"
mime.AppendPart mimeHtml
mime.AppendPart mimeText
mime.AppendPart mimeXml
set email = Server.CreateObject("Chilkat_9_5_0.Email")
email.SetFromMimeObject mime
email.Subject = "This is a test"
email.From = "support@chilkatsoft.com"
success = email.AddTo("Chilkat Sales","sales@chilkatsoft.com")
' ...
' You may send the email using the Chilkat MailMan object...
' ...
success = email.SaveEml("email.eml")
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode(email.LastErrorText) & "</pre>"
End If
%>
</body>
</html>
|
