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.

Download Chilkat Email ActiveX for POP3 / SMTP

Dim mailman As New ChilkatMailMan2

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Component unlock failed"
    Exit Sub
End If

'  Should return "mail.chilkatsoft.com"
Dim mailServerHostname As String
mailServerHostname = mailman.MxLookup("support@chilkatsoft.com")

MsgBox mailServerHostname