Jmail 發(fā)送郵件的例子1

把以下全部代碼內(nèi)容保存為jmail.asp文件，里面的郵箱信息修改為自己的即可

<%

On Error Resume Next

' 引入 JMAIL 組件

Dim jmail

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

' 設(shè)置 SMTP 服務(wù)器信息

' 確保你的郵箱開啟了 SMTP 服務(wù)，并且有設(shè)置密碼或者生成了一個授權(quán)碼

'jmail.Silent = true ' 靜默模式，不顯示錯誤信息

'jmail.Logging = true ' 開啟日志記錄，可以通過 jmail.Log 屬性查看日志

jmail.Charset = "utf-8" ' 設(shè)置郵件字符集

jmail.MailServerUserName = "xxx@xxxx.com" ' 你的郵箱用戶名

jmail.MailServerPassword = "passwd" ' 你的郵箱密碼或授權(quán)碼

jmail.From = "xxx@xxxx.com" ' 郵件發(fā)送者郵箱地址

jmail.FromName = "發(fā)件人姓名" ' 郵件發(fā)送者姓名

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

jmail.Subject = "郵件主題" ' 郵件主題

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

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

' 設(shè)置 SMTP 服務(wù)器參數(shù)

jmail.ServerAddress = "smtp.yunyou.top" ' 郵箱 SMTP 服務(wù)器地址

jmail.ServerPort = 25 ' 郵箱 SMTP 服務(wù)器端口，可能是 465 或 587或25，取決于郵局服務(wù)器設(shè)置

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

jmail.Authentication = true ' 啟用 SMTP 認(rèn)證

' 發(fā)送郵件

jmail.Send("smtp.yunyou.top")    ' 郵箱 SMTP 服務(wù)器地址

Response.Write("ok ")

' 清理郵件對象

Set jmail = Nothing

%>