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