Jmail 发送邮件的例子1

把以下全部代码内容保存为jmail.asp文件，里面的邮箱信息修改为自己的即可

<%

On Error Resume Next

' 引入 JMAIL 组件

Dim jmail

Set jmail = Server.CreateObject("JMAIL.Message")

' 设置 SMTP 服务器信息

' 确保你的邮箱开启了 SMTP 服务，并且有设置密码或者生成了一个授权码

'jmail.Silent = true ' 静默模式，不显示错误信息

'jmail.Logging = true ' 开启日志记录，可以通过 jmail.Log 属性查看日志

jmail.Charset = "utf-8" ' 设置邮件字符集

jmail.MailServerUserName = "xxx@xxxx.com" ' 你的邮箱用户名

jmail.MailServerPassword = "passwd" ' 你的邮箱密码或授权码

jmail.From = "xxx@xxxx.com" ' 邮件发送者邮箱地址

jmail.FromName = "发件人姓名" ' 邮件发送者姓名

jmail.AddRecipient "shouxinren@xxx.com" ' 邮件接收者邮箱地址

jmail.Subject = "邮件主题" ' 邮件主题

jmail.Body = "邮件正文" ' 邮件正文

Response.Write("JMAIL 版本d: " & jmail.Version)

' 设置 SMTP 服务器参数

jmail.ServerAddress = "smtp.yunyou.top" ' 邮箱 SMTP 服务器地址

jmail.ServerPort = 25 ' 邮箱 SMTP 服务器端口，可能是 465 或 587或25，取决于邮局服务器设置

jmail.SSL = true ' true启用 SSL 加密，false不启用 SSL 加密

jmail.Authentication = true ' 启用 SMTP 认证

' 发送邮件

jmail.Send("smtp.yunyou.top")    ' 邮箱 SMTP 服务器地址

Response.Write("ok ")

' 清理邮件对象

Set jmail = Nothing

%>