ASP用JMail、CDO发送邮件

　　前一段时间有发过一个简单的jmail邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子： 

首先是jmail.smtpmail的核心代码：

<% 

set jmail = server.createobject("jmail.smtpmail") ‘创建一个jmail对象 

jmail.silent = true ‘jmail不会抛出例外错误，返回的值为false跟true 

jmail.logging = true ‘启用使用日志 

jmail.charset = "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.charset = "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.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) 

jmail.serveraddress = mailaddress ‘发送邮件的服务器 

jmail.sendername = sender ‘邮件发送者的姓名 

jmail.sender = fromer ‘邮件发送者的邮件地址 

jmail.priority = 1 ‘