用jmail通过asp网页发送邮件，不需要设置smtp服务器，不需要邮箱的用户名及密码，即可发送邮件：

<%
  dim   succeed  
  Set   JMail1=server.createobject("JMail.Message")  
  JMail1.silent   =   true   '此项为true时，jmail返回出错代号，不会在网页上直接显示出错,发送不了，就会返回下面的jmail1.errorcode  
  jmail1.Charset   =   "gb2312"  
  jmail1.ContentTransferEncoding   =   "base64"  
  jmail1.Encoding   =   "base64"  
  jmail1.ISOEncodeHeaders   =   false  
   
  'JMail.MailServerUserName   =   "0532163com"   '不需要  
  'JMail.MailServerPassword   =   "123456"   '不需要  
  JMail1.From   =   "aaamanager@gmail.com"   '发件人Email   //这句话最好加上，这个可以是假的。  
  JMail1.AddRecipient   "manager@163.com"   '收件人Email，多个收件人，就重复多行   -----改  
  JMail1.Subject   =   "测试,你好，jmail无邮箱测试"   '信件主题  
  'JMail1.Body   =   "您好，这是我做的jmail测试。"       '信件内容要放到JMail.Send之前  
  jmail1.htmlBody     =   "<font   color=red>您好，这是我做的jmail测试。</font>"     'JMail1.Body是文本格式，这个是html格式，两个根据需要选一个。  
  succeed=JMail1.Send   ("")   '""中为空，不需要设置，这样通用，发给很多信箱都可以。  
  if   succeed=true   then  
          response.write   "恭喜您，邮件发送成功！^_^"  
  else  
        if   int(jmail1.errorcode)=0   then  
            response.write   "你所发送的E_mail地址不存在，或目前失去接受功能！"  
        else  
            response.write   "服务器忙，请稍后再试!"  
        end   if  
  end   if  
   
  JMail1.Close()  
  set   JMail1   =   nothing  
%>