<%     
  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   =   "lparke"   '不需要   
'  JMail.MailServerPassword   =   "123456"   '不需要   
  JMail1.From   =   "jiang_3428@sina.com"   '发件人Email   //这句话最好加上,这个可以是假的。   
  JMail1.AddRecipient   "jiang_3428@163.com"   '收件人Email,多个收件人,就重复多行   -----改   
  JMail1.Subject   =   "信息"   '信件主题   
  JMail1.Body   =   "您好,这是我做的jmail测试。"       '信件内容要放到JMail.Send之前   
  'jmail1.htmlBody     =   "<font   color=red>您好,这是我做的jmail测试。</font>"     'JMail1.Body是文本格式,这个是html格式,两个根据需要选一个。   
  succeed=JMail1.Send   ("smtp.sina.com")   '""中为空,不需要设置,这样通用,发给很多信箱都可以。   
  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   
  %> 
各位帮忙看看是哪里的错误
为什么succeed=JMail1.Send   ("smtp.sina.com")   里加上"smtp.sina.com"时提示服务器忙,请稍后再试!
而 succeed=JMail1.Send   (“”)时提示你所发送的E_mail地址不存在,或目前失去接受功能,
我都快晕了,各位高手指点指点吧,很急的。谢谢了.

 
											





