Decode Base64 MIME Body

Download Chilkat MIME ActiveX

Decoding a MIME body from Base64.

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 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()

Text1.Text = Text1.Text & mimeStr1 & vbCrLf
Text1.Text = Text1.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 ChilkatMime
mime2.LoadMime mimeStr1

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

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