- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
- <%
- ''======================================================================[/ft]
- ''SrvAddress="mail.163.com" ''伺服器登陸地址
- ''SmtpSrv="smtp.163.com" ''Smtp伺服器地址
- ''UserID="xnc51" ''發件人帳號
- ''UserPWD="1234" ''發件人密碼
- ''FromAddress="[email protected]" ''發件人
- ''ToAddress="[email protected];[email protected]" ''收件人
- ''SFONT-FAMILY: 'PMingLiU','serif'; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">系統信" ''郵件主題
- ''BFONT-FAMILY: 'PMingLiU','serif'; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">您好!<br />您在RFS系統中有待處理的事務,請儘快登陸系統進行處理" ''郵件內容
- ''if SendMail(SrvAddress,SmtpSrv,UserID,UserPWD,FromAddress,ToAddress,Subject,Bodys) then
- '' Response.Write("OK")
- ''else
- '' Response.Write("ERR")
- ''end if
- ''======================================================================[/ft]
- function SendMail(SrvAddress,SmtpSrv,UserID,UserPWD,FromAddress,ToAddress,Subject,Bodys)
- Dim jmail,aryEmail
- aryEmail = split(ToAddress, ";")
- set jmail=server.createobject("Jmail.message")
- jmail.silent=true
- jmail.charset="UTF-8"
- jmail.ContentType="text/html"
- jmail.fromname=FromAddress ''這裏是發件人名稱,可以從資料庫或表單中取值
- jmail.from=FromAddress ''這裏是發件人郵箱,可以從資料庫或表單中取值,格式要正確
- for i=0 to UBound(aryEmail)
- if aryEmail(i)<>"" then jmail.AddRecipient Trim(aryEmail(i))''收件人郵箱地址,收件人姓名
- next
- jmail.subject=Subject ''發送郵件標題,該值可以從資料庫或表單中取值
- jmail.body = Bodys
- jmail.mailserverusername=UserID ''smtp伺服器登錄用戶名,郵件發送伺服器登錄名稱
- jmail.mailserverpassword=UserPWD ''smtp伺服器登錄密碼,郵件發送伺服器登錄密碼
- jmail.maildomain=SrvAddress ''郵件伺服器功能變數名稱,郵件發送伺服器功能變數名稱
- sendok=jmail.send(SmtpSrv) ''smtp伺服器名,smtp伺服器名稱
- SendMail=sendok
- set jmail=nothing
- End function
- %>
Jmail發郵件方法(Jmail.message)For ASP
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.