Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMime
LOCAL nBAllOccurrences

nSuccess := 0

oMime := CreateObject("Chilkat.Mime")
nSuccess := oMime:LoadMimeFile("qa_data/message.eml")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
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.
nBAllOccurrences := 1
oMime:RemoveHeaderField("X-Spam-Status", nBAllOccurrences)

? "Removed the header field(s)."

oMime:destroy()