如何在html网页中提交表单直接发送到邮箱?此问题一直困扰了我很久很久,后来了解到jmail组件可以解决此问题,而且现在的付费空间基本都会有此组件。分别建立表单页和asp页面,提交表单后通过asp页面调用jmail组件,实现将表单内容发送到指定邮箱的效果。
具体实现方法:
1.制作一个表单页面form.html(或修改自己网站上的表单页面,因为接下来与*.asp文件进行数据传递,所以对应的参数一定要写对),name="form" method="post" action="s.asp
2.制作一个s.asp页面
3.让这两个文件上传到空间的形同路径下就可以实现提交表单后,表单内容自动发送到指定的邮箱,相应的会出现下面的页面
4.form.html对应的代码如下(将下面的代码复制后粘贴到记事本中,保存为form.html):
formCompany: | |
Website: | |
First name: | |
Last name: | |
Email address: | |
Phone: | |
Country: | |
City / Locality: | |
Message: | |
5.s.asp对应的代码如下(将下面的代码复制后粘贴到记事本中,保存为s.asp):
send to your emailsend to your email'下面是定义一些变量,是这些变量从表单页面获取信息
company=Request.Form ("company")
website=Request.Form ("website")
fname=Request.Form ("fname")
lname=Request.Form ("lname")
email=Request.Form ("email")
phone=Request.Form ("phone")
country=Request.Form ("country")
city=Request.Form ("city")
message=Request.Form ("message")
' 下面就是调用从表单页获取的信息,赋值到mess,&是连接符,vbcrlf表示换行回车:
mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "Company:" & company & vbcrlf
mess = mess & "Website:" & website & vbcrlf
mess = mess & "First name:" & fname & vbcrlf
mess = mess & "Last name:" & lname & vbcrlf
mess = mess & "Email address:" & email & vbcrlf
mess = mess & "Phone:" & phone & vbcrlf
mess = mess & "Country:" & country & vbcrlf
mess = mess & "City / Locality:" & city & vbcrlf
mess = mess & "Message:" & message & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------" & vbcrlf
' 下面是调用Jmail组件的部分,其中邮箱,密码填写正确的,否则发送不成功
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent = true '则errorcode包含的是错误代码
JMail.Logging=True '是否使用日志
JMail.Charset="gb2312"
JMail.ContentType = "text/plain" 'text/html是超文本格式text/plain是文本格式
JMail.MailServerUserName = "gewell@163.com" '您的邮件服务器登录名
JMail.MailServerPassword = "123654" '登录密码
JMail.From = "gewell@163.com" '发件人(要填合法正确邮箱才能发出去信件)
JMail.FromName = "gewell" '发件人姓名,引号内的内容可以修改为符合自己的信息
JMail.AddRecipient "gewell@163.com" '收件人
JMail.Subject = "WebMail" '主题,引号内的内容可以修改为自己认为合适的主题
JMail.Body = mess '正文,通过使用前面的mess调用获取到得表单信息
JMail.Send "smtp.163.com" 'smtp服务器地址
JMail.Priority=3 '1: 最高优先级.2:高 3:普通 4:低 5:最低
Set JMail=nothing
%>
Success ,Congratulation
--- < Go back to your website > ---
6.将两个文件上传到空间中的相同路径,就可以了
可能此代码对于很多大虾来说太小儿科了,希望能对刚入门的朋友有些帮助