VBScript

Set the Charset of an Attachment

Demonstrates the Chilkat Email.SetAttachmentCharset method, which sets the charset parameter of the Content-Type header field for the attachment at a given zero-based index. This example adds a text attachment and sets its charset to utf-8.

Background: For a text attachment, the charset parameter tells the receiving client which character encoding the bytes use, so accented or non-Latin text renders correctly. Setting it explicitly (typically utf-8) removes ambiguity when the attachment contains non-ASCII content — without it, a client may guess wrong and display garbled characters.

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 SetAttachmentCharset method, which sets the charset parameter of the
'  Content-Type header field for the attachment at the given zero-based index.

set email = CreateObject("Chilkat.Email")
email.Subject = "Set attachment charset"

success = email.AddStringAttachment("notes.txt","Some notes.")

'  Set the charset of the first attachment (index 0) to utf-8.
success = email.SetAttachmentCharset(0,"utf-8")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  The attachment's Content-Type now includes charset="utf-8".
outFile.WriteLine(email.GetMime())

outFile.Close