(VBScript) Add Header Field to MIME Sub-Header in Email

Demonstrates how to add a header field to one of the attachment sub-headers in an email.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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 requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = CreateObject("Chilkat.Email")

email.Subject = "test"
success = email.AddTo("Chilkat","support@chilkatsoft.com")
email.From = "Matt <matt@example.com>"
email.Body = "This is a simple plain-text body."

success = email.AddFileAttachment2("qa_data/1.HPM","application/x-hprimnet")
If (success <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

' Add a "ContentDescription: HPM/3.0" in the attachment's sub-header.
' The 1st attachment is at index 0.
email.AddAttachmentHeader 0,"Content-Description","HPM/3.0"

' Show the email MIME:
outFile.WriteLine(email.GetMime())

' This is the output:
' (Note: When Chilkat sends email, all CKX-* headers are removed prior to sending.)

' MIME-Version: 1.0
' Date: Wed, 16 Jan 2019 10:05:18 -0600
' Message-ID: <93B88835586270B7BE5202F84E171F29C10BA935@CHILKATSLICE>
' Content-Type: multipart/mixed; boundary="------------000502000000020502010608"
' X-Priority: 3 (Normal)
' Subject: test
' To: Chilkat <support@chilkatsoft.com>
' From: Matt <matt@example.com>
' CKX-Bounce-Address: matt@example.com
' 
' --------------000502000000020502010608
' Content-Type: text/plain; charset=us-ascii; format=flowed
' Content-Transfer-Encoding: 7bit
' 
' This is a simple plain-text body.
' --------------000502000000020502010608
' Content-Type: application/x-hprimnet; name="1.HPM"
' Content-Transfer-Encoding: base64
' Content-Disposition: attachment; filename="1.HPM"
' Content-Description: HPM/3.0
' 
' FILE_DATA_IS_HERE...
' 
' --------------000502000000020502010608--

outFile.Close