PureBasic

Set the X-Priority Header of an Email

Demonstrates how to set the X-Priority header field of an email. PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ; The AddHeaderField can be called to add any header field.
    ; If the header field already exists, AddHeaderField replaces it.
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::ckAddHeaderField(email,"X-Priority","3 (Normal)")

    CkEmail::ckAddHeaderField(email,"X-Priority","1 (High)")

    CkEmail::ckAddHeaderField(email,"X-Priority","5 (Low)")

    ; The X-Priority value ranges from 1 to 5, with 1 being 
    ; high priority, 3 is normal, and 5 is low.
    ; You may set X-Priority to the number alone:

    CkEmail::ckAddHeaderField(email,"X-Priority","1")

    ; Including extra text, such as (High), should not 
    ; affect how the header is interpreted.
    CkEmail::ckAddHeaderField(email,"X-Priority","1 (High)")


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure