Visual FoxPro

Check if a MIME Part is HTML

Demonstrates the Chilkat Mime.IsHtml method, which returns whether the Content-Type is exactly text/html. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Finding the HTML part is the common goal when rendering a message richly — it is the formatted version a mail client prefers. In a multipart/alternative you would locate it with this predicate and fall back to the plain-text part when it is absent.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMime
LOCAL n
LOCAL loPart
LOCAL i

lnSuccess = 0

*  Demonstrates the Mime.IsHtml method, which returns whether the Content-Type is text/html.  It takes no arguments and applies to the current
*  part.  This example iterates the parts of a multipart message and reports which ones match.

loMime = CreateObject('Chilkat.Mime')
lnSuccess = loMime.LoadMimeFile("qa_data/multipart_message.eml")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

n = loMime.NumParts
loPart = CreateObject('Chilkat.Mime')

FOR i = 0 TO n - 1
    lnSuccess = loMime.PartAt(i,loPart)
    IF (lnSuccess = 0) THEN
        ? loMime.LastErrorText
        RELEASE loMime
        RELEASE loPart
        CANCEL
    ENDIF

    IF (loPart.IsHtml()) THEN
        ? "Part " + STR(i) + " (" + loPart.ContentType + ") is HTML."
    ENDIF

NEXT

RELEASE loMime
RELEASE loPart