龙泉山庄门票多少钱:那个大哥帮我解决一下JMAIL的问题啊

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 00:10:52
这个是我的代码,为什么发不出去邮件啊,哪个大哥,大姐帮我解决一下啊
<form action="post.asp" method="post" name="mywebmail">
您的姓名:
<input type="text" name="name" size="20" maxlength="50">
电子邮件:
<input type="text" name="email" size="20" maxlength="60">
邮件主题:
<input type="text" name="mailsubject" size="30" maxlength="100">
邮件正文:<br>
<textarea rows="4" name="text" cols="40"></textarea>
<input type="submit" value="确认递交" name="submit">
<input type="reset" value="清除重写" name="clear">
</form>

<html>
<head>
<title>发送表单</title>
<body>

<%
'首先使用Request方法取得表单数据,取得的数据放在等号左侧的变量中;
name = Request.Form ("name")
email= Request.Form ("email")
mailsubject= Request.Form ("mailsubject")
text = Request.Form ("text")

%>

<%

Sub Sendemail(title,content,email)

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式

jmail.ISOEncodeHeaders = false '是否进行ISO编码,默认为True(加上了这一句)
jmail.AddRecipient email'邮件收件人的地址
jmail.From = "mail.163.com" '发件人的E-MAIL地址
jmail.MailServerUserName = "niuniu_19800@163.com" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "xxxxxx" '登录邮件服务器所需的密码

jmail.Subject = mailsubject '邮件的标题
jmail.Body = text '邮件的内容
'jmail.Prority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send("Smtp.163.com") '执行邮件发送(通过邮件服务器地址)
JMail.Execute
jmail.Close() '关闭对象
End Sub

%>

<center>

邮件已顺利发出!

</center>
</body>
</html>