Create Multipart/Alternative MIME

Create a simple multipart/alternative MIME message.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()

Dim success As Boolean
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = false) Then
    MsgBox("Failed to unlock")
    Exit Sub
End If


'  Make this a multipart/alternative MIME message:
mime.NewMultipartAlternative()

'  Create a plain-text part and add it to the multipart/alternative MIME.
Dim ptMime As New Chilkat.Mime()
ptMime.SetBodyFromPlainText("This is the plain-text body")
mime.AppendPart(ptMime)

'  Now do the same for HTML:
Dim htMime As New Chilkat.Mime()
htMime.SetBodyFromHtml("<html><body>This is the HTML body</body></html>")
mime.AppendPart(htMime)

'  Show the full multipart/alternative MIME text which includes both parts:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf


'  Need to change the boundary string?
mime.Boundary = "__NewBoundaryString__123"

'  Need to change the charset?
ptMime = mime.GetPart(0)
ptMime.Charset = "utf-8"
htMime = mime.GetPart(1)
htMime.Charset = "utf-8"

'  Need to change the encoding?
htMime.Encoding = "base64"

'  Now show the MIME again:
TextBox1.Text = TextBox1.Text & "---- After Changes ----" & vbCrLf
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf

Mail Component · XML Parser