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