在asp中用jmail组件发送邮件

set jmail= server.CreateObject ("jmail.message")
	jmail.Silent = true
	jmail.Charset = "gb2312"
	JMail.ContentType = "text/html"

	jmail.From = "发信人邮箱"							'发送者邮箱地址
	jmail.FromName = "发送者昵称"									'邮件发送者昵称
	jmail.Subject = "标题"                                	'邮件发送的标题
	jmail.AddRecipient "收信人邮箱"						'接收者邮箱地址
	if len(postnum)>0  then jmail.AddRecipientCC ccemail	'抄送人地址,现在为表单中填写的地址
	jmail.Body = MailBody
	jmail.MailServerUserName = "用户名"						'邮箱服务器用户名
	jmail.MailServerPassWord = "密码"					'邮箱服务器密码

	isgo = jmail.Send("smtp.163.com")						'邮箱服务器地址
	if isgo then
	msg="邮件发送成功.返回上一页"
	else
	msg = "发送失败,配置是否正确.返回上一页"
	end if

	jmail.Close
	set jmail = Nothing