不用什么代码，一个函数就够了。
gethostbyname, gethostbyaddr
去MSDN查一查，自己动手来做，才能真正搞明白。很简单的东西，不要总是期望别人把代码写出来给你。

你填写进去就可以了，windows自动找dns进行解析

BOOL CGetSMTPHostName::GetSmtpHostName(CString _EmailAddress, CString& _HostName)
{
BOOL bRV = TRUE;
_HostName.Empty();
int start = _EmailAddress.Find('@')+1;
CString strDomain = _EmailAddress.Mid(start,_EmailAddress.GetLength()-start);
if( ! strDomain.IsEmpty())
{
// First, look in our map to see if we have looked up this SMTP Host before
m_SMTPHostIterator = m_SMTPHost.find(strDomain);
if(m_SMTPHostIterator != m_SMTPHost.end())
{
// Great, we've looked this one up before...
_HostName = (*m_SMTPHostIterator).second;
// Is it unknown???
if(_HostName == "UNK")
{
bRV=FALSE;
_HostName.Empty();
}
}
else
{
// OK, we haven't looked this up before, so look it up
DNS_RECORD* ppQueryResultsSet = NULL;
DNS_STATUS statusDNS = ::DnsQuery( strDomain, DNS_TYPE_MX, DNS_QUERY_STANDARD, NULL, &ppQueryResultsSet, NULL );
if(statusDNS == ERROR_SUCCESS)
{
// Found the SMTP Host Name, insert it into our map
_HostName = ppQueryResultsSet->Data.MX.pNameExchange;
m_SMTPHost.insert(HostMapValue(strDomain,_HostName));
}
else
{
// I have opted to place unknown domains in the map to reduce
// the time that I spend looking up the domain names.  You
// may want to implement this differently for your usage.
bRV = FALSE;
DNS_STATUS theError = statusDNS;
m_SMTPHost.insert(HostMapValue(strDomain,"UNK"));
}
}
}
else
{
// OOPS, is this a valid email address?
bRV = FALSE;
}
return(bRV);
}

这是通过邮件地址得到smtp的服务器名，然后通过gethostbyname得到 ip;

如果有IP，可通过gethostbyaddr得到机器名，不一定是域名。