为什么我的jmail发不出邮件 请大家帮忙看看 急啊！！！

[agang3321]

运行后没报任何错误 仅发送成功过一次
<%
dim CLStr,msg,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)

'请在此修改相关信息
mailserver="smtp.yahoo.com.cn" '邮局服务器地址（smtp服务器地址）
username="agang3321" 'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）
password="yahoo" 'smtp服务器验证密码 （信箱密码）

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = username
msg.MailServerPassword = password
msg.From = username
msg.FromName = username

msg.AddRecipient (receive)
msg.Subject = Request.Form("subject")

msg.Subject = "秘书服务"&CLStr&CLStr
msg.Body = msg.Body&"对方姓名:"&Request.Form("name")&CLStr
msg.Body = msg.Body&"对方信箱:"&Request.Form("email")&CLStr
msg.Body = msg.Body&"留言内容:"&Request.Form("body")&CLStr

msg.Send (mailserver)
msg.close
set msg = nothing

%>
<p>邮件发送成功，谢谢使用</p>
<a href="../index.asp">返回</a>

[sxsgssgs]

<%
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.MailServerUserName = "[e-mail]"
JMail.MailServerPassword = "dnyes031203"
JMail.From = "[e-mail]" '发件人的信箱
JMail.FromName = "master" '发件人的名字
JMail.Subject = "欢迎您在信网注册用户" '邮件的主题
JMail.Body = "test test ,ok" '邮件的内容
'==============================收件人的地址！
JMail.AddRecipient("[e-mail]") '收件人的地址
JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send("218.244.47.25") '红色变量是邮件服务器地址
JMail.Close
Set JMail=nothing
%>

[agang3321]

楼上的大哥 能帮我看一下我的是那里出错了吗

[xiejunhua]

没问题呀! 这样试试,还不行就是空间没装Jmail组件
username="**" '收件人姓名
email="[e-mail]" '收件人的地址
mailbody="***" '邮件的内容
mailsubject="***" '邮件的主题
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
JMail.Logging = true
JMail.Charset = "gb2312"
JMail.MailServerUserName = "***" '输入smtp服务器验证登陆名
JMail.MailServerPassword = "***" '输入smtp服务器验证密码
JMail.From = "[e-mail]" '发件人Email
JMail.FromName = username
JMail.AddRecipient email
JMail.Subject=mailsubject
JMail.Body=mailbody
JMail.Send ("218.244.47.25")
JMail.Close()
Set JMail = Nothing