asp中使用JMail发邮件

先分享两种已经经过测试而且速度飞快的，Jmail发信的程序，因为网上分享的很多，不过成功率等等不一；
1.适合自己有免费的163邮箱的，速度非常的快！

<%
   TBody=""
   TBody=TBody+"您好，"&ClientName&"给你留言了："
   TBody=TBody+"<br>单 位："&ClientWeb
   TBody=TBody+"<br>电 话："&ClientOICQ
   TBody=TBody+"<br>地 址："&ClientAddress  
   TBody=TBody+"<br>E-Mail："&ClientEmail 
   TBody=TBody+"<br>内 容："&BookBody
   TBody=TBody & "<br><br>--------------------------------------<br>责任 — 勤奋 — 思考<br>来自视深网络的贴身服务 "

     Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
     jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
     jmail.logging = true   '启用邮件日志
     jmail.Charset = "GB2312"     '邮件的文字编码为国标
     jmail.ContentType = "text/html"    '邮件的格式为HTML格式
     jmail.AddRecipient "qingzhouboy@163.com"     '邮件收件人的地址
     jmail.From = "qingzhouboy@163.com"   '发件人的E-MAIL地址
     jmail.MailServerUserName = "qingzhouboy"     '登录邮件服务器所需的用户名
     jmail.MailServerPassword = "198137"     '登录邮件服务器所需的密码
     jmail.Subject = "视深网络"    '邮件的标题
     jmail.Body = TBody      '邮件的内容
   
     jmail.Send("smtp.163.com")     '执行邮件发送（通过邮件服务器地址）
     jmail.Close()   '关闭对象
     Set jmail=nothing
     response.write "发送成功"
%>

2.适合企业，有自己的企业邮局的，我测试的35互联的企业邮局，速度快的惊人。

<%
'參數說明
  'Subject     : 郵件標題
  'MailAddress : 發件伺服器的地址,如smtp.163.com
  'Email       : 收件人郵件地址
  'Sender      : 發件人姓名
  'Content     : 郵件內容
  'Fromer      : 發件人的郵件地址

  Sub SendAction(subject, email, sender, content)
 Set JMail = Server.CreateObject("JMail.Message")
 JMail.Charset = "gb2312" ' 郵件字符集，默認為"US-ASCII"
 JMail.From = strMailUser ' 發送者地址
 JMail.FromName = sender' 發送者姓名
 jmail.silent = true
 jmail.Logging = true
 JMail.Subject =subject
 JMail.MailServerUserName = strMailUser' 身份驗證的用戶名
 JMail.MailServerPassword = strMailPass ' 身份驗證的密碼
 JMail.Priority = 3
 JMail.AddRecipient(email)
 JMail.Body = strContent
 JMail.Send(strMailAddress)
  End Sub
  '調用此Sub的例子
  Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
  strSubject     = "www.wfzhuji.cn"
  strContent     = "www.wfzhuji.cn"
  strSender  = "www.wfzhuji.cn"
  strEmail       = ""&Request("m_email")&""
 '這是收信的地址
  strMailAddress = "mail.yongxingfangshui.com" '我司企業郵局地址，請使用 mail.您的域名
  strMailUser  = "yongxing@yongxingfangshui.com" '我司企業郵局用戶名
  strMailPass  = "密码" '郵局用戶密碼
  Call SendAction (strSubject,strEmail,strSender,strContent)
%>