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 success As Long
success = 0

Dim mime As New ChilkatMime
success = mime.SetBodyFromPlainText("The quick brown fox.")
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
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.
Debug.Print "Charset = " & mime.Charset
Debug.Print "Encoding = " & mime.Encoding
Debug.Print "Disposition = " & mime.Disposition
Debug.Print "Filename = " & mime.Filename
Debug.Print "Name = " & mime.Name

'  The descriptors appear in the serialized MIME header.
Dim mimeStr As String
mimeStr = mime.GetMime()
If (mime.LastMethodSuccess = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Debug.Print mimeStr