<HTML>
<BODY>
<%Dim name,msg,SendMail,tel,email,subject
email=request.form("email")
tel=request.form("tel")
ppt=request.form("ppt")
zlb=request.form("zlb")
name=Request.Form("username")
Set msg = Server.Createobject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "lsxs@163.com" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "123456" '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = "lsxs@163.com" '发件人Email
if name<>"" then
msg.FromName = name '发件人姓名
end if
msg.AddRecipient "lsxs@163.com" '收件箱
msg.Body = "邮箱:"&email&"电话:"&tel&"申请下载:"&ppt&zlb '正文
'msg.HTMLBody = Request.Form("htmlbody") 'HTML正文
msg.ReturnReceipt=true
msg.Send ("smtp.163.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
if SendMail="OK" then%>
<p>非常感谢您的到来，您的资料已经成功的发送！ <a href="javascript:history.back(1)">Close</a></p>
<%else%>
系统错误，电子邮件发送失败。
<%end if%>
</BODY>
</HTML>
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
表单内容提交到邮箱里
<HTML>
<BODY>
<%Dim name,msg,SendMail,tel,email,subject
email=request.form("email")
tel=request.form("tel")
ppt=request.form("ppt")
zlb=request.form("zlb")
name=Request.Form("username")
'jmail.contenttype = "text/html"
Set msg = Server.Createobject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "lsxs@163.com" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "753951" '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = "lsxs@163.com" '发件人Email
if name<>"" then
msg.FromName = name '发件人姓名
end if
msg.AddRecipient "lsxs@163.com" '收件箱
msg.HTMLBody = "邮箱:"&email&"<br />电话:"&tel&"<br />申请下载:"&ppt&zlb '正文
'msg.HTMLBody = Request.Form("htmlbody") 'HTML正文
msg.ReturnReceipt=true
msg.Send ("smtp.163.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
if SendMail="OK" then%>
<p>非常感谢您的到来，您的资料已经成功的发送！ <a href="javascript:history.back(1)">Close</a></p>
<%else%>
系统错误，电子邮件发送失败。
<%end if%>
</BODY>
</HTML>
