MIME Multipart Boundary and Preamble Properties

See more MIME Examples

Demonstrates the Boundary property, which gets or sets the raw boundary token of a multipart entity (without surrounding quotation marks), and UseMmDescription, which controls whether the conventional preamble text is emitted when serializing a multipart entity.

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

set mime = CreateObject("Chilkat.Mime")

'  Create a multipart/mixed entity.
success = mime.NewMultipartMixed()
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Boundary is the raw boundary token, without surrounding quotation marks.  Chilkat quotes it
'  automatically in the serialized header when required.
mime.Boundary = "example-boundary"

'  UseMmDescription controls whether the conventional preamble text
'  "This is a multi-part message in MIME format." is emitted.  The default is 0.
mime.UseMmDescription = 1

'  Add a simple part so the multipart has content.
set part = CreateObject("Chilkat.Mime")
success = part.SetBodyFromPlainText("First part.")
If (success = 0) Then
    outFile.WriteLine(part.LastErrorText)
    WScript.Quit
End If

success = mime.AppendPart(part)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Boundary = " & mime.Boundary)

mimeStr = mime.GetMime()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(mimeStr)

outFile.Close