(VBScript) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
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