JMail发送电子信

<%
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType="text/html"
JMail.AddRecipient " pandazerg@sina.com"  '接受者信箱
JMail.Subject = "jmail发信试验"
JMail.Body = "信件内容"
JMail.From = " pandazerg@sina.com"
JMail.MailServerUserName="pandazerg"
JMail.MailServerPassword="******" '此处为信箱密码
JMail.Send "smtp.sina.com.cn"
Set JMail=nothing
Response.Write("<script language=jscript>alert('邮件已发送成功！');window.close()</script>")
%>