第三方组件，用于邮件。
| Server.CreateObject("JMail.Message") |
| 属性/方法 | 意义 |
|---|---|
| MailServerUserName | 邮件服务器用户名 |
| MailServerPassWord | 邮件服务器密码 |
| AddRecipient(EMail_Addr) | 添加收件人 |
| From | 发件人EMAIL |
| FromName | 发件人 |
| Charset | 字符集，"GB2312" |
| Logging | |
| Silent | |
| Subject | 邮件主题 |
| Body | 邮件内容 |
| HTMLBody | HTML 格式的邮件内容 |
| Send(mailServer [, True]) | 发送邮件, mailServer 为发件服务器 IP |
| Close | 关闭 |
| AddAttachment(FileName,isInline,ContentType) | 添加文件附件，如果 isInline，返回 ID |
| AddHeader(XHeader,Value) | 添加一个自定义邮件头 |
| AddAttachment FileName, isInline, ContentType | 添加附件 |
| AddCustomAttachment FileName, Data, isInline | 添加自定义附件 |
| AddHeader XHeader, Value | 添加自定义邮件头 |
| AddNativeHeader Header, Value | 添加邮件头 |
| AddRecipient emailAddress, [recipientName], [PGPKey] | 添加收件人 |
| AddRecipientBCC emailAddress, [PGPKey] | 添加暗送人 |
| AddRecipientCC emailAddress, [recipientName], [PGPKey] | 添加抄送人 |
| AddURLAttachment bstrURL, bstrAttachAs, isInline, bstrAuth | 添加附件（从网络） |
| AppendBodyFromFile FileName | 添加内容从文件 |
| AppendHTML Text | 添加 HTML 内容 |
| AppendText Text | 添加内容从文本 |
| Clear | 清除内容 |
| ClearAttachments | 清除附件 |
| ClearCustomHeaders | 清除自定义邮件头 |
| ClearRecipients | 清除收件人 |
| Close | 关闭 |
| DecodeHeader Header | 返回一个邮件头信息 |
| ExtractEmailAddressesFromURL bstrURL, [bstrAuth] | 获取邮件列表从 URL |
| GetMessageBodyFromURL bstrURL, [bstrAuth] | 从 URL 取邮件内容 |
| KeyInformation keyIdentifier | |
| LoadFromStream Stream | 从流中取内容 |
| LogCustomMessage Message | |
| nq | 邮件追加到发送队列 |
| ParseMessage MessageSource | 解析一个邮件 |
| SaveToStream Stream | 保存到流 |
| Send mailServer, [enque] | 发送邮件 |
| SendToNewsGroup ServerName, [Newsgroups] | 发送邮件到新闻组 |
| VerifyKeys keyString | |
| About | |
| Attachments | 取附件的集合 |
| Body | 邮件正文 |
| BodyText | 全部文本正文 |
| Charset | 字符集 |
| ContentTransferEncoding | 邮件编码 |
| ContentType | 正文格式 |
| Date | 邮件发送时间 |
| DeferredDelivery | 邮件发送时间设定 |
| Encoding | 设置默认编码 |
| EncryptAttachments | 如果编解码可用，加密附件 |
| ErrorCode | 如果 silent，则为错误号 |
| ErrorMessage | 如果 silent，则为错误说明 |
| ErrorSource | 如果 silent，则为错误来源 |
| From | 发件人EMAIL |
| FromName | 发件人 |
| Headers | 返回一个包含文件头的对象 |
| HTMLBody | 邮件 HTML 部分 |
| ISOEncodeHeaders | 邮件头是否使用 iso-8859-1 编码 |
| Log | 如果 logging 返回日志 |
| Logging | 是否启动日志 |
| MailData | 返回邮件的源代码 |
| MailDomain | 邮件服务器 |
| MailServerPassWord | 登陆密码（认证） |
| MailServerUserName | 用户名（认证） |
| MimeVersion | 指定 mime 版本 |
| MsPickupdirectory | 指定微软 SMTP 服务的 Pickup 文件夹 |
| PGPEncrypt | |
| PGPPassphrase | |
| PGPSign | |
| PGPSignkey | |
| Priority | 邮件优先级 |
| Recipients | 收件人集合 |
| RecipientsString | 返回收件人集合 |
| ReplyTo | 回复 EMAIL |
| ReturnReceipt | 指定对方在收到邮件时是否发送收条 |
| Silent | 是否容错 |
| SimpleLayout | 禁止添加 JMAIL 特有的邮件头 |
| Size | 邮件总节字 |
| Subject | 邮件标题 |
| Text | 邮件完整的源文件 |
| UsePipelining | |
| Version | JMAIL 版本 |
| PGPDecode | |
| EnableCharsetTranslation | 字符集转换 |
<%
dim str,HtmlBody
HtmlBody="<html><body bgcolor=''red'' topmargin=''40''><p align=''center''>I Love 2Yup!</p></html>"
str=JmailSend( "JMAIL标题","JMAIL文本",true,HtmlBody,"tc@asteras.com.cn","tc@asteras.com.cn","AST网站","192.168.1.6","tc@asteras.com.cn#mail.asteras.com.cn","tanc[]")
if str="Y" then
response.write("发送成功")
else
response.write("发送失败!请重试!")
end if
''=================================================
''函数名：JmailSend
''作 用：用Jmail发送邮件
''参 数：
'' Subject 邮件标题
'' Body 邮件内容
'' isHtml 是否发送Html格式邮件 (true 是)
'' HtmlBody Html格式邮件内容
'' MailTo 收件人Email
'' From 发件人Email
'' FromName 发件人姓名
'' Smtp smtp服务器
'' Username 邮箱用户名
'' Password 邮箱密码
''返回值：JmailSend="N" 发送失败 JmailSend="Y" 发送成功
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName
JmailMsg.charset="gb2312"
JmailMsg.logging=true
JmailMsg.silent=true
JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml=true then JmailMsg.htmlbody=HtmlBody
if not JmailMsg.send(Smtp) then
JmailSend="N"
else
JmailSend="Y"
end if
JmailMsg.close
set JmailMsg=nothing
end function
jmailsend("你好","好久不见了！",false,"","makebest@163.com","tc@asteras.com.cn","tancheng","mail.asteras.com.cn","tc@asteras.com.cn","密码")
%>
|