Create Multipart/Alternative MIME

Download Chilkat MIME ActiveX

Create a simple multipart/alternative MIME message.

Dim mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) 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 ChilkatMime
ptMime.SetBodyFromPlainText "This is the plain-text body"
mime.AppendPart ptMime

'  Now do the same for HTML:
Dim htMime As New ChilkatMime
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:
Text1.Text = Text1.Text & mime.GetMime() & vbCrLf

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

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

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

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