VBScript

Get a Header Attribute of an Attachment

Demonstrates the Chilkat Email.GetAttachmentAttr method, which returns a header-field attribute value from a header field of the Nth attachment. The first argument is the zero-based attachment index, the second names a header field, and the third names an attribute within it. This example reads the filename attribute of the attachment's Content-Disposition header.

Background: A MIME header can have named parameters after its main value, such as Content-Type: text/plain; charset="utf-8"; name="notes.txt". Here charset and name are attributes. GetAttachmentAttr pulls out one named attribute from a chosen header of a specific attachment, sparing you from parsing the raw header string and dealing with quoting or ordering.

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 GetAttachmentAttr method, which returns a header-field attribute value
'  from a header field of the Nth attachment.  The first argument is the zero-based attachment
'  index, the second is the header field name, and the third is the attribute name.

set email = CreateObject("Chilkat.Email")
email.Subject = "Attachment header attribute"

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

'  Get the "filename" attribute of the attachment's Content-Disposition header (index 0).
fname = email.GetAttachmentAttr(0,"Content-Disposition","filename")
outFile.WriteLine("Attachment filename attribute: " & fname)

outFile.Close