关键词：jmail发邮件，jmail发邮件例子，jmail发邮件实例，设置jmail发邮件

On Error Resume Next

Set JMail=Server.CreateObject("JMail.Message")

If JMail Is Nothing Then

Response.Write "不支持"

Else

Response.Write "支持"

End If

Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312"

JMail.From = "labcdef@163.com" 使用邮箱的账号@163.com

JMail.FromName = "网站制作学习网网友"

JMail.Subject = Emailtitle

JMail.MailServerUserName = "labcdef" 使用邮箱的账号

JMail.MailServerPassword = "*****"邮箱账号密码

JMail.Priority = 3

JMail.AddRecipient "###@yeah.net"收件人

JMail.Body = "内容"

JMail.Send("smtp.163.com")

JMail.Close()