Visual Basic 6.0

Transition from MailMan.MxLookupAll to the Chilkat DNS class

Provides instructions for replacing deprecated MxLookupAll 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 MxLookupAll method is deprecated:

Dim sa As CkStringArray
Set sa = mailman.MxLookupAll(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
    Dim domain As String
    domain = json.StringOf("answer.mx[i].domain")
    Debug.Print domain
    i = i + 1
Loop