VBScript

Set a MIME Body from a File

Demonstrates the Chilkat Mime.SetBodyFromFile method, which reads a local file and sets it as the body, choosing content headers from the filename extension. The only argument is the file path.

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 one-call way to turn a file into a MIME part: Chilkat reads the bytes and infers the Content-Type and transfer encoding from the extension — .jpg becomes image/jpeg with base64, .txt a text type, and so on. It is the natural building block for adding an attachment, usually followed by setting a Content-Disposition and filename.

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.SetBodyFromFile method, which reads a local file and sets it as the body,
'  choosing content headers based on the filename extension.  The only argument is the file path.

set mime = CreateObject("Chilkat.Mime")

'  The Content-Type and encoding are set from the ".jpg" extension (image/jpeg, base64).
success = mime.SetBodyFromFile("qa_data/photo.jpg")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Content-Type: " & mime.ContentType)
outFile.WriteLine("Encoding: " & mime.Encoding)

outFile.Close