Modify Content-Disposition Header Fields in MIME

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

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

set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock"
    WScript.Quit
End If

success = mime.LoadMimeFile("testMime.txt")
If (success = 0) Then
    MsgBox mime.LastErrorText
    WScript.Quit
End If

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

numParts = mime.NumParts

For i = 0 To numParts - 1
    Set mimePart = mime.GetPart(i)

    disposition = mimePart.Disposition
    If (disposition = "attachment") Then
        filename = mimePart.Filename
        '  AddHeaderField replaces the existing field if it already exists.
        '  Discard the contents of the existing Content-Disposition
        '  and replace it with "attachment".
        mimePart.AddHeaderField "content-disposition","attachment"

        '  Now add the filename attribute:
        mimePart.Filename = filename
    End If

Next

success = mime.SaveMime("modifiedMime.txt")