VBScript

Add a String Attachment to an Email

See more Email Object Examples

Demonstrates the Chilkat Email object's AddStringAttachment method, which adds an attachment directly from an in-memory string — no file needs to exist on disk. The 1st argument is the filename that is written into the MIME (it is not a path to a file that is read), and the 2nd argument is the text that becomes the attachment's body. In this example we build a simple email, attach a small CSV file named people.csv straight from a string, and then print the resulting MIME so you can see the attachment embedded in the message. 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)

'  This example demonstrates the Email object's AddStringAttachment method.
'  AddStringAttachment adds an attachment directly from an in-memory string.
'  The 1st argument is the filename to be placed in the MIME (not a file to be read).
'  The 2nd argument is the text content that becomes the attachment body.

set email = CreateObject("Chilkat.Email")

email.Subject = "Email with a string attachment"
email.Body = "See the attached CSV file."
email.From = "mary@example.com"
success = email.AddTo("Joe","joe@example.com")

'  The text content of the attachment.
csvData = "id,name" & vbCrLf & "1,Alice" & vbCrLf & "2,Bob" & vbCrLf

'  Add the string as an attachment named "people.csv".
success = email.AddStringAttachment("people.csv",csvData)

'  Show the full MIME of the email, which now includes the attachment.
outFile.WriteLine(email.GetMime())

outFile.Close