当前位置: 首页 > 图文教程 > 网络编程 > ASP > Jmail组件发送邮件之绝对能用的函数

ASP
ASP基础讲座(下)
解决IIS5 HTTP500内部错误
ASP 3.0高级编程(四十六)
ASP 3.0高级编程(四十五)
ASP 3.0高级编程(四十四)
ASP 3.0高级编程(四十三)
ASP 3.0高级编程(四十二)
ASP 3.0高级编程(四十一)
ASP 3.0高级编程(三十九)
ASP 3.0高级编程(三十八)
ASP 3.0高级编程(三十七)
ASP 3.0高级编程(三十六)
ASP 3.0高级编程(三十五)
ASP 3.0高级编程(三十四)
ASP 3.0高级编程(三十三)
ASP 3.0高级编程(三十二)
ASP 3.0高级编程(三十一)
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

ASP 中的 Jmail组件发送邮件之绝对能用的函数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 79 ::
收藏到网摘: n/a

Jmail组件的这些对象为服务器端对邮件的操作提供了各种各样的功能,每个对象都有其独特应用,大致如下:
1,POP3对象,是对POP3邮件接收服务器的操作。
2,Messages对象,是有关邮件集合的对象。
3,Message对象,是有关邮件的对象,其是Jmail组件最常用的对象,能发送邮件信息,也能接收邮件信息。
4,Header对象,是与邮件头相关的对象。
5,Recipients对象,是有关接收邮件集合的对象。
6,Recipient对象,是有关接收邮件的对象。
7,Attachments对象,是有关邮件附件集合的对象。
8,Attachment对象,是有关邮件附件的对象。
9,MailMerge对象,是有关邮件模板的对象。
10,PGPKeys对象,是有关邮件PGP密钥集合的对象。
11,PGPKeyInfo对象,是有关邮件PGP密钥信息的对象。
……
在邮件发送的Web应用中,Message对象是最常用的,在使用之前需要建立该对象,并赋值到变量上。

Set jmail = Server.CreateObject("JMAIL.Message")

其中关于Message对象有如下常用的属性和方法应用:
1,Silent属性,表示屏蔽例外错误,返回FALSE或TRUE值,当值为TRUE时,表示邮件发送会忽略错误,不将错误信息返回给操作系统。
jmail.silent = true
2,Logging属性,表示是否启用日志。
jmail.logging = true
3,Charset属性,设置邮件显示的字符集,中文简体可使用GB2312。
jmail.Charset = "GB2312"
4,ContentType属性,表示邮件正文的类型。
jmail.ContentType = "text/html"
5,AddRecipient方法,表示收件人的E-Mail地址。
jmail.AddRecipient ("[email protected]")
6,From属性,表示发件人的E-Mail地址。该地址一般与使用SMTP服务器验证时所需的登录帐户相同。
jmail.From = "[email protected]"
7,FromName属性,表示发件人的名称。
jmail.FromName = "BruceWolf"
8,Subject属性,表示设置发送邮件的标题。
jmail.Subject = "这是邮件的标题"
9,Body属性,表示设置发送邮件的正文内容,可使用HTML标签代码
jmail.Body = "这是邮件的内容<br>换行的内容显示"
10,Priority属性,表示邮件发送的优先级,1为最快,5为最慢,3为默认值。
jmail.Priority = 1
11,MailServerUserName属性,表示当邮件服务器使用SMTP发信验证时设置的登录帐户。
jmail.MailServerUserName = "[email protected]"
12,MailServerPassword属性,表示当邮件服务器使用SMTP发信验证时设置的登录密码。
jmail.MailServerPassword = "**************"
13,Send方法,表示通过指定的邮件发送服务器进行邮件的发送。需要注意的即是该邮件服务器地址与MailServerUserName和MailServerPassword中的值是一致的。
jmail.Send("smtp.126.com")
14,Close方法,表示释放Jmail和邮件服务器连接而使用的缓存空间。
jmail.Close()
由于采用邮件服务器的不同,发送邮件接收人的不同,以及邮件标题和内容的不同,综合这些经常需要变化的值,自定义如下的函数用来完成Jmail发送邮件的功能。
Jmail邮件发送的函数

<%
Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content)
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
jmail.Charset = "gb2312"
jmail.ContentType = "text/html"
jmail.AddRecipient mailTo
jmail.From = smtpUser
jmail.FromName = FromName
jmail.Subject = subject
jmail.Body = content
jmail.Priority = 1
jmail.MailServerUserName = smtpUser
jmail.MailServerPassword = smtpPass
jmail.Send(smtpHost)
jmail.Close()
response.write("邮件发送成功")
End Function
%>

其中Send_Email表示自定义的函数名称
参数smtpHost表示邮件服务器地址
参数smtpUser表示发信验证所需的登录帐户
参数smtpPass表示发信验证所需的登录密码
参数mailTo表示邮件收件人的E-Mail地址
参数FromName表示邮件发件人的名称
而参数subject和content则分别表示邮件的标题和正文内容
通过如下方法可应用该函数:
Call Send_EMail("smtp.126.com","[email protected]","******","[email protected]","cnbruce","标题","邮件正文内容")
或者有个人邮局的可使用
Call Send_EMail("mail.cnbruce.com","[email protected]","******","[email protected]","cnbruce","标题","邮件正文内容")
调试地址: http://www.dw8.cn/2006/mail