<%
Function SendJmail(emailto,Title,Mailbody)
'Function SendJmail(emailto,email,emailname,Title,Mailbody,emailserver,user,pass)
        emailserver="smtp.163.com"
  user="luqingkkk@163.com"'这里填邮箱用户名
  pass="******"'这里填邮箱密码
  email="luqingkkk@163.com"'这里填邮箱用户名
  emailname="灏洋网"'发信人姓名
  replytos="luqingkkk@163.com"'指定回复人EMAIL

 Set jmail = server.CreateObject("Jmail.Message")  '创建对象
  jmail.Silent = true                         '一般不用改
  jmail.Charset ="gb2312"                    '信件的语言编码
  jmail.ContentType = "text"             '信件的格式html或纯文本
  jmail.From = ""&email&""                '发信人邮箱
  jmail.FromName = ""&emailname&""         '发信人姓名
  jmail.Subject = Title  '信件主题
  jmail.AddRecipient ""&emailto&"" '收信人地址
  jmail.ReplyTo=replytos
  jmail.Body = Mailbody '信件正文
  jmail.MailServerUserName = ""&user&""  '服务器登陆用户名(您的邮件地址)
  jmail.MailServerPassWord = ""&pass&""  '服务器登陆密码(您的邮件密码)
  jmail.Send(""&emailserver&"")          '服务器地址
'  jmail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))
  jmail.Close:Set jmail = nothing
End function
call SendJmail("58375596@qq.com","你好","123")
%>