检查邮件服务器是否有效

转载 2006年05月22日 21:25:00
检查邮件服务器是否有效
    Private Function GetMailServer(ByVal sDomain As String) As String
        Dim info As New ProcessStartInfo
        Dim ns As Process
        '调用Windows的nslookup命令,查找邮件服务器
        info.UseShellExecute = False
        info.RedirectStandardInput = True
        info.RedirectStandardOutput = True
        info.FileName = "nslookup"
        info.CreateNoWindow = True
        '查找类型为MX。关于nslookup的详细说明,请参见
        'Windows帮助
        info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
        '启动一个进行执行Windows的nslookup命令()
        ns = Process.Start(info)
        Dim sout As StreamReader
        sout = ns.StandardOutput
        ' 利用正则表达式找出nslookup命令输出结果中的邮件服务器信息
        Dim reg As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("mail exchanger = (?<server>[^///s]+)")
        Dim mailserver As String
        Dim response As String = ""
        Do While (sout.Peek() > -1)
            response = sout.ReadLine()
            Dim amatch As System.Text.RegularExpressions.Match = reg.Match(response)
            If (amatch.Success) Then
                mailserver = amatch.Groups("server").Value
                Exit Do
            End If
        Loop
        Return mailserver
    End Function

WIndows Server2003邮件服务器搭建PPT

  • 2017年12月04日 00:11
  • 71.74MB
  • 下载

smtp 邮件服务器编程

刚开始做邮件服务器开发,一切都是茫然的。在书上网上都很难找到一套完整的邮件服务器开发教程。在个人的摸索中碰到了很多蛋疼得问题。现终于完成了,将我的开发经验分享给大家。...
  • wchrt
  • wchrt
  • 2014年12月23日 10:20
  • 452

Sendmail邮件服务器配置和管理.doc

  • 2015年01月14日 02:42
  • 42KB
  • 下载

如何得到发送邮件服务器地址(SMTP地址)

很多网友程序中都要配置邮箱的,可以让系统自动发送信息。大家可以去http://qdcysm.cn.gongchang.com/去注册试试,发送邮件地址为 W E B@ A B O Y.C N 下面是...
  • GoodShot
  • GoodShot
  • 2013年05月25日 14:30
  • 172375

apache-james java发送邮件服务器

  • 2017年06月02日 15:55
  • 11.67MB
  • 下载

CentOS 7.0安装Zimbra 8.6邮件服务器

简介 Zimbra的核心产品是Zimbra协作套件(Zimbra Collaboration Suite,简称ZCS)。除了它的核心功能是电子邮件和日程安排服务器,当然还包括许多其它的功能,...

Exchange邮件服务器的架设和应用

  • 2012年07月16日 17:28
  • 1.61MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:检查邮件服务器是否有效
举报原因:
原因补充:

(最多只允许输入30个字)