PureBasic

Create a Message Disposition Notification (MDN)

Demonstrates the Chilkat Email.ToMdn method, which creates a new MDN (Message Disposition Notification) email in the format specified by RFC 3798, based on this email. The generated MDN is returned in the last argument, and the source email is not modified. The first argument is the human-readable message, the second is the disposition fields, and the third indicates whether to include headers only. This example builds an MDN for a received message.

Background: An MDN is the formal "read receipt" — the response returned (with the user's consent) when a message requesting a receipt is opened. Like a DSN it is a multipart/report, but it carries a message/disposition-notification part describing what happened to the message (for example, displayed). ToMdn generates that report, which pairs with the ReturnReceipt property that requests one.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the ToMdn method, which creates a new MDN (Message Disposition Notification)
    ;  email (RFC 3798) based on this email.  The generated MDN is returned in the last argument.
    ;  The source email is not modified.

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkEmail::ckLoadEml(email,"qa_data/eml/received.eml")
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ;  Create an MDN (read receipt) for the received message.  The 1st argument is the
    ;  human-readable message, the 2nd is the disposition fields, and the 3rd (headerOnly) is false.
    mdn.i = CkEmail::ckCreate()
    If mdn.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkEmail::ckToMdn(email,"Your message has been displayed.","Disposition: manual-action/MDN-sent-manually; displayed",0,mdn)
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        CkEmail::ckDispose(mdn)
        ProcedureReturn
    EndIf

    ;  Populate additional sender/recipient fields on the MDN before sending, then send it.
    Debug CkEmail::ckGetMime(mdn)

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


    CkEmail::ckDispose(email)
    CkEmail::ckDispose(mdn)


    ProcedureReturn
EndProcedure