Get JSON Details from the Last MailMan Call

See more SMTP Examples

Demonstrates the Chilkat MailMan.GetLastJsonData method, which copies any structured JSON details produced by the immediately preceding method call into a JsonObject. Not every MailMan method produces JSON details, and the method must be called immediately after the call of interest. This example sends an email and then retrieves the JSON details, which include the negotiated TLS version and parameters, the SMTP server's last response and status code, and the result of SMTP authentication.

Tip: JSON parsing code for this result can be generated at Chilkat Tools.

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vEmail
    Handle hoEmail
    Variant vJson
    Handle hoJson
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the MailMan.GetLastJsonData method, which copies any structured JSON details
    //  produced by the immediately preceding method call into a JsonObject.  Not every MailMan
    //  method produces JSON details, and it must be called immediately after the method of
    //  interest.

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    //  Configure the SMTP server connection.
    Set ComSmtpHost Of hoMailman To "smtp.example.com"
    Set ComSmtpPort Of hoMailman To 465
    Set ComSmtpSsl Of hoMailman To True
    Set ComSmtpUsername Of hoMailman To "user@example.com"
    Set ComSmtpPassword Of hoMailman To "myPassword"

    //  Send an email.
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Test email"
    Set ComFrom Of hoEmail To "alice@example.com"
    Get ComAddTo Of hoEmail "Bob" "bob@example.com" To iSuccess
    Set ComBody Of hoEmail To "Hello!"
    Get pvComObject of hoEmail to vEmail
    Get ComSendEmail Of hoMailman vEmail To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Immediately retrieve any JSON details produced by the send.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get pvComObject of hoJson to vJson
    Send ComGetLastJsonData To hoMailman vJson

    //  Emit non-compact (indented) JSON for readability.
    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    //  Sample output:
    //  
    //    {
    //      "tls": {
    //        "params": {
    //          "sniHostname": "mail.chilkat.io",
    //          "allowConnectionOnlyIfServerChooses": "SSL 3.0 or higher"
    //        },
    //        "negotiatedTlsVersion": "TLS 1.3"
    //      },
    //      "smtp": {
    //        "lastResponse": "250 OK id=1wkjeT-00000002yb4-0uve",
    //        "lastStatus": 250
    //      },
    //      "smtpAuth": {
    //        "user": "test@chilkat.io",
    //        "method": "login",
    //        "statusCode": 235,
    //        "success": true
    //      }
    //    }
    //  
    //  JSON parsing code for this result can be generated at Chilkat's online tool:
    //  https://tools.chilkat.io/jsonParse

    //  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
    //  connects and authenticates -- using the property settings above -- whenever a server
    //  operation requires it.  Calling the explicit connect/authenticate methods can still be
    //  helpful to determine whether a failure occurs while connecting or while authenticating.


End_Procedure