(Visual Basic 6.0) MX Lookup Mail Server Domain by Email Address
How to find the mail server for a given email address. Returns the domain name of the primary mail server. Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Long
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim dns As New ChilkatDns
Dim json As New ChilkatJsonObject
Dim emailAddr As String
emailAddr = "bob@example.com"
' 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
|
