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 mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    Text1.Text = Text1.Text & mime.LastErrorText & vbCrLf
    Exit Sub
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:
Text1.Text = Text1.Text & mime.GetMime() & vbCrLf