(VBScript) Append Part to MIME

Demonstrates the AppendPart method for adding sub-parts to MIME.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

' Create a text/plain part.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set ptMime = CreateObject("Chilkat.Mime")
success = ptMime.SetBodyFromPlainText("This is the plain text body")
outFile.WriteLine(ptMime.GetMime())
outFile.WriteLine("****")

' The ptMime contains:
' ---------------------------------------
' 	Content-Type: text/plain
' 	Content-Transfer-Encoding: 7bit
' 
' 	This is the plain text body
' ---------------------------------------

' Start with an empty MIME object...
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set topLevelMime = CreateObject("Chilkat.Mime")

' Initialize it to a multipart Content-Type.  We'll use multipart/mixed.
success = topLevelMime.NewMultipartMixed()

' Append the ptMime as a child.
success = topLevelMime.AppendPart(ptMime)
outFile.WriteLine(topLevelMime.GetMime())
outFile.WriteLine("****")

' The topLevelMime contains:
' --------------------------
' 	Content-Type: multipart/mixed; boundary="------------010907090104040508040404"
' 
' 	--------------010907090104040508040404
' 	Content-Type: text/plain
' 	Content-Transfer-Encoding: 7bit
' 
' 	This is the plain text body
' 	--------------010907090104040508040404--
' 

' IMPORTANT: A copy of the MIME passed in AppendPart is appended.
' Therefore, in this case, changing ptMime does not change the text/plain sub-part in topLevelMime.
' For example:
ptMime.SetBody "this is the new plain text body."
' topLevelMime is unchanged.
outFile.WriteLine(topLevelMime.GetMime())
outFile.WriteLine("****")

' To change the content in topLevelMime, we must get the text/plain part.
' For example:
' ptMime2 is a Chilkat.Mime
Set ptMime2 = topLevelMime.GetPart(0)
ptMime2.SetBody "this is the new plain text body."

' Now topLevelMime is changed.
outFile.WriteLine(topLevelMime.GetMime())

outFile.Close