Embed PDF, MS-WORD, XML, and GIF in Multipart/Mixed MIME

Create MIME containing a PDF, MS-WORD document, XML document, and GIF image.

The MIME produced by this example (scroll down to see code) looks like this:

Content-Type: multipart/mixed;
	boundary="-----_chilkat_497_6119_39274c1d.69931ed1_.MIX"

This is a multi-part message in MIME format.

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="dude.gif"
content-transfer-encoding: base64
Content-Type: image/gif;
	name="dude.gif"

R0lGODlhZABkAPf/AP////f39+fn7+/v9/f3/+fn99bW597e79bW78bG3s7O57291rW1zsbG
57293rW11q2tzqWlxq2t1qWlzpycxpSUvYyMtYSErZyczpSUxoyMvYSEtXt7rYSEvXt7tXNz
...
wxAGcf2vMwE08FYXMvmrAuSR4E84VAhILTAsJDIijyQim9P1jVQpglWrG0ADLOABJYG5GjBs
ClERHqH/GBUQADs=

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="dude.gif"
content-transfer-encoding: base64
Content-Type: image/gif;
	name="dude.gif"

R0lGODlhZABkAPf/AP////f39+fn7+/v9/f3/+fn99bW597e79bW78bG3s7O57291rW1zsbG
57293rW11q2tzqWlxq2t1qWlzpycxpSUvYyMtYSErZyczpSUxoyMvYSEtXt7rYSEvXt7tXNz
...
wxAGcf2vMwE08FYXMvmrAuSR4E84VAhILTAsJDIijyQim9P1jVQpglWrG0ADLOABJYG5GjBs
ClERHqH/GBUQADs=

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="halfMarathonWaiver.pdf"
content-transfer-encoding: base64
Content-Type: application/pdf;
	name="halfMarathonWaiver.pdf"

JVBERi0xLjMKJcfsj6IKNSAwIG9iago8PC9MZW5ndGggNiAwIFIvRmlsdGVyIC9GbGF0ZURl
Y29kZT4+CnN0cmVhbQp4nO1bbW/cuBH+vr9CRfthdcgqJEVRYoAidV7uLkWS3qUGgiJXFM7G
...
Ci9JRCBbKHsfO+TdPLVEgU+Ir7qbh10pKHsfO+TdPLVEgU+Ir7qbh10pXQo+PgpzdGFydHhy
ZWYKMzMzMjEKJSVFT0YK

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="sample.doc"
content-transfer-encoding: base64
Content-Type: application/msword;
	name="sample.doc"

0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAACAAAAzwAAAAAA
AAAAEAAA0QAAAAEAAAD+////AAAAAM0AAADOAAAA////////////////////////////////
...
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAA==

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="pigs.xml"
content-transfer-encoding: 7bit
Content-Type: text/xml;
	name="pigs.xml"

<pig-rescue>
	<image-base>images</image-base>
    <animal>
    	<species>pot belly pig</species>
    	<type>Cathy's Herd</type>
        <name>Molly II</name>
        <birth>February, 1998</birth>
...
</pig-rescue>          
                            

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX--

Dim mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock component"
    Exit Sub
End If

'  Initialize this MIME object as a multipart/mixed:
success = mime.NewMultipartMixed()

'  Now insert some files:
success = mime.AppendPartFromFile("dude.gif")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Insert a GIF Image into the MIME:
success = mime.AppendPartFromFile("dude.gif")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Add a PDF to the MIME:
success = mime.AppendPartFromFile("halfMarathonWaiver.pdf")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Add a MS-Word file to the MIME
success = mime.AppendPartFromFile("sample.doc")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Add an XML document to the MIME:
success = mime.AppendPartFromFile("pigs.xml")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Save the MIME to a file.
success = mime.SaveMime("outMime.txt")
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Success!
MsgBox "Success!"