Jmail发邮件代码(测试成功,测试版本Jmail 4.4.0 Free Edition)

<%

'****************************************************

	'参数说明

	  'Subject     : 邮件标题

	  'MailAddress : 发件服务器的地址,如smtp.163.com

	  'LoginName     ----登录用户名(不需要请填写"")

	  'LoginPass     ----用户密码(不需要请填写"")

	  'Email       : 收件人邮件地址

	  'Sender      : 发件人姓名

	  'Content     : 邮件内容

	  'Fromer      : 发件人的邮件地址

	'****************************************************

	  Public Function SendMail(MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer)

	   On Error Resume Next

		Dim JMail

		  Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象

			jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j

			jmail.Charset = "GB2312" '邮件的文字编码为国标

			jmail.ContentType = "text/html" '邮件的格式为HTML格式

			jmail.AddRecipient Email '邮件收件人的地址

			jmail.From = Fromer '发件人的E-MAIL地址

			jmail.FromName = Sender

			  If LoginName <> "" And LoginPass <> "" Then

				JMail.MailServerUserName = LoginName '您的邮件服务器登录名

				JMail.MailServerPassword = LoginPass '登录密码

			  End If

			jmail.Subject = Subject '邮件的标题 

			JMail.Body = Content

			JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

			jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）

			jmail.Close() '关闭对象

		Set JMail = Nothing

		If Err Then

			SendMail = Err.Description

			Err.Clear

		Else

			SendMail = "邮件发送完毕!"

		End If

	  End Function

%>