以前使用别人的组件，如 Jmail 等，总是这样那样的受到限制或者遇到问题，而且在受到限制和遇到问题的时候也不能得到最终的解决方案，现在好了，我们有了免费的开放源代码的邮件发送组件，希望能给大家带来提高的机会和使用的便利。
明日网 XingerAspMail 1.0.0.0 组件是用 C++ 语言编写的高效率基于 Windows 服务器 COM 接口的开放源代码的邮件发送组件，此组件代码简单易懂。
本组件版权归明日网（XingWorld.Net）所有，转载请著名出处。
主要功能：发送邮件
适用范围：Windows 服务器上运行的任何脚本程序、应用程序
注册方法：在组件所在目录下，使用 regsvr32 XingerAspMail.dll 即可
主要使用方法如下：
<%
'--------------------------------------------------
' XingerAspMail.Control 邮件发送组件使用示例
'--------------------------------------------------
dim xmail, bRet, strError
strError = ""
set xmail = Server.CreateObject("XingerAspMail.Control")
if IsObject(xmail) then
xmail.SmtpHost = "smtp.263.net" ' 配置 SMTP 邮件服务器
xmail.From = "[email protected]" ' 邮件发送者地址
xmail.FromName = "刘其星" ' 邮件发送人姓名
xmail.To = "[email protected]" ' 发送目标
xmail.Subject = "网站开通通知[明日自助]!" ' 邮件标题
xmail.IsHtml = true ' 邮件格式，是否使用 HTML 格式
xmail.Body = "尊敬的XX：<br><br> 你好，" & _
"这里是<a href=http://tt15.com target=_blank>明日自助建站系统</a>" & _
"发出的通知邮件。<br><br> " & _
"<font color=blue face=verdana>This mail was sent by " & _
"<a href=http://XingWorld.Net target=_blank>XingerAspMail!</a>" & _
"</font><br><br><br><br>"
xmail.Charset = "gb2312" ' 字符集，默认是 "gb2312"
if xmail.Send(strError) then ' 发送邮件
response.write "successfully.."
else
response.write "failed: " & strError
end if
else
response.write "请先注册 XingerAspMail.dll 组件"
end if
set xmail = nothing
%>
下载完整安装包（组件和源代码）：http://xingworld.net/help/XingerAspMail/InsXMail.exe [推荐]
下载组件及示例代码：http://XingWorld.Net/help/XingerAspMail/XingerAspMailExp1.0.0.0.rar
下载组件 C 源代码：http://xingworld.net/help/XingerAspMail/XingerAspMailSrc1.0.0.0.rar
如果您有任何意见或者建议请登陆明日网站（http://XingWorld.Net），我们会及时给予回答。
本文地址：http://com.8s8s.com/it/it22927.htm