VBScript

Attach a File to an Email

Demonstrates the Chilkat Email.AddFileAttachment method, which attaches a file read from the filesystem. It returns the content type Chilkat assigned to the attachment (inferred from the file extension). This example attaches a PDF and prints its detected content type.

Background: Each attachment carries a Content-Type (MIME type) such as application/pdf or image/png that tells the receiving client how to handle it. Chilkat gets this from the file's extension. Because attachment bytes are binary, they are Base64-encoded for transport, which is handled automatically — you simply point AddFileAttachment at a path and the file is read, encoded, and packaged into the message.

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)

'  Demonstrates the AddFileAttachment method, which attaches a file read from the
'  filesystem.  It returns the content type Chilkat assigned to the attachment (based on
'  the file extension), or returns failure if the file could not be read.

set email = CreateObject("Chilkat.Email")
email.Subject = "Email with a file attachment"
email.Body = "Please see the attached file."

'  Attach a file.  The return value is the auto-detected content type.
contentType = email.AddFileAttachment("qa_data/attachments/report.pdf")
If (email.LastMethodSuccess = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Attached content type = " & contentType)
outFile.WriteLine("NumAttachments = " & email.NumAttachments)

'  Note: The path "qa_data/attachments/report.pdf" is a relative local filesystem path,
'  relative to the current working directory of the running application.

outFile.Close