VBScript

Repair MIME Formatting Problems in an Email

Demonstrates the Chilkat Email.ApplyFixups method, which repairs selected MIME-formatting problems commonly found in email produced by other software. The argument is a comma-separated list of fixup keywords. The currently defined keyword is FixRelated, which relocates HTML-related items (such as embedded images) into the appropriate MIME structure so they are not incorrectly presented as ordinary attachments. This example loads an email and applies that fixup.

Background: Not every mail program builds strictly correct MIME. A common defect is placing an inline image as a loose attachment instead of nesting it in a multipart/related enclosure, which makes it show up as a downloadable file rather than displaying in the HTML. ApplyFixups corrects such structural issues so the message renders as intended.

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 ApplyFixups method, which repairs selected MIME-formatting problems
'  commonly found in email produced by other software.  The argument is a comma-separated
'  list of fixup keywords.

set email = CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/message.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Apply the "FixRelated" fixup, which relocates HTML-related items (such as embedded
'  images) into the proper MIME structure so they are not shown as ordinary attachments.
success = email.ApplyFixups("FixRelated")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Applied MIME fixups.")

'  Note: The path "qa_data/..." is a relative local filesystem path,
'  relative to the current working directory of the running application.

outFile.Close