為(wèi)了防止某些用(yòng)户利用(yòng)系统自带的smtp服務(wù)器来发垃圾邮件导致服務(wù)器性能(néng)严重下降而影响其它用(yòng)户网站的正常访问，故我司禁用(yòng)了系统自带的smtp服務(wù)器，也就是说 CDOTS.NewMail 组件无法使用(yòng)，取而代之我司的服務(wù)器安装了Jmail4.0，用(yòng)户可(kě)用(yòng)它来发邮件，此组件的具體(tǐ)使用(yòng)方法请查阅相关文(wén)档说明。

以下是用(yòng) asp 写的用(yòng)JMAIL组件发邮件的例子：

<%
if request("SendIt") = "true" then
 on error resume next
 set msg = Server.CreateOBject("JMail.Message")
 '设置邮件的发送者,由于一般邮件服務(wù)器的安全设置，这个发件人一般都必须是真实存在的
 msg.Logging = true
 msg.From = Request("from")
 msg.FromName = "某约翰"
 '收件人
 msg.AddRecipient  Request("to")
 'addRecipient方法可(kě)以帮助你在必要的时候添加更多(duō)的收信人，你也可(kě)以為(wèi)每一个收信人设置不同的名字： 
  '现在，我们可(kě)以加入邮件的主题了。
 msg.Subject = Request("subject")
 '然后是正文(wén)。下面的例子也告诉你如何在正文(wén)中换行。
 msg.Body = Request("body")
 '也可(kě)以使用(yòng)appendText方法来创建邮件正文(wén)，这个方法常常用(yòng)来為(wèi)邮件正文(wén)追加更多(duō)的内容。
 'msg.appendText "一些文(wén)字。"
 'msg.appendText "你想添加的更多(duō)的文(wén)字。"
 '邮件创建好了，我们来发送它。在这里需要输入一个有(yǒu)效的发信服務(wù)器地址。
 'Response.write Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server")
 msg.MailServerUserName = Request("smtp_user")
    msg.MailServerPassword = Request("smtp_pwd")
 'msg.Send( Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server"))
 msg.Send(Request("smtp_server"))
 Response.Write( msg.Log )
 if err.number<>0 then
    response.write "邮件发送失败" & err.description
 else
    response.write "邮件已经发到" & Request("to")
 end if
else
%>
    <form action='' method='post'>
   发件人:<input name='from'><br>
   收件人:<input name='to'><br>
   主题:<input name='subject' size='30'><br>
   内容:<TEXTAREA NAME="body" ROWS="10" COLS="30"></TEXTAREA><br>
      SMTP服務(wù)器地址:<input name='smtp_server'><br>
   SMTP服務(wù)器登录用(yòng)户:<input name='smtp_user'><br>
   SMTP服務(wù)器登录密码:<input name='smtp_pwd'><br>
   <input type='submit' value='发送'>
      <input type='hidden' name='SendIt' value='true'>
 </form>
<%
end if
%>