(Xojo Plugin) Transition from MailMan.MxLookup to Dns.Query

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

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim mailman As New Chilkat.MailMan

// ...
// ...

Dim emailAddr As String
emailAddr = "joe@example.com"

// ------------------------------------------------------------------------
// The MxLookup method is deprecated:

Dim domain As String
domain = mailman.MxLookup(emailAddr)
If (mailman.LastMethodSuccess = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

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

Dim dns As New Chilkat.Dns

Dim json As New Chilkat.JsonObject

// This gets all MX domains for an email address.  (Typically one domain.)
// The preferred domain will be at index 0 (see below).
Dim success As Boolean
success = dns.Query("MX",emailAddr,json)
If (success = False) Then
    System.DebugLog(dns.LastErrorText)
    Return
End If

Dim i As Int32
i = 0
Dim count_i As Int32
count_i = json.SizeOfArray("answer.mx")
While i < count_i
    json.I = i
    domain = json.StringOf("answer.mx[i].domain")
    System.DebugLog(domain)
    i = i + 1
Wend