Modify Content-Disposition Header Fields in MIME

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

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

Dim mime As New Chilkat.Mime()

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


success = mime.LoadMimeFile("testMime.txt")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  This example assumes the header fields to be modified
'  are located directly beneath the top-level MIME part.
Dim numParts As Long
numParts = mime.NumParts

Dim i As Long
Dim mimePart As Chilkat.Mime

Dim filename As String
Dim disposition As String

For i = 0 To numParts - 1
    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")