Visual Basic 6.0

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 Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
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.

Dim email As New ChilkatEmail

success = email.LoadEml("qa_data/eml/message.eml")
If (success = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
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
    Debug.Print email.LastErrorText
    Exit Sub
End If

Debug.Print "Applied MIME fixups."

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