Modify Content-Disposition Header Fields in MIME

Demonstrates how to edit the Content-Disposition header in MIME sub-parts.

LOCAL loMime
LOCAL lnSuccess
LOCAL lnNumParts
LOCAL i
LOCAL loMimePart
LOCAL lcFilename
LOCAL lcDisposition


*  The intent of this example is to modify Content-Disposition
*  header fields from this:
* 
*  Content-Disposition: attachment; filename="a4 manuscript.pdf"; size=0;
*  	creation-date="Thu, 12 Apr 2007 06:39:10 GMT";
*  	modification-date="Thu, 12 Apr 2007 06:39:10 GMT"
* 
*  to this:
* 
*  content-disposition: attachment;
*  	 filename="a4 manuscript.pdf"
* 

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to unlock")
    QUIT
ENDIF

lnSuccess = loMime.LoadMimeFile("testMime.txt")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  This example assumes the header fields to be modified
*  are located directly beneath the top-level MIME part.

lnNumParts = loMime.NumParts

FOR i = 0 TO lnNumParts - 1
    loMimePart = loMime.GetPart(i)

    lcDisposition = loMimePart.Disposition
    IF (lcDisposition = "attachment") THEN
        lcFilename = loMimePart.Filename
        *  AddHeaderField replaces the existing field if it already exists.
        *  Discard the contents of the existing Content-Disposition
        *  and replace it with "attachment".
        loMimePart.AddHeaderField("content-disposition","attachment")

        *  Now add the filename attribute:
        loMimePart.Filename = lcFilename
    ENDIF

    RELEASE loMimePart
NEXT

lnSuccess = loMime.SaveMime("modifiedMime.txt")