以前使用别人的组件,如 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 = "xing@263.net" ' 邮件发送者地址
xmail.FromName = "刘其星" ' 邮件发送人姓名
xmail.To = "xing@263.net" ' 发送目标
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),我们会及时给予回答。