给你段代码参考下
<%
If Request("Send") <> Empty Then
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "发送邮件人的EMAIL邮箱"
msg.MailServerPassword = "密码"
msg.From = Request.Form("mail")
msg.FromName = Request.Form("Name")
msg.AddRecipient "Request.Form("mail")"
msg.Subject = "test"
body="姓名：" & request.form("name")
body="电子邮件：" & request.form("mail")
msg.Body = body
msg.Send ("smtp.yeah.net")
set msg = nothing
Response.Write "邮件已发送！"
end if
%>
