VBScript

Set a MIME Body from XML

Demonstrates the Chilkat Mime.SetBodyFromXml method, which sets the body as XML, changes the media type to text/xml, and selects an appropriate transfer encoding. The only argument is the XML text.

Background: This produces an XML-typed part, common in machine-to-machine messaging — SOAP, AS2/EDI payloads, structured data attachments. Marking the content text/xml lets the receiver route and parse it correctly, and Chilkat picks a transfer encoding that preserves the XML across the transport.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the Mime.SetBodyFromXml method, which sets the body as XML and changes the media
'  type to text/xml.  The only argument is the XML text.

set mime = CreateObject("Chilkat.Mime")

xml = "<note><to>Bob</to><from>Alice</from><body>Hello</body></note>"
success = mime.SetBodyFromXml(xml)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Content-Type: " & mime.ContentType)

outFile.Close