表单提交到邮箱如何做？

[ioucsdn]

有一个纯html客户意见反馈的页面，当点提交按钮时会打开比如outlook,foxmail等邮件发送软件，可是在页面填写的表单里的内容并不能一同传到邮件发送软件上，请问怎么样才可以点了提交之后就直接将表单内容发送到邮箱？
（不使用cdo,jmail之类的组件做。）

[xiaohunhun417]

我也想知道，用cdo,jmail能做也行

[phyllis2001]

纯html?????没法做~~就是用asp也很难的！！！建议还是用jmail吧~~

[ioucsdn]

我用CDO做了一个，可服务器不支持这个组件。
谁能给我一个jmail的，现成的拿来就能用的最好，谢谢。

[woyingjie]

<%
Title="你好"
ToWho="[e-mail]"
Content="欢迎光临http://www.killerj.tk"
call SendMyEmail(Title,ToWho,Content)
'发送邮件
Sub SendMyEmail(Title,ToWho,Content)
Dim msg
Dim email_server,user_name,password,Email_type,send_email

email_server = "smtp.163.com"
user_name = "[e-mail]"
password = "******"
Email_type = 1
send_email = "AAA"

Set msg=Server.CreateObject("JMail.Message")

msg.Body = ""
msg.HTMLBody = ""
'---
msg.appendtext(Content)

if user_name<>"" and password<>"" then
msg.MailServerUserName = user_name
msg.MailServerPassword = password
end if
if ToWho<>"" then msg.ReplyTo=ToWho
'--
msg.Logging = True
msg.silent = true
msg.Charset = "so-8859-1"
msg.From = user_name
msg.FromName = send_email
msg.Subject = Title
'--
msg.AddRecipient ToWho
msg.Priority=Email_type
err=msg.Send (email_server)
'---
msg.clear
msg.close
Set msg=nothing
End Sub
%>

[qiyangaoying]

up

[eyun]

jmail,如上