VBScript

Set a MIME Body from Transfer-Encoded Text

Demonstrates the Chilkat Mime.SetBodyFromEncoded method, which sets the body from already transfer-encoded text. The first argument is the encoding (base64 or quoted-printable) and the second is the encoded text.

Background: Sometimes you already hold content in its encoded form — a Base64 string from a database or another API — and re-decoding just to have Chilkat re-encode it is wasteful. This method stores the encoded text as-is and records the matching transfer encoding, so the body is correct without a needless round trip. Only the standard reversible encodings, Base64 and quoted-printable, are accepted.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the Mime.SetBodyFromEncoded method, which sets the body from already transfer-
'  encoded text.  The 1st argument is the encoding ("base64" or "quoted-printable") and the 2nd is
'  the encoded text.

set mime = CreateObject("Chilkat.Mime")

mime.ContentType = "text/plain"

'  The body is provided already Base64-encoded; Chilkat stores it without re-encoding.
base64Body = "SGVsbG8sIHRoaXMgaXMgdGhlIGJvZHku"
success = mime.SetBodyFromEncoded("base64",base64Body)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  The decoded body is the original text.
decoded = mime.GetBodyDecoded()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(decoded)

outFile.Close