|
Jmail的主要参数列表
首先应该创建一个jmail.message对像：
set JMail = Server.CreateObject("JMail.Message")
再对jmail对像的其它参数进行操作。
(1) Body (信件正文) : 字符串
如：JMail.Body = “这里可以是用户填写的表单内容，可以取自From。”
(2) Charset (字符集，缺省为”US-ASCII”) : 字符串
如：JMail.Charset = “US-ASCII”
(3) ContentTransferEncoding : 字符串
指定内容传送时的编码方式，缺省是”Quoted-Printable”
如：JMail.ContentTransferEncoding = “base64”
(4) ContentType (信件的contentype. 缺省是”text/plain”) : 字符串
如果你以HTML格式发送邮件, 改为”text/html”即可。
如：JMail.ContentType = “text/html”
(5) Encoding : 字符串
设置附件编码方式 (缺省是”base64) 。 可以选择使用的是”base64″, “uuencode” or “quoted-
printable”
如：JMail.Encoding = “base64”
(6) Log (Jmail创建的日志，前提loging属性设置为true，见下面) : 字符串
如：使用Response.Write ( JMail.Log ) 语句列出日志信息。
(7) Logging (是否使用日志) : 布尔型
如：JMail.Logging = true
(8) Recipients : 字符串
只读属性，返回所有收件人
如：Response.Write ( “” + JMail.Recipients + “” ) ;
(9) ReplyTo (指定别的回信地址) : 字符串
如：JMail.ReplyTo = “anyother@mailhost.com”
(10) Sender ( 发件人的邮件地址) : 字符串
如：JMail.Sender = “sender@mailhost.com”
(11) SenderName (发件人的姓名) : 字符串
如：JMail.SenderName = “一克”
(12) ServerAddress (邮件服务器的地址) : 字符串
你可以指定多个服务器，用分号点开。可以指定端口号。
如果serverAddress保持空白，JMail会尝试远程邮件服务器，然后直接发送到服务器上去。
如：JMail.ServerAddress = “mail.263.net.cn”
(13) Subject (设定邮件的标题，可以取自From。) ：字符串
如：JMail.Subject = “客户反馈表单”
(14) 添加文件附件到邮件，（注：C盘下的文件，安全性需要改为网络用户，才可以识别）
如：JMail.AddAttachment ( “c:\anyfile.zip” )
(15) AddCustomAttachment ( FileName, Data )
添加自定义附件.
如：JMail.AddCustomAttachment ( “anyfile.txt”, “Contents of file” ) ;
(16) AddHeader ( Header, Value )
添加用户定义的信件标头。
如：JMail.AddHeader ( “Originating-IP”,”192.168.10.10″ ) ;
(17) AddRecipient (收件人) ：字符串
如：JMail.AddRecipient ( “info@dimac.net” ) ;
(18) AddRecipientBCC ( Email ) ，密件收件人：
如：JMail.AddRecipientBCC ( “anyone@mailhost.com” ) ;
(19) AddRecipientCC ( Email ) ，抄送收件人：
如：JMail.AddRecipientCC ( “anyone@mailhost.com” )
(20) AddURLAttachment ( URL, 文档名)
下载并添加一个来自url的附件. 第二个参数”文档名”, 用来指定信件收到后的文件名。
如：JMail.AddURLAttachment ( “http://www.chinabs.net/jmail.zip”, “jmail” )
(21) AppendBodyFromFile ( 文件名) ，将文件作为信件正文：
如：JMail.AppendBodyFromFile ( “c:\anyfile.txt” )
(22) AppendText ( Text )
追加信件的正文内容，比如增加问候语或者其它信息。
如：JMail.AppendText ( “欢迎访问本站！” )
(23) Close () ，强制JMail关闭缓冲的与邮件服务器的连接：
如：JMail.Close ()
(24) Execute () ，执行邮件的发送
如：JMail.Execute ()
以下的代码已在asp中调试通过。
<%
Dim nReturnValue '发送函数
nReturnValue = SendMail_JMail("mail.qcmw.com", "laifangsong#qcmw.com", "倾城wap自动建站系统", "laifangsong#qcmw.com", "#123456#", "laifangsong#126.com", "注册成功提示", "您在我们网站上注册成功！")
Select Case nReturnValue
Case 0
Response.Write "邮件发送成功！"
Case 1
Response.Write "创建JMail组件失败！"
Case 2
Response.Write "邮件发送失败！"
End Select
'JMail发送邮件(4.4)
'参数：发送邮件SMTP服务器， 发件人邮箱地址， 发件人姓名， 发送邮件服务器登录名， 发送邮件服务器登录密码， 接收人邮件地址， 邮件标题， 邮件内容
Function SendMail_JMail(s_SMTPServer, s_FromMail, s_FromName, s_MailServerUserName, s_MailServerPassword, s_ToEmail, s_Subject, s_Body)
On Error Resume Next
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
If Err.Number <> 0 Then
SendMail_JMail = 1
Exit Function
End If
jmail.silent = True '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.logging = False '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为中文
jmail.ISOEncodeHeaders = False '防止邮件标题乱码
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient s_ToEmail '邮件收件人的地址
jmail.From = s_FromMail '发件人的E-MAIL地址
jmail.FromName = s_FromName '发件人姓名
jmail.MailServerUserName = s_MailServerUserName '登录邮件服务器所需的用户名
jmail.MailServerPassword = s_MailServerPassword '登录邮件服务器所需的密码
jmail.Subject = s_Subject '邮件的标题
jmail.Body = s_Body '邮件的内容
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send(s_SMTPServer) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
If jmail.ErrorCode <> 0 Then
SendMail_JMail = 2
Else
SendMail_JMail = 0
End If
End Function
'IIS中SMTP邮件服务器发送组件
Function SendMail_IISSMTP(s_FromMail, s_ToEmail, s_Subject, s_Body)
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject = s_Subject '邮件标题
cdomail.From = s_FromMail '发件人的地址
cdomail.To = s_ToEmail '收件人的地址
cdomail.Body = s_Body '邮件的内容
cdomail.Send '执行发送
End Function
%>
|
