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

set mailman = CreateObject("Chilkat.MailMan2")

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

'  Should return "mail.chilkatsoft.com"

mailServerHostname = mailman.MxLookup("support@chilkatsoft.com")

MsgBox mailServerHostname