一个新的JMail（4.3版本）发送代码

该段代码涉及到JMail v4.3的大部分常用方法。
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用，也可以改成函数或过程。

 1   
 2Dim JMail, contentId   
 3Set JMail = Server.CreateObject("JMail.Message")   
 4  
 5JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"   
 6' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True   
 7  
 8' 发送者信息（可用变量方式赋值）   
 9JMail.From = "[email protected]" ' 发送者地址   
10JMail.FromName = "D.J." ' 发送者姓名   
11JMail.Subject = "您在炫网资讯的歌词快递（请将编码设为简体中文(gb2312)）" ' 邮件主题   
12  
13' 身份验证   
14JMail.MailServerUserName = "user" ' 身份验证的用户名   
15JMail.MailServerPassword = "password" ' 身份验证的密码   
16  
17' 设置优先级，范围从1到5，越大的优先级越高，3为普通   
18JMail.Priority = 3   
19  
20JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")   
21  
22' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个   
23JMail.AddRecipient(email)   
24  
25' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】   
26' 【参数设置是(True)否(False)为Inline方式】   
27contentId = JMail.AddAttachment (filename, True)   
28  
29' 邮件主体（HTML(注意信件内链接附件的方式)）   
30JMail.HTMLBody = "

<html><head><meta content="zh-cn" http-equiv="Content-Language"/><meta charset="utf-8" content="" content-type""="" html;="" http-equiv="" text=""/><style type="text/css">A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body #666666""="" #ff9900""="" #ffffff""="" 0""="" 30""="" bgcolor="" leftmargin="" link="" text="" topmargin=""><center>点击这里<a href=' cid:" & contentId & "'>[附件文件]</a>将文件保存</center></body></html>

 1"   
 2  
 3' 邮件主体（文本部分）   
 4JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：http://music.liuxuan.com"   
 5  
 6' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】   
 7JMail.Send("user:[email protected]")   
 8  
 9' 关闭并清除对象   
10JMail.Close()   
11Set JMail = Nothing