asp中用jmail，Cdonts组件和Aspemail组件发邮件

JMAIL安装配置
jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.
首先说明一下jmail安装配置步骤:
1. JMail 下载地址
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.安装
本人在Windows 2003下面配置,其它系统还没有测试.
安装到目录比如: C:\Program Files\Dimac\w3JMail4\jmail.dll
然后还需要把jmail.dll复制到系统目录,比如C:\WINDOWS\system32
再运行:regsvr32 jmail.dll
这样才算把jmail安装好了.
------------------------------------------------------
可以选择性使用jmail，CDO组件和Aspemail组件其中一个。默认的话，将使用Jmail组件发邮件。把以下文件另存成SendMail.asp.改一下里面的e_开头的变量的设置.用 <!--#include file="SendMail.asp"--> 包含.然后要发邮件的时候.用 SendEmail "hjc73@126.com","test","this is test!","Jmail"
函数。'以上是测试的过程 .第一项是MAIL收件人,第二项为主题,第三项为正文,第三为发件模式.分别是Jmail,Cdonts,Aspemail注意大小写。
sendmail.asp的代码:
<!--#include file="SendMail.asp"-->
<%
E_Server = "mail.am8way.com"   ''发件服务器地址
E_ServerUser = "joy@am8way.com"  ''发件服务器登录用户名(如果不需要邮件验证.就不用写)
E_ServerPass = "123456"   ''发件服务器登录密码(如果不需要邮件验证.就不用写)
E_SendManMail = "joy@am8way.com"  ''发件人邮件地址
E_SendManName = "系统管理员"   ''发件人姓名
Sub Jmail(Email,Topic,Mailbody)'Jmail组件发信
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
If Not(E_ServerUser = "" Or E_ServerPass = "") Then
  JMail.MailServerUserName = E_ServerUser
  JMail.MailServerPassword = E_ServerPass
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.from = E_SendManMail
JMail.fromName = E_SendManName
JMail.AddRecipient Email
JMail.Subject = Topic
JMail.Body = Mailbody
JMail.Send (E_Server)
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub
Sub Cdonts(Email,Topic,Mailbody)'C