前段时间有发过个简单JMAIL邮件发邮件代码今天就把这个代码做个具体注解并增加了另外两个格式代码并举几个简单例子:
　　首先是jmail.smtpmail核心代码:

<%
Set jmail = Server.CreateObject(\"JMAIL.SMTPMail\") \'创建个JMAIL对象
jmail.silent = true \'JMAIL不会抛出例外返回值为FALSE跟TRUE
jmail.logging = true \'启用使用日志
jmail.Char = \"GB2312\" \'邮件文字代码为简体中文
jmail.ContentType = \"text/html\" \'邮件格式为HTML
jmail.ServerAddress = \"Server Address\" \'发送邮件服务器
jmail.AddRecipient Email \'邮件收件人
jmail.SenderName = \"SenderName\" \'邮件发送者姓名
jmail.Sender = \"Email Address\" \'邮件发送者邮件地址
jmail.Priority = 1 \'邮件紧急1 为最快5 为最慢 3 为默认值
jmail.Subject = \"Mail Subject\" \'邮件标题
jmail.Body = \"Mail Body\" \'邮件内容
jmail.AddRecipientBCC Email \'密件收件人地址
jmail.AddRecipientCC Email \'邮件抄送者地址
jmail.Execute \'执行邮件发送
jmail.Close \'关闭邮件对象
%>

　　w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来单对象Jmail.smtpmail发送邮件有些思路方法需要身份验证(如163、yahoo等)可以用下面思路方法解决:
<%
Set jmail = Server.CreateObject(\"JMAIL.Message\") \'建立发送邮件对象
jmail.silent = true \'屏蔽例外返回FALSE跟TRUE两值j
mail.logging = true \'启用邮件日志
jmail.Char = \"GB2312\" \'邮件文字编码为国标
jmail.ContentType = \"text/html\" \'邮件格式为HTML格式
jmail.AddRecipient Email \'邮件收件人地址
jmail.From = \"Email From for Sender\" \'发件人E-MAIL地址
jmail.MailServerUserName = \"UserName of Email\" \'登录邮件服务器所需用户名
jmail.MailServerPassword = \"Password of Email\" \'登录邮件服务器所需密码
jmail.Subject = \"Mail Subject\" \'邮件标题
jmail.Body = \"Mail Body\" \'邮件内容
jmail.Prority = 1 \'邮件紧急1 为最快5 为最慢 3 为默认值
jmail.Send(\"Server Address\") \'执行邮件发送(通过邮件服务器地址)
jmail.Close \'关闭对象
%>

　　再讲下微软自带CDONTS组件发信思路方法:

<%
Set cdomail = Server.CreateObject(\"CDONTS.NewMail\") \'建立邮件对象
cdomail.Subject = \"Mail Subject\" \'邮件标题
cdomail.From = \"Sender\'s Mail\" \'发件人地址
cdomail.To = \"Email will from\" \'收件人地址
cdomail.Body = \"Mail Body\" \'邮件内容
cdomail.Send \'执行发送
%>

　　这种思路方法发送邮件是最简单同时也带来定问题就是很少有服务器会开这项服务！


　　我们写般情况下都是说要代码模块化这样方便维护同时也方便移植因此我在这里将这个发邮件写成个子程在时候可以直接(当然如果你高兴写成话也是可以这个主要是看个人兴趣):

<%
\'参数介绍说明
\'Subject : 邮件标题
\'MailAddress : 发件服务器地址,如smtp.163.com
\'Email : 收件人邮件地址
\'Sender : 发件人姓名
\'Content : 邮件内容
\'Fromer : 发件人邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject(\"JMAIL.SMTPMail\") \'创建个JMAIL对象
jmail.silent = true \'JMAIL不会抛出例外返回值为FALSE跟TRUE
jmail.logging = true \'启用使用日志
jmail.Char = \"GB2312\" \'邮件文字代码为简体中文
jmail.ContentType = \"text/html\" \'邮件格式为HTML
jmail.ServerAddress = mailaddress \'发送邮件服务器
jmail.AddRecipient Email \'邮件收件人
jmail.SenderName = sender \'邮件发送者姓名
jmail.Sender = fromer \'邮件发送者邮件地址
jmail.Priority = 1 \'邮件紧急1 为最快5 为最慢 3 为默认值
jmail.Subject = subject \'邮件标题
jmail.Body = content \'邮件内容
\'由于没有用到密抄跟抄送这里屏蔽掉这两句如果您有需要话可以在这里恢复
\'jmail.AddRecipientBCC Email \'密件收件人地址
\'jmail.AddRecipientCC Email \'邮件抄送者地址
jmail.Execute \'执行邮件发送
jmail.Close \'关闭邮件对象
End Sub

\'此Sub例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = \"这是封用JMAIL发送测试邮件\"
strContent = \"JMail组件发送测试成功！\"
strEmail = \"[email protected]\"
strFromer = \"[email protected]\"
strMailAddress = \"mail.ubbcn.com\"