VBScript

Set a MIME Body from Binary Bytes (BinData)

Demonstrates the Chilkat Mime.SetBodyBd method, which sets the decoded body bytes from a BinData, changes the transfer encoding to base64, and preserves the bytes exactly. The only argument is the BinData.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the direct way to put arbitrary binary content into a part from memory — a generated image, a decrypted blob — without a temporary file. Chilkat base64-encodes it so the bytes survive text-based transports unchanged. Note it does not set a Content-Type or disposition, so assign those yourself to describe what the bytes are.

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.SetBodyBd method, which sets the decoded body bytes from a BinData,
'  changes the transfer encoding to base64, and preserves the bytes exactly.  The only argument is
'  the BinData.

'  Put the binary body bytes into a BinData.
set bd = CreateObject("Chilkat.BinData")
success = bd.LoadFile("qa_data/photo.jpg")
If (success = 0) Then
    outFile.WriteLine(bd.LastErrorText)
    WScript.Quit
End If

set mime = CreateObject("Chilkat.Mime")

'  Set a Content-Type for the binary content (SetBodyBd does not set one itself).
mime.ContentType = "image/jpeg"

success = mime.SetBodyBd(bd)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Body set from " & bd.NumBytes & " bytes.")

outFile.Close