B4X

Append a Part to a Multipart MIME Entity

Demonstrates the Chilkat Mime.AppendPart method, which appends a copy of another Mime as the last direct child. The only argument is the source Mime. Chilkat copies it, so later changes to the source do not affect the appended part.

Background: This is the general way to build up a multipart entity from parts you construct yourself — a text body, an HTML body, a nested multipart. Because it appends a copy, you can reuse and modify the source object afterward, or append it more than once, without surprises. For attaching a file directly, AppendPartFromFile is more convenient.

Chilkat B4X Downloads

Download Chilkat for B4X

B4X

Dim success As Boolean = False

'  Demonstrates the Mime.AppendPart method, which appends a copy of another Mime as the last direct
'  child.  The only argument is the Mime to append.  Chilkat copies it, so later changes to the
'  source do not affect the appended part.

Dim mime As ChilkatMime
mime.Initialize
success = mime.NewMultipartMixed
If success = False Then
    Log(mime.LastErrorText)
    Return
End If


'  Build a part and append a copy of it.
Dim part As ChilkatMime
part.Initialize
success = part.SetBodyFromPlainText("This is an appended part.")
If success = False Then
    Log(part.LastErrorText)
    Return
End If


success = mime.AppendPart(part)
If success = False Then
    Log(mime.LastErrorText)
    Return
End If


Log("Number of parts: " & mime.NumParts)