Visual FoxPro

Remove a MIME Header Field

Demonstrates the Chilkat Mime.RemoveHeaderField method, which removes header fields whose name matches case-insensitively. The first argument is the field name and the second (bAllOccurrences) selects whether to remove all matches or only the first. It is a void method.

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: Stripping headers is common when reprocessing a message — removing spam-scoring X- headers, clearing an old Content-Length before re-serializing, or deleting routing headers before forwarding. The all-occurrences flag matters for headers that can repeat: pass true to purge every instance, or false to drop just the first.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMime
LOCAL lnBAllOccurrences

lnSuccess = 0

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

*  Remove header fields whose name matches (case-insensitively).  The 1st argument is the field
*  name and the 2nd (bAllOccurrences) selects whether to remove all matches or only the first.
*  RemoveHeaderField is a void method.

*  Remove every X-Spam-Status header.
lnBAllOccurrences = 1
loMime.RemoveHeaderField("X-Spam-Status",lnBAllOccurrences)

? "Removed the header field(s)."

RELEASE loMime