jmail.asp

一套完整的学生课程管理系统

<%
'**************************************************
'目的：			发送邮件
'参数：			mailTo			收信人地址
'参数：			mailSubject		邮件主题
'参数：			mailBody		邮件内容
'开始时间：		2005-6-7 19:54
'最后修改时间：	2005-6-7 19:54
'编写人：		某某某	
'**************************************************

Sub SendMail(mailTo,mailSubject,mailBody)

	'建立发送邮件的对象
	Set jmail = Server.CreateObject("JMAIL.Message")
	
	'屏蔽例外错误，返回FALSE跟TRUE两值
	jmail.silent = true 
	
	'启用邮件日志
	Jmail.logging = true 
	
	'邮件的文字编码为国标,GB2312为中文
	jmail.Charset = "GB2312" 
	
	'邮件的格式为HTML格式
	jmail.ContentType = "text/html" 
	
	'邮件收件人的地址
	'[e-mail]
	'eg：[e-mail]
	jmail.AddRecipient mailTo
	 
	'发送人地址
	'[e-mail]
	'eg：[e-mail]
	jmail.From = "[e-mail]"
	
	'登录邮件服务器所需的用户名
	jmail.MailServerUserName = "asp_cn" 
	
	'登录邮件服务器所需的密码
	jmail.MailServerPassword = "123456" 
	
	'邮件的标题 
	jmail.Subject = mailSubject
	
	'邮件的内容
	jmail.Body = mailBody
	
	'执行邮件发送(通过邮件服务器地址)
	jmail.Send("smtp.163.com") 
	
	'关闭对象
	jmail.Close() 
	
End Sub
%>