Jmail组件发送邮件之绝对能用的函数
作者:随然 日期:2006-12-18
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 ("cnbruce@126.com")
6，From属性，表示发件人的E-Mail地址。该地址一般与使用SMTP服务器验证时所需的登录帐户相同。
jmail.From = "dw8asp@126.com"
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 = "dw8asp@126.com"
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
%>
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","dw8asp@126.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")
或者有个人邮局的可使用
Call Send_EMail("mail.cnbruce.com","root@cnbruce.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")
上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 72 | 查看次数: 14153
发表评论
