B4X

Append Part to MIME

See more MIME Examples

Demonstrates the AppendPart method for adding sub-parts to MIME. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  Create a text/plain part.
Dim ptMime As ChilkatMime
ptMime.Initialize
ptMime.SetBodyFromPlainText("This is the plain text body")
Log(ptMime.GetMime)
Log("****")

'  The ptMime contains:
'  ---------------------------------------
'  	Content-Type: text/plain
'  	Content-Transfer-Encoding: 7bit
'  
'  	This is the plain text body
'  ---------------------------------------

'  Start with an empty MIME object...
Dim topLevelMime As ChilkatMime
topLevelMime.Initialize

'  Initialize it to a multipart Content-Type.  We'll use multipart/mixed.
topLevelMime.NewMultipartMixed

'  Append the ptMime as a child.
topLevelMime.AppendPart(ptMime)
Log(topLevelMime.GetMime)
Log("****")

'  The topLevelMime contains:
'  --------------------------
'  	Content-Type: multipart/mixed; boundary="------------010907090104040508040404"
'  
'  	--------------010907090104040508040404
'  	Content-Type: text/plain
'  	Content-Transfer-Encoding: 7bit
'  
'  	This is the plain text body
'  	--------------010907090104040508040404--
'  

'  IMPORTANT: A copy of the MIME passed in AppendPart is appended.
'  Therefore, in this case, changing ptMime does not change the text/plain sub-part in topLevelMime.
'  For example:
ptMime.SetBody("this is the new plain text body.")
'  topLevelMime is unchanged.
Log(topLevelMime.GetMime)
Log("****")

'  To change the content in topLevelMime, we must get the text/plain part.
'  For example:

Dim ptMime2 As ChilkatMime
ptMime2.Initialize
topLevelMime.PartAt(0, ptMime2)

ptMime2.SetBody("this is the new plain text body.")
'  Now topLevelMime is changed.
Log(topLevelMime.GetMime)