VBScript

Add Content-Length Header to a MIME Message

See more MIME Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set mime = CreateObject("Chilkat.Mime")

' 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