Decode Base64 MIME Body

Decoding a MIME body from Base64.

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 component")
    Exit Sub
End If


'  Create MIME with base64 encoding:
mime.SetBodyFromPlainText("This is a test")
mime.Charset = "windows-1252"
mime.Encoding = "base64"

Dim mimeStr1 As String
mimeStr1 = mime.GetMime()

TextBox1.Text = TextBox1.Text & mimeStr1 & vbCrLf
TextBox1.Text = TextBox1.Text & "-------------------------------" & vbCrLf

'  Output looks like this:
'  Content-Type: text/plain;
'           charset="windows-1252"
'  content-transfer-encoding: base64
' 
'  VGhpcyBpcyBhIHRlc3Q=

'  Load the MIME into another Chilkat MIME object:
Dim mime2 As New Chilkat.Mime()
mime2.LoadMime(mimeStr1)

'  Get the MIME body decoded:
Dim decodedBody As String
decodedBody = mime2.GetBodyDecoded()

'  Prints: this is a test
TextBox1.Text = TextBox1.Text & decodedBody & vbCrLf