查人人中国名人网纯天然成分护肤品:如何做ASP网站自动发邮件？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 10:38:37
不知道为什么我们的服务器 用了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
%>
-----------------------------------------
上面都是原代码，你加进去就可以了。