当前位置： 移动技术网 > IT编程>开发语言>.net > aspemail组件的应用

aspemail组件的应用

2019年01月13日  | 移动技术网IT编程  | 我要评论

网游之再世骁武,焦利 内幕,国学经典

sub sendmail(a_intid , a_stremail)
      const c_strmailserver = "smtp.163.net"
      dim objconn,objrs,strsql
      dim strcontent,strbody,strsubject,objemail
          
      strbody = "<html><head>"
      strbody = strbody + "<meta http-equiv=content-type content=text/html; charset=gb2312>"      
      strbody = strbody + "</head><body bgcolor=#d2b48c>"
      strbody = strbody + "<a href=>https://www.china-168.net/center/default.asp>" + "<img src="/edu/uploadpic/2007-12/200712913310553.gif" border=0>" + "</a>"
      strbody = strbody + "<h3 style=font-size: 15px>" + "请您确认" + "</h>" + vbcrlf
      strbody = strbody + "<p style=font-size: 13px>" + "您好<a href=mailto:"&a_stremail&">"&a_stremail&"</a>" + "</td>" + vbcrlf
      strbody = strbody + "<p style=font-size: 13px>" + "欢迎您订阅万里信息网邮件列表" +"</td>"
      strbody = strbody + "<p style=font-size: 13px>" + "为了防止出现订阅错误，请您点击以下链接进行确认。谢谢！" + "</td>"
      strbody = strbody + "<p style=font-size: 13px>" + "<a href=""https://www.china-168.net/emaillist/affirm.asp?mode=maillist&content="&a_stremail&""">" + "请点击这里，进行订阅确认" + "</a>"
      strbody = strbody + "<p style=font-size: 13px><a href=https://www.china-168.net target=_blank>" + vbcrlf
      strbody = strbody + "<img src="/edu/uploadpic/2007-12/200712913310812.gif""
      strbody = strbody + " alt=更多信息尽在万里信息网></a><br>"
      strbody = strbody + "<p style=font-size: 13px>" + "欢迎再次光临万里信息网！" + "</td>"
      strbody = strbody + "</body></html>"
      
      发送email
      on error resume next
      set objemail = server.createobject("persits.mailsender")       
      objemail.host = c_strmailserver
      objemail.from = "jiabaoxu@163.net"
      objemail.fromname = "china-168.net"
      objemail.addaddress a_stremail
      objemail.subject = "订阅确认"
      objemail.ishtml = true
      objemail.charset = "gb2312"

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网