求助！邮件发送代码？

[zhong00000]

我在处理页面中写如下代码发邮件，服务器没报错，可是既没收到信，也没退回信
各位大哥帮忙给看看，是哪的问题，小弟感激不尽
<%
dim CLStr,msg,mailserver,username,password,receive
mailserver="mail.tjzero.com"
username="[e-mail]"
password="12345"
receive="[e-mail]"

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 = "xx"

msg.Body = "sss"
msg.close
set msg = nothing
%>

[Reker熊]

faint

[chf0797]

参考：三种发送方式。可选择。或许对你有点帮助吧！
if emailtype=1 then
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentTransferEncoding = "base64"
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.Sender=sendmail
JMail.SenderName = rs9("name")&"在线电邮"
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient (""&email&"")
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set JMail=nothing
end if
if emailtype=2 then
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =sendmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
end if
if emailtype=3 then
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=sendmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
end if

[okook]

http://www.csdn.net/develop/read_article.asp?id=18608

[zhong00000]

搞定了，少了一句
msg.send(mailserver)