＋设为首页 ＋添加到收藏夹
我的系统用ASP编写，希望实现MAIL的功能，求一实例，来者给分。
http://www.ccw.com.cn/htm/center/prog/02_3_11_4.asp
< %
Dim MailObject
Dim Email
Email = Request.form("Email")
Set MailObject = Server.CreateObject("CDONTS.NewMail")
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.Subject = "欢迎您下次再来"
MailObject.Send "你本人的E-MAIL", Email ,"欢迎您下次再来给我们留言。" myMail.Send
Set myMail=Nothing
%>
下载一个发mail的组件.搜索一下,网上很多!
先看看cdont.dll是否在system32目录下
如果没有考之并执行：regsvr32 Ip3HtmlView.dll
代码用上面的就可以了
如果要发送html格式的，加写
myMail.MailFormat=0
myMail.BodyFormat=0
给你个JMail的
<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
smtpserver = "smtp.263.net"
smtpuser = "username"
smtppwd = "password"
Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3
JMail.From = "username@263.net"
JMail.FromName = "yourname"
Jmail.ReplyTo ="username@263.net"
JMail.AddRecipient("name@263.net")
JMail.Subject = "Test for JMail"& vbcrlf & vbcrlf & tbody
JMail.Body = "testtest"
Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd
Jmail.Send(smtpserver)
isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！谢谢你的支持。")
RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
end if
JMail.Close()
Set JMail = Nothing
%>
用foxmail发一封事实，如果不行可能是smtp有问题!
