VBScript

Add a Custom Header to an Email Attachment

Demonstrates the Chilkat Email.AddAttachmentHeader method, which adds a custom MIME header field to an existing attachment identified by its zero-based index. This example adds an attachment (which becomes index 0), then attaches an extra header field to it and prints the resulting MIME.

Background: In MIME, every attachment is itself a mini-message with its own small block of headers — things like Content-Type, Content-Disposition, and Content-Transfer-Encoding that describe that specific part. AddAttachmentHeader lets you insert additional fields into that per-part header block, which is occasionally needed for interoperability with systems that look for custom X- headers or content identifiers on individual attachments.

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 AddAttachmentHeader method, which adds a custom MIME header field to
'  an existing attachment, identified by its zero-based index.

set email = CreateObject("Chilkat.Email")
email.Subject = "Attachment with a custom header"
email.Body = "The attachment has an extra MIME header."

'  Add an attachment; it becomes attachment index 0.
success = email.AddStringAttachment("data.txt","Attachment body.")

'  Add a custom header field to the first attachment (index 0).
email.AddAttachmentHeader 0,"X-Custom-Attachment-Header","some value"

'  The custom header now appears in the attachment's MIME part.
outFile.WriteLine(email.GetMime())

outFile.Close