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.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Download Chilkat MIME ActiveX

LOCAL loMime
LOCAL lnSuccess
LOCAL loMimeHtml
LOCAL loMimeText
LOCAL loMimeXml
LOCAL loEmail

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

loMime.NewMultipartAlternative()

loMimeHtml = CreateObject('Chilkat.Mime')
loMimeHtml.SetBodyFromHtml("<html><body>HTML Body</body></html>")

loMimeText = CreateObject('Chilkat.Mime')
loMimeText.SetBodyFromPlainText("Plain text body")

loMimeXml = CreateObject('Chilkat.Mime')
loMimeXml.SetBodyFromXml("<test>XML Body</test>")

loMime.AppendPart(loMimeHtml)
loMime.AppendPart(loMimeText)
loMime.AppendPart(loMimeXml)

loEmail = CreateObject('Chilkat.Email2')

loEmail.SetFromMimeObject(loMime)

loEmail.Subject = "This is a test"
loEmail.From = "support@chilkatsoft.com"
lnSuccess = loEmail.AddTo("Chilkat Sales","sales@chilkatsoft.com")
*  ...
*  You may send the email using the Chilkat MailMan object...
*  ...

lnSuccess = loEmail.SaveEml("email.eml")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

Mail Component · .NET Email Component · ASP Mail Component · XML Parser