(AutoIt) Example: Email.GetDsnInfo method

See more Email Object Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

$oEmail = ObjCreate("Chilkat.Email")

Local $bSuccess = $oEmail.LoadEml("qa_data/eml/sample_multipart_report.eml")
If ($bSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

$oJson = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oEmail.GetDsnInfo($oJson)
If ($bSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

$oJson.EmitCompact = False
ConsoleWrite($oJson.Emit() & @CRLF)

; Sample output:

; {
;   "reporting-mta": "dns; Exchange2016.example.com",
;   "final-recipient": [
;     "herb.butterworth1247692846@gmail.com"
;   ],
;   "action": "failed",
;   "status": "5.1.1",
;   "remote-mta": "dns; mx.google.com",
;   "x-supplementary-info": "<mx.google.com #5.1.1 smtp;550-5.1.1 The email account that you tried to reach does not exist. Please try 550-5.1.1 double-checking the recipient's email address for typos or 550-5.1.1 unnecessary spaces. Learn more at 550 5.1.1  https://support.google.com/mail/?p=NoSuchUser o8-20020a056870968800b001b55816bea9si2188132oaq.70 - gsmtp>",
;   "x-display-name": "herb.butterworth1247692846@gmail.com"
; }

; Code for parsing the JSON:

Local $strVal

Local $sReporting_mta = $oJson.StringOf("reporting-mta")
Local $sAction = $oJson.StringOf("action")
Local $status = $oJson.StringOf("status")
Local $sRemote_mta = $oJson.StringOf("remote-mta")
Local $sX_supplementary_info = $oJson.StringOf("x-supplementary-info")
Local $sX_display_name = $oJson.StringOf("x-display-name")
Local $i = 0
Local $iCount = $oJson.SizeOfArray("final-recipient")
While $i < $iCount
    $oJson.I = $i
    $strVal = $oJson.StringOf("final-recipient[i]")
    $i = $i + 1
Wend