新改的jmail发送邮件代码,有注释

 
  1. <%
  2. '获得发送人的姓名
  3. fsname = request.Form("fsname")
  4. '获得发送人的邮件地址
  5. fsemail = request.Form("fsemail")
  6. '将发送人的邮件地址通过@分离开,放到fs_email数组里面
  7. fs_email = split(fsemail,"@")
  8. '获得发送人的邮件密码
  9. fspassword = trim(request.Form("fspassword")) 
  10. '获得收件人的邮件地址
  11. sjemail = request.Form("sjemail")
  12. '获得收件人的姓名
  13. sjname = request.Form("sjname"
  14. '获得邮件的主题
  15. emailsubject = request.Form("emailsubject"
  16. '获得邮件的内容
  17. emailcontent = request.Form("emailcontent"
  18. '设置JMail组件
  19. Set JMail = Server.CreateObject("JMail.Message"
  20. '是否将信头编码成iso-8859-1字符集. 缺省是True 
  21. '邮件的紧急程序,1为最快,5为最慢,3为默认值  
  22. Jmail.Priority = 1
  23. JMail.ISOEncodeHeaders = True 
  24. '如果JMail.silent设置为true,ErrorCode包含的是错误代码 
  25. JMail.Silent = True 
  26. '设置标题和内容编码,如果标题有中文,必须设定编码为gb2312 
  27. JMail.Charset = "gb2312" 
  28. '如果发内嵌附件一定要注释掉这行
  29. 'JMail.ContentType = "text/html"  
  30. '发送人的姓名
  31. JMail.FromName = fsname 
  32. '发送人的邮件
  33. JMail.From =fsemail 
  34. '发送人的邮件用户名,163的邮箱用户名只是@前面部分,所以使用split分割,一些邮箱必须包含@以及后缀,特别是企业邮箱,所以使用完整的。
  35. if fs_email(1)="163.com" then
  36. JMail.MailServerUserName = fs_email(0) 
  37. stmpmail="smtp.163.com"
  38. 'response.Write stmpmail
  39. 'response.End()
  40. else
  41. stmpmail="mail."&fs_email(1)
  42. JMail.MailServerUserName = fsemail 
  43. end if
  44. '发送人的邮件密码
  45. JMail.MailServerPassword =fspassword 
  46. '加入新的收件人
  47. JMail.AddRecipient sjemail, sjname 
  48. '密件收件人的地址 
  49. 'JMail.AddRecipientBCC Email 
  50. '邮件抄送者的地址
  51. 'JMail.AddRecipientCC Email 
  52. '邮件主题 
  53. JMail.Subject = emailsubject 
  54. '邮件内容
  55. JMail.Body = emailcontent 
  56. '增加一个普通附件 
  57. 'JMail.AddAttachment(Server.MapPath()) 
  58. '增加一个嵌入式附件 
  59. 'The return value of AddAttachment is used as a 
  60. 'reference to the image in the HTMLBody. 
  61. 'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif")) 
  62. '只有HTML格式支持嵌入图片附件,我们采用HTML格式的邮件内容 
  63. JMail.HTMLBody = "<html><body><br>"&emailcontent 
  64. JMail.appendHTML "<br><br></body></html>" 
  65. '如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示 
  66. JMail.Body = "Too bad you can't read HTML-mail." 
  67. JMail.appendText " " 
  68. '执行邮件发送<通过邮件服务器地址>smtp.域名.com 不一定是邮件服务器
  69. if JMail.Send(stmpmail) then     
  70. response.Write("邮件发送成功"
  71. else 
  72. response.Write("邮件发送失败"
  73. end if 
  74. JMail.Close() 
  75. Set JMail = Nothing 
  76. %>
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值