一个有关从网站制作意向表单后直接将数据发到邮箱的问题

[ghost11a]

下面是我当的一段代码，请各位大哥帮我看一下代码哪里错了，或者服务器还应有什么配置？

<%
name = Request.Form ("name")
email= Request.Form ("email")
address= Request.Form ("address")
tel = Request.Form ("tel")
fax = Request.Form ("fax")
gs = Request.Form ("gs")
yy1 = Request.Form ("yy1")
yy2 = Request.Form ("yy2")
yy3 = Request.Form ("yy3")
yy4 = Request.Form ("yy4")
web1 = Request.Form ("web1")
web2 = Request.Form ("web2")
js = Request.Form ("js")
m1 = Request.Form ("m1")
m2 = Request.Form ("m2")
bz = Request.Form ("bz")
%>

<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient"[e-mail]" '邮件收件人的地址
jmail.From = "[e-mail]" '发件人的E-MAIL地址
jmail.MailServerUserName = "[e-mail]" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "699129" '登录邮件服务器所需的密码
jmail.Subject = "来自黑龙江商务网的问候" '邮件的标题
mess = mess & "---------------在线邮件开始-------------------" & vbcrlf
mess = mess & "企业名称：" & gs & vbcrlf
mess = mess & "费用：" & m1 & vbcrlf
mess = mess & "费用预算：" & m2 & vbcrlf
mess = mess & "姓名：" & name & vbcrlf
mess = mess & "邮件：" & email & vbcrlf
mess = mess & "地址：" & address & vbcrlf
mess = mess & "电话：" & tel & vbcrlf
mess = mess & "传真：" & fax & vbcrlf
mess = mess & "网页语言1：" & yy1 & vbcrlf
mess = mess & "网页语言2：" & yy2 & vbcrlf
mess = mess & "网页语言3：" & yy3 & vbcrlf
mess = mess & "其他网页语言：" & yy4 & vbcrlf
mess = mess & "借鉴站点1：" & web1 & vbcrlf
mess = mess & "借鉴站点2：" & web2 & vbcrlf
mess = mess & "经营业务：" & js & vbcrlf
mess = mess & "其他要求：" & bz & vbcrlf
mess = mess & "---------------在线邮件结束-------------------"
JMail.Body = mess
JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>

[ghost11a]

我装了一个JMAIL的组件，程序也不报错，可就是收不到啊

[ghost11a]

麻烦大家再帮忙顶顶啊

[ghost11a]

：（

[xuyadong]

163的邮箱好象不支持smtp吧？
要用企业邮局吧？

[ghost11a]

我改成yahoo.com.cn也不行 啊

[ghost11a]

自己再顶一下~_~

[ghost11a]

还是没搞定，是不是大家帮忙看看程序没问提的话，是不是邮件服务器的设置问提啊？

[ghost11a]

自己顶一下，别沉掉了~~~：（

[ghost11a]

各位大哥，知道的给俺说说，不知道的也帮忙顶一顶啊~~~

[ghost11a]

小弟在这里谢谢了

[goodstuday]

你自己电脑装个jmail组件，调试一下就知道哪里错了嘛

[goodstuday]

发个函数给你

function emailto(username,password,myemail,myname,youremail,title,content1,content2,smtpname)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
'msg.contenttype="text/html"
msg.Charset = "gb2312"
msg.MailServerUserName = username '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = password '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From =myemail '发件人Email
msg.FromName =myname '发件人姓名
msg.AddRecipient youremail '收件人Email
msg.Subject =title '信件主题
msg.Body =content1 '正文
msg.htmlbody=content2
msg.Send (stmpname) 'smtp服务器地址（企业邮局地址）
set msg = nothing
end function

[ASP0000]

学习到了!

[lovefan666]

up

[Carignano]

服务器是不是支持jmail

[ghost11a]

要安装什么东西才能让服务器支持JMAIL呢？

[ghost11a]

问一下 路漫漫 这个函数也要服务器支持JMAIL吗？

[ghost11a]

要怎么样才能让服务器支持JMAIL呢？

[nosad]

如果服务器是你的 你可以先下载个JMAIL组件在服务器上注册一下
若不是你的除非你联系服务器管理员
JMAIL组件网上多着呢！