Add Content-Length Header to a MIME Message

The AddContentLength method automatically computes the length of the MIME content and adds a Content-Length header with the correct number of bytes.

Download Chilkat MIME ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Set the MIME body:
mime.SetBody "This is a test"

'  The complete size (in bytes) of the contents is computed,
'  even if the MIME is multipart, and the Content-Length header
'  is added.
mime.AddContentLength 

'  Display the MIME:
outFile.WriteLine(mime.GetMime())


outFile.Close