如何在网页中填表后以邮件形式把表格内容发送到指定邮箱啊
如题想这个网址一样的http://diy.nhxx.net/kegai/Email.asp?ID=601...
如题 想这个网址一样的 http://diy.nhxx.net/kegai/Email.asp?ID=601
展开
1个回答
展开全部
到网上下载个jmail组件，注册一下， 这里有个基础案例（发信时必须要设置一个可以使用的邮箱做为代发，修改下面的邮箱地址和密码，以及希望收信的地址即可使用）： 我给你个基础版的， 首先，要确定你个JMAIL已经安装！ <%response.charset="gb2312"%> <HTML> <BODY> <form action="sent.asp?go=sent" method="post"> <table> <tr><td>用户名:</td><td><input type="text" name="name" id="name" value="***"></td></tr> <tr><td>邮箱:</td><td><input type="text" name="email" id="email" value="***@msn.com"></td></tr> <tr><td>主题:</td><td><input type="text" name="subject" id="subject" value="Jmail中文邮件发送测试" ></td></tr> <tr><td>反馈信息:</td><td width="650"> <TEXTAREA NAME="content" ROWS="5" COLS="50"></TEXTAREA> </td></tr> <tr><td colspan="2" align="center"><INPUT TYPE="submit" value="提交"></td></tr> </table> </form> <% If request("go")<>"sent" Then response.End dim CLStr,msg,mailserver,username,password,receive CLStr=Chr(13) & Chr(10) '请在此修改相关信息 mailserver="smtp.163.com" '邮局服务器地址（smtp服务器地址） username="***@163.com" 'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址） password="*****" 'smtp服务器验证密码 （信箱密码） receive="***@qq.com" '接受反馈信息的email地址（可以是您的任何有效信箱） '修改结束 Set msg = Server.CreateObject("JMail.Message") msg.Charset = "gb2312" msg.logging = true '启用邮件日志 msg.silent=True'屏蔽例外错误，返回False或True 'msg.ContentType = "text/html"'邮件的格式为HTML格式 msg.Priority = 1 '邮件等级，1为加急，3为普通，5为低级 msg.MailServerUserName = username msg.MailServerPassword = password msg.From = username msg.FromName = username msg.AddRecipient (receive) 'msg.AddURLAttachment " http://192.168.159.1/Jmail/1.xls"," 毕业设计论文目录.xls",True msg.Subject = "网站在线反馈:"&Request.Form("subject") msg.HTMLBody = "网站在线反馈"&CLStr&CLStr msg.HTMLBody = msg.HTMLBody&"<br>对方姓名:"&Request.Form("name")&CLStr msg.HTMLBody = msg.HTMLBody&"<br>对方信箱:"&Request.Form("email")&CLStr msg.HTMLBody = msg.HTMLBody&"<br>留言内容:<br>" msg.HTMLBody = msg.HTMLBody&"<div style='font:9pt;background-color:#eeeeee'>"&Request.Form("content")&CLStr msg.HTMLBody = msg.HTMLBody&"</div>" If msg.Send (mailserver) Then Response.Write(" <script language=javascript>alert('发送成功');location='sent.asp'</script>") else Response.Write(" <script language=javascript>alert('发送失败，请仔细检查邮件服务器的设置是否正确！') </script>") End If msg.close set msg = nothing %> <p>邮件发送成功，谢谢使用</p> </BODY> </HTML>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
深圳市电速邮科技有限公司
2018-08-29 广告
效果好的邮件群发平台Rushmail邮件群发平台，一个邮箱账号千万级别发送，邮件送达率90%以上，主要服务于会员邮件发送、注册信发送、招聘简历发送、电子账单发送、EDM邮件营销等需求，并免费提供邮件模板、数据统计、地址筛选等一站式邮件群发服...
点击进入详情页
本回答由深圳市电速邮科技有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
