| 这个VB6COM组件提供了一项即时邮件查询的功能。它有效的避免了向一个不存在的账户发送邮件的情况。例如，在ASP页面里面检查用户输入的邮件地址是否正确，并避免在你的用户数据库里面存储相关的错误信息。 主要内容 工作原理 让我们首先来看一下这个组件是如何进行工作的。 首先给定一个E-mail地址（例如：someone@somewhere.com），然后它会执行如下的步骤： 1、 将用户名（someone）从域名（somewhere.com）中分离出来； 2、 在DNS（域名服务器）上进行查询：域名是否可用； 3、 如果DNS做出响应，它将在服务器上对MX进行查询（Mail Exchanger邮件交换服务器），并试着与在这个域中每一个MX建立会话，直到建立会话成功； 4、 通过使用SMTP协议，它使用VRFY命令和Mail handshake（HELO，MAILT FROM，RCPT TO）来验证用户名在该域中的存在； 5、 随后组件将返回测试的结果，并给出四种可能的结果： l “域”不存在。服务器做出否定响应。 l “域”存在，但是无法查询用户名（见注释）。服务器做出部分确认响应。 l “域”存在，但是用户名不存在。服务器做出否定响应。 l “域”和用户名都存在。服务器做出完全确认响应。 注释： 如果“域”存在，但是MX（邮件交换服务器）并不存在于该域中（典型特征是二级域名由ISP掌握着），这样通过SMTP协议将会无效，应为那些服务器被指派去接受子域中的邮件，并且根本不会检查用户名。所以组建的程序设计，从这里跳出并返回出部分确认响应。 |
组件特征 l 在本地机器上查找DNS。所以必须保持计算机与互联网的连接以确保组建的正常工作 l 通过SimpleDNSRosolover组件（见Credits）发送DNS请求 l 使用UPD协议接收DNS响应 l 经过标准的winsock.ocx接口，建立SMTP会话 l 提供小型的可执行文件（编译为一个小于50kb的ActiveX DLL 动态连接库文件） l 无任何用户接口，需要ActiveX组建支持的语言（例如，VBScript, ASP, VC++等等） l 使用VB6.0 Service Pack 4(已测试) 环境下编译，当然也可以在以前的支持winsock.ocx的VB版本中编译（例如VB5.0） 安装方法 l 将压缩包释放到你选定的目录中； l 将VfabEmailUtils.DLL拷贝到你的系统目录下： 对于Windows NT：C:/WINNT/SYSTEM32/ 对于Windows 9 x：C:/WINDOWS/SYSTEM/ l 在注册表中注册组件： 在运行中输入：regsvr32 c:/winnt/system32/VfabEmailUtils.dll l 重要提示： 为确保组件的正常运行，你必须安装Simple DNS Resolver v1.0（Emmanuel Kartmann’s）。相关信息，请看下面的Credits。 使用方法 l 创建一个组建的应用实例 l 加入属性：
EmailAddr
SmtpTimeOut
DNS Server Address（仅限Windows9x） l 调用CheckDomain 方法 l 测试Result属性，如果返回的结果不等于vfbInvalidDomain （1）则可以进行如下操作 l 调用CheckUserName 方法 l 然后测试Result属性来返回最终结果：
vfabNotVerify = 0
vfabInvalidDomain = 1
vfabValidDomain = 2
vfabValidDomainInvalidAccount = 3
vfabValidDomainValidAccount = 4 示例代码 dim oVfab set oVfab=CreateObject("VFabEmailUtils.EmailCheck") '创建对象 oVfab.EmailAddr = Request.Form("EMAIL") '从ASP页面获得邮件地址以进行测试， '并指派给该对象中的EmailAddr属性 oVfab.CheckDomain '检查域是否存在 If oVfab.Result <> 1 Then '如果存在则对用户名进行检测 oVfab.SmtpTimeOut = 10 '给该对象10秒钟的时间用来连接远程SMTP服务器 oVfab.CheckUserName '尝试进行SMTP会话，测试用户名 End If …… '在这里可以用HTML格式显示会话纪录 oVfab.Clear '关闭连接, 清除日志, 恢复初始状态 组件文档 方法（表1）： 名称 | 描述 | CheckDomain() | 检查邮件地址中的域名部分是否是有效的（存在的）域名 | CheckUserName() | 通过SMTP协议检查用户名是否是该域中的有效邮件账号 | Clear() | 在结束任务之后，关闭连接, 清除日志, 恢复初始状态 |
表1 属性（表2）： 名称 | 类型 | 可读 | 可写 | 描述 | EmailAddr | String | Yes | Yes | 指定要检验的邮件地址 | Result | Integer | Yes | No | 从CheckDomain 和（或）CheckUserName 方法中获得处理结果 | SmtpTimeOut | Integer | Yes | Yes | 获得/设置Timeout（超时-秒计）等待SMTP连接 | DnsServer | String | Yes | No | 设置域名服务器的IP地址（Win9x中为必选项，Windows NT 中为可选项） | RealName | String | Yes | No | 在CheckUserName()被执行后，如果SMTP服务器提供的话，获得用户的真实名称 | DomainName | String | Yes | No | 获得EmailAddr中的域名部分 | UserName | String | Yes | No | 获得EmailAddr中的用户名部分 | Log(blnHTML) | String | Yes | No | 检索会话日志（客户段与服务器的所有信息交换）如果可选参数被设为True，它将重新以HTML格式排列断点以便阅读。 | SmtpServer | String | Yes | No | 在域中获得完整地邮件交换服务器列表 |
表2
<
说明：本教程来源互联网或网友上传或出版商，仅为学习研究或媒体推广，wanshiok.com不保证资料的完整性。
1/2 1 2 下一页 尾页 |
