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

LOCAL loMailman
LOCAL lnSuccess
LOCAL lcMailServerHostname

loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Should return "mail.chilkatsoft.com"

lcMailServerHostname = loMailman.MxLookup("support@chilkatsoft.com")

=MESSAGEBOX(lcMailServerHostname)