ASP用JMail发送邮件

<%
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")'建立发送邮件的对象
JMail.Charset="gb2312"'邮件的文字编码为国标
JMail.logging = true '启用邮件日志
JMail.silent=True'屏蔽例外错误，返回False或True
JMail.ContentType = "text/html"'邮件的格式为HTML格式
JMail.MailServerUserName = ""'登录邮件服务器所需的用户名
JMail.MailServerPassWord = ""'登录邮件服务器所需的密码
JMail.FromName = ""'发件人的姓名
JMail.From = ""'发件人的E-MAIL地址
JMail.MailDomain = ""'邮件服务器
JMail.AddRecipient "",""'邮件收件人的地址，姓名
JMail.AddRecipientCC "",""'邮件抄送人的地址，姓名
JMail.Subject = ""'邮件的标题
JMail.HtmlBody = ""'邮件的内容，支持HTML
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
JMail.Send("")'执行邮件发送(通过邮件服务器地址),有返回值
JMail.Close'关闭对象
Set JMail=nothing'释放对象
%>

<%
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.silent=True
JMail.ContentType = "text/html"
JMail.MailServerUserName = "txwl@txwl.com.cn"
JMail.MailServerPassWord = "txwl"
JMail.FromName = "yourname"
JMail.From = "yourname@163.com"
JMail.MailDomain = "txwl.com.cn"
JMail.AddRecipient "dnawo@sohu.com","dnawo"
JMail.Subject = "技术支持"
JMail.HtmlBody = "<font color=red>这是内容</font>"
JMail.Priority = 3 
Response.write JMail.Send("mail.txwl.com.cn")
JMail.Close
Set JMail=nothing
%>