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--

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @mime int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @mime OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OAMethod @mime, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success = 0
      BEGIN
        PRINT 'Failed to unlock component'
        RETURN
      END

    --  Initialize this MIME object as a multipart/mixed:
    EXEC sp_OAMethod @mime, 'NewMultipartMixed', @success OUT

    --  Now insert some files:
    EXEC sp_OAMethod @mime, 'AppendPartFromFile', @success OUT, 'dude.gif'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Insert a GIF Image into the MIME:
    EXEC sp_OAMethod @mime, 'AppendPartFromFile', @success OUT, 'dude.gif'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END
    --  Add a PDF to the MIME:
    EXEC sp_OAMethod @mime, 'AppendPartFromFile', @success OUT, 'halfMarathonWaiver.pdf'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END
    --  Add a MS-Word file to the MIME
    EXEC sp_OAMethod @mime, 'AppendPartFromFile', @success OUT, 'sample.doc'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END
    --  Add an XML document to the MIME:
    EXEC sp_OAMethod @mime, 'AppendPartFromFile', @success OUT, 'pigs.xml'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Save the MIME to a file.
    EXEC sp_OAMethod @mime, 'SaveMime', @success OUT, 'outMime.txt'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Success!
    PRINT 'Success!'

END
GO