jmail用QQ邮箱发送邮件失败，那里出了问题，请帮忙指正，谢谢

Question

<%
Subject =Request("Subject")
who =Request("who")
Company =Request("company")
Address =Request("Address")
mail =Request("mail")
Telephone =Request("Telephone")
Country =Request("Country")
txt =Request("txt")
userip =Request("userip")

if who="" then
response.write "&quot; &amp; chr(13)<br> response.write &quot;alert(&#39;Sorry! You have no input Name！&#39;);&quot; &amp; Chr(13)<br> response.write &quot;history.go(-1);&quot;&amp;Chr(13)<br> response.write &quot;" & Chr(13)
Response.End
end if

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

Dim email,topic,mailbody
email="[e-mail]" '
topic=Subject &""
mailbody="Subject: "& Subject & "
Name："& who & "
Company："& company & "
Address："& Address & "
E-mail："& mail & "
Telephone："& Telephone & "
Country："& Country & "
Message："& txt & "
userip："& userip
call Jmail(email,topic,mailbody)

sub Jmail(email,topic,mailbody)

   Dim JMail,issend

   Set JMail=Server.CreateObject("JMail.Message")

   JMail.silent=true
   JMail.Logging=True
   JMail.Charset="gb2312"
   JMail.MailServerUserName = "bbb"
   JMail.MailServerPassword = "授权码"
   JMail.ContentType = "text/html"
   JMail.From="[e-mail]"
   JMail.FromName = who
   JMail.AddRecipient email  
   JMail.Subject=topic  
   JMail.Body=mailbody
   issend = JMail.Send ("smtp.qq.com")
   JMail.close
   Set JMail=nothing 

   if issend = true then
        Response.Write "E-mail has been sent!"
    else
        Response.Write "E-mail failure"
    end if

end sub
%>

Answer 1

如果你的代码是复制粘贴过来的，那么无非两个可能，一个是用户名密码不对（或者端口、协议不匹配，这个你要看对应邮箱的文档），一个是被当作垃圾邮件拒收了。
建议你首先自己给自己邮箱发一个，排除后一个原因。