MIME SetBody

Set the body text of a MIME message via the SetBody method.

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

'  Add a few header fields:
mime.AddHeaderField "Content-Type","text/plain"
mime.AddHeaderField "Subject","this is a test"

'  Set the body text content via SetBody.
'  (Other methods such as SetBodyFromPlainText, or SetBodyFromFile
'  will also automatically set the Content-Type header based
'  on the type of content.  The SetBody method does not
'  alter the MIME header.)
mime.SetBody "This is the body text..."

Text1.Text = Text1.Text & mime.GetMime() & vbCrLf

'  The MIME should look like this:
'  
Content-Type: text/plain
Subject: this is a test

This is the body text...