Decode Base64 MIME Body

Download Chilkat MIME ActiveX

Decoding a MIME body from Base64.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock component"
    WScript.Quit
End If

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

mimeStr1 = mime.GetMime()

outFile.WriteLine(mimeStr1)
outFile.WriteLine("-------------------------------")

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

'  Load the MIME into another Chilkat MIME object:
set mime2 = CreateObject("Chilkat.Mime")
mime2.LoadMime mimeStr1

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

'  Prints: this is a test
outFile.WriteLine(decodedBody)


outFile.Close