Jmail发信(SMTP)For ASP

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
  3. <%
  4. ''============================================================
  5. ''SrvAddress="mail.jpcco.com.tw"    '' SrvAddress =SMTP伺服器地址
  6. ''fromuser="RFQS@jpcco.com.tw"   ''fromuser=發件人
  7. ''touser="xnc51@163.com;kaoo_tian@jpcco.com.cn"   ''touser=收件人,分號分隔多人
  8. ''subject="test"          ''subject=郵件主題
  9. ''hjf="2"               ''hjf=郵件等級
  10. ''body="this is a test"     ''body=郵件內容,即正文
  11. ''call sendmail(SrvAddress ,fromuser,touser,subject,hjf,body) ''調用函數發出郵件
  12. ''============================================================
  13. function sendmail(SrvAddress,fromuser,touser,subject,hjf,body)
  14. On Error Resume Next
  15. aryEmail = split(touser, ";")
  16. set Jmail=Server.CreateObject("Jmail.smtpmail")
  17. Jmail.ContentTransferEncoding="base64"
  18. Jmail.Charset="UTF-8"
  19. Jmail.Encoding="base64"
  20. Jmail.MimeVersion="1.0"
  21. Jmail.ContentType="text/html charset=""UTF-8"""
  22. ''Jmail.Serveraddress=mailserver
  23. Jmail.Serveraddress=SrvAddress
  24. Jmail.Subject=subject
  25. Jmail.body=body
  26. Jmail.sender=fromuser
  27. Jmail.priority=hjf
  28. for i=0 to UBound(aryEmail)
  29.   if aryEmail(i)<>"" then JMail.AddRecipient Trim(aryEmail(i))
  30. next
  31. Jmail.execute
  32. Jmail.close
  33. set Jmail=nothing
  34. if err.num<>0 then
  35. err.Clear
  36. end if
  37. end function
  38. %>
 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值