Visual Basic 6.0

Transition from MailMan.MxLookup to Dns.Query

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

Dim success As Long
success = 0

Dim mailman As New ChilkatMailMan

' ...
' ...

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

' ------------------------------------------------------------------------
' The MxLookup method is deprecated:

Dim domain As String
domain = mailman.MxLookup(emailAddr)
If (mailman.LastMethodSuccess = 0) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

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

Dim dns As New ChilkatDns

Dim json As New ChilkatJsonObject

' This gets all MX domains for an email address.  (Typically one domain.)
' The preferred domain will be at index 0 (see below).
success = dns.Query("MX",emailAddr,json)
If (success = 0) Then
    Debug.Print dns.LastErrorText
    Exit Sub
End If

Dim i As Long
i = 0
Dim count_i As Long
count_i = json.SizeOfArray("answer.mx")
Do While i < count_i
    json.I = i
    domain = json.StringOf("answer.mx[i].domain")
    Debug.Print domain
    i = i + 1
Loop