AutoIt

Transition from MailMan.MxLookup to Dns.Query

Provides instructions for replacing deprecated MxLookup method calls with the Chilkat Dns class. AutoIt

Local $bSuccess = False

$oMailman = ObjCreate("Chilkat.MailMan")

; ...
; ...

Local $sEmailAddr = "joe@example.com"

; ------------------------------------------------------------------------
; The MxLookup method is deprecated:

Local $sDomain = $oMailman.MxLookup($sEmailAddr)
If ($oMailman.LastMethodSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

; ------------------------------------------------------------------------
; Do the equivalent using the Chilkat DNS class

$oDns = ObjCreate("Chilkat.Dns")

$oJson = ObjCreate("Chilkat.JsonObject")

; This gets all MX domains for an email address.  (Typically one domain.)
; The preferred domain will be at index 0 (see below).
$bSuccess = $oDns.Query("MX",$sEmailAddr,$oJson)
If ($bSuccess = False) Then
    ConsoleWrite($oDns.LastErrorText & @CRLF)
    Exit
EndIf

Local $i = 0
Local $iCount_i = $oJson.SizeOfArray("answer.mx")
While $i < $iCount_i
    $oJson.I = $i
    $sDomain = $oJson.StringOf("answer.mx[i].domain")
    ConsoleWrite($sDomain & @CRLF)
    $i = $i + 1
Wend