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

Dim mime As New ChilkatMime

'  Create a multipart/mixed entity.
success = mime.NewMultipartMixed()
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
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.
Dim part As New ChilkatMime
success = part.SetBodyFromPlainText("First part.")
If (success = 0) Then
    Debug.Print part.LastErrorText
    Exit Sub
End If

success = mime.AppendPart(part)
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Debug.Print "Boundary = " & mime.Boundary

Dim mimeStr As String
mimeStr = mime.GetMime()
If (mime.LastMethodSuccess = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Debug.Print mimeStr