Visual FoxPro

Get Delivery-Status Info as JSON

Demonstrates the Chilkat Email.GetDsnInfo method, which — when IsMultipartReport indicates the email is a multipart/report — obtains the delivery-status information as a JsonObject. This example loads a bounce message, confirms it is a report, and prints the extracted DSN details as JSON.

Background: A bounce (DSN) carries its key facts — which recipient failed, the status code, the reporting server — in a machine-readable message/delivery-status part. Rather than parsing those raw fields yourself, GetDsnInfo gathers them into a structured JSON document you can query with the JsonObject API, making it easy to automate bounce handling and prune failed addresses from a mailing list.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loJson

lnSuccess = 0

*  Demonstrates the GetDsnInfo method, which, for a multipart/report email, obtains the
*  delivery-status information as a JSON object.

loEmail = CreateObject('Chilkat.Email')

lnSuccess = loEmail.LoadEml("qa_data/eml/dsn_bounce.eml")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

*  Only meaningful for a multipart/report email.
IF (loEmail.IsMultipartReport() = 1) THEN
    loJson = CreateObject('Chilkat.JsonObject')
    lnSuccess = loEmail.GetDsnInfo(loJson)
    IF (lnSuccess = 1) THEN
        ? loJson.Emit()
    ENDIF

ELSE
    ? "This email is not a multipart/report."
ENDIF

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

RELEASE loEmail
RELEASE loJson