MIME Content Part Descriptor Properties

See more MIME Examples

Demonstrates the properties that describe an individual MIME content part: Charset (the charset parameter of Content-Type), Encoding (the Content-Transfer-Encoding), Disposition (the Content-Disposition value), Filename (the filename parameter of Content-Disposition), and Name (the name parameter of Content-Type). Each is set and then read back, and the effect is visible in the serialized MIME header.

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")
success = mime.SetBodyFromPlainText("The quick brown fox.")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Charset is the charset parameter of the Content-Type header field (meaningful for text parts).
mime.Charset = "utf-8"

'  Encoding is the Content-Transfer-Encoding for this part.
mime.Encoding = "quoted-printable"

'  Disposition, Filename, and Name describe how a receiver should present the part.
'  Filename is the filename parameter of Content-Disposition; Name is the name parameter of
'  Content-Type.  Both are receiver-facing names, not local filesystem paths.
mime.Disposition = "attachment"
mime.Filename = "note.txt"
mime.Name = "note.txt"

'  Read the descriptors back.
outFile.WriteLine("Charset = " & mime.Charset)
outFile.WriteLine("Encoding = " & mime.Encoding)
outFile.WriteLine("Disposition = " & mime.Disposition)
outFile.WriteLine("Filename = " & mime.Filename)
outFile.WriteLine("Name = " & mime.Name)

'  The descriptors appear in the serialized MIME header.
mimeStr = mime.GetMime()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(mimeStr)

outFile.Close