Jmail发信(SMTP)For ASP

最新推荐文章于 2024-10-06 12:10:31 发布

xndiy07

最新推荐文章于 2024-10-06 12:10:31 发布

阅读量914

点赞数

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

本文链接：https://blog.youkuaiyun.com/xndiy07/article/details/3503341

版权

ASP 专栏收录该内容

9 篇文章

订阅专栏

 
 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<%
''============================================================
''SrvAddress="mail.jpcco.com.tw"    '' SrvAddress =SMTP伺服器地址
''fromuser="RFQS@jpcco.com.tw"   ''fromuser=發件人
''touser="xnc51@163.com;kaoo_tian@jpcco.com.cn"   ''touser=收件人,分號分隔多人
''subject="test"          ''subject=郵件主題
''hjf="2"               ''hjf=郵件等級
''body="this is a test"     ''body=郵件內容,即正文
''call sendmail(SrvAddress ,fromuser,touser,subject,hjf,body) ''調用函數發出郵件
''============================================================
function sendmail(SrvAddress,fromuser,touser,subject,hjf,body)
On Error Resume Next
aryEmail = split(touser, ";")
set Jmail=Server.CreateObject("Jmail.smtpmail")
Jmail.ContentTransferEncoding="base64"
Jmail.Charset="UTF-8"
Jmail.Encoding="base64"
Jmail.MimeVersion="1.0"
Jmail.ContentType="text/html charset=""UTF-8"""
''Jmail.Serveraddress=mailserver
Jmail.Serveraddress=SrvAddress
Jmail.Subject=subject
Jmail.body=body
Jmail.sender=fromuser
Jmail.priority=hjf
for i=0 to UBound(aryEmail)
  if aryEmail(i)<>"" then JMail.AddRecipient Trim(aryEmail(i))
next
Jmail.execute
Jmail.close
set Jmail=nothing
if err.num<>0 then
err.Clear
end if
end function
%>
 