Jmail发邮件方法(Jmail.message)For ASP

最新推荐文章于 2021-07-31 16:39:34 发布

xndiy07

最新推荐文章于 2021-07-31 16:39:34 发布

阅读量1.5k

点赞数

分类专栏： ASP 文章标签： vbscript asp

本文链接：https://blog.csdn.net/xndiy07/article/details/3503354

版权

ASP 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

 
 <%@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="xnc51@163.com" ''發件人
''ToAddress="315959139@QQ.COM;xnc51@126.com" ''收件人
''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
%>
 

xndiy07

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Jmail发邮件方法(Jmail.message)For ASP

%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>head>meta http-equiv="Content-Type" content="text/html; charset=utf-8">head>%====================================================================
复制链接

扫一扫