该段代码涉及到JMail v4.3的大部分常用方法。
" W0 y. w+ u0 v
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用，也可以改成函数或过程。
% Z' v& F( K3 l5 `* Y& |$ p
2 K& M) D# N" q) e3 ^
2 i+ V' p) g1 ~' _* p' c% ]. Q! }0 |2 W; x. X0 P9 T
%
) C2 q" m+ a, s2 D' l- D
Dim JMail, contentId
' ^* {/ p& U# x
Set JMail = Server.CreateObject("JMail.Message")
( y. P7 E; U( B5 x2 [; F
4 |9 b/ z% z* z5 n) Q$ I/ [JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
6 P' n9 j3 E0 n$ r6 h- m' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
G* a8 O5 Q! Q0 J
& ^+ H0 Z1 L- G. B
' 发送者信息（可用变量方式赋值）
, |; }+ }- r: i- H4 mJMail.From = "jiaz@21cn.com" ' 发送者地址
* }& G+ Y4 r7 K) S& ?. h, _JMail.FromName = "D.J." ' 发送者姓名
- p. F; s4 ~1 T* j$ ?+ y1 Q
JMail.Subject = "您在炫网资讯的歌词快递（请将编码设为简体中文(gb2312)）" ' 邮件主题
2 Y& I, M# A. e
* V$ [7 w2 T# X' 身份验证
% r7 B! F# b& N2 B+ P. p* ^
JMail.MailServerUserName = "user" ' 身份验证的用户名
' e; M8 w* ^: ^4 P* y
JMail.MailServerPassword = "password" ' 身份验证的密码
7 H+ t3 X! n: z% P& A! o7 b/ D8 i3 ^, c$ |& v y0 B& c$ T5 S" P' g, E: \
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
5 ?$ u; @" ]2 N! R w
JMail.Priority = 3
2 E- N8 C7 O2 I; x1 c1 Q
8 J. i d, o2 `0 F
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
% c8 o) g$ a2 ^- c# S" ]) u7 m+ u. W
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
4 b/ ]0 D4 [$ M+ ]JMail.AddRecipient(email)
6 x7 c* D7 S* A0 f9 l1 E/ q
# j$ `$ V3 z! l ~* @' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
# o- J a" Z& Z& a/ L% W' 【参数设置是(True)否(False)为Inline方式】
9 u2 y; o( k& |! x( v. B$ ucontentId = JMail.AddAttachment (filename, True)
, S8 D* A$ H7 }: Q) z1 u0 O9 h
# v. K& r% Z, E/ V& C: S! g' 邮件主体（HTML(注意信件内链接附件的方式)）
! A# f/ {% r; EJMail.HTMLBody = "htmlheadMETA content=zh-cn http-equiv=Content-Languagemeta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""style type=text/cssA: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/headbody bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""center点击这里a href=' cid:" contentId "' [附件文件]/a将文件保存/center/body/html"
* w" k1 z, T0 ^% B$ f7 p, i0 G. l. b/ f# q. L4 d" G# ~
' 邮件主体（文本部分）
9 n, ^% v) A. a l
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：http://music.liuxuan.com"
. s }1 b9 f9 }: k4 O9 o
4 {; c. |4 ~9 z- a' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[
ort])】
8 Q/ r D" H( y; c
JMail.Send("user:password@smtp.21cn.com")
9 j& p) ]! r4 L# `# J2 I4 H
( E7 h: D1 e7 f, h: b0 P
' 关闭并清除对象
; G0 T2 m3 J6 f7 m0 e4 JJMail.Close()
6 d, L$ p! x0 w/ y* W/ d
Set JMail = Nothing
, c' `8 {7 L2 E& j& c
%
