发送表单显示成功,但是邮箱却没有
以下是代码:
<%
function Send_Mail(mymailbody)
set msg=Server.CreateObject("jmail.message")
email=trim(request("email"))
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "lanshuixinzi@163.com" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "1986721" '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From=email '发件人Email
msg.FromName=request.form("username") '发件人姓名
msg.AddRecipient"lanshuixinzi@163.com" '收件人Email
msg.Subject=request.form("subject") '信件主题
msg.Body=mymailbody '正文
msg.Send ("smtp.163.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
end function

user=trim(request("username"))
kind=trim(request("kind"))
subject=trim(request("subject"))
email=trim(request("email"))
tel=trim(request("tel"))
content=request("content")
mymailbody ="<p></p>作者:"& user & "<p>"
mymailbody=mymailbody&"Email:"&email& "<p> "
mymailbody=mymailbody&"电话号码："&tel&"<p>"
mymailbody=mymailbody&"咨询类别:"&kind&"<p> "
mymailbody=mymailbody&"题目："&subject&"<p>"
mymailbody=mymailbody&"内容："&content
call Send_mail(mymailBody)
response.write "<script language=javascript> alert('您的所填写的申请信息已经成功提交,谢谢您的参与!');"
response.write "javascript:history.go(-1)</script>"
%>