ASP版CDONTS和Jmail发邮件实例

 

CDONTS:
　　<% on error resume next
　　username="dh20156"
　　userpass="123456"
　　realname="杜欢"
　　email="dh20156@126.com"
　　
　　dim objCDOMail
　　Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
　　objCDOMail.From ="webmaster@v-ec.com"
　　objCDOMail.To =email
　　objCDOMail.Subject ="威驰会员注册确认信"
　　objCDOMail.BodyFormat = 0
　　objCDOMail.MailFormat = 0
　　objCDOMail.Body ="祝贺您"&realname&",您的注册非常成功,欢迎加入威驰这个大家庭!您的登录用户名是:"&username&",登录密码:"&userpass&"请妥善保管您的登录资料,定期更改您的密码!再次感谢您对我们的支持!威驰设计开发工作组全体同仁http://www.v-ec.com/"
　　objCDOMail.Send
　　Set objCDOMail = Nothing
　　if err then
　　SendMail=err.description
　　err.clear
　　end if %>

JMAIL:
　　<%
　　Server.ScriptTimeOut=1000000
　　
　　Dim JMail
　　Set JMail = Server.CreateObject("JMail.Message")
　　
　　smtpserver = "smtp.???.net" '支持外发的邮件服务器
　　smtpuser = "???@???.net" '你的邮箱用户名
　　smtppwd = "123456789" '你的邮箱密码
　　
　　Jmail.Silent = true
　　JMail.Charset = "gb2312"
　　JMail.Logging = true
　　JMail.Priority = 3
　　
　　JMail.From = "webmaster@v-ec.com"
　　JMail.FromName = "威驰设计开发工作组"
　　Jmail.ReplyTo ="dh20156@126.com"
　　
　　JMail.AddRecipient("dh20156@it2001.net")
　　
　　JMail.Subject = "威驰会员注册成功确认信"& vbcrlf & vbcrlf & tbody
　　JMail.Body = "祝贺你成功地注册成为我们的会员!"
　　
　　Jmail.MailServerUserName = smtpuser
　　Jmail.MailServerPassWord = smtppwd
　　
　　isgo = Jmail.Send(smtpserver)
　　if isgo then
　　RESPONSE.WRITE("提交成功！谢谢你的支持。")
　　RESPONSE.WRITE("<pre>"&JMail.log&"</pre>")
　　else
　　RESPONSE.WRITE("<pre><font color=#ff0000 face=arial>"&JMail.log&"</font></pre>")
　　end if
　　
　　JMail.Close()
　　Set JMail = Nothing
　　%>