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

%>