Question

急求ASP表单提交发送到邮箱代码

急求ASP表单提交发送到邮箱代码

Answer 1

<%
'注意的是您的本机或者空间是否支持JMail ，上面的弟弟（妹妹）你有你怎么不给他哦
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "密码找回:"
strContent = "你的内容"
strSender = trim(request.form("S_name"))

strEmail = youxiang '这是收信的地址,可以改为其它的邮箱

strMailAddress = "smtp.126.com" '我司企业邮局地址，请使用 mail.您的域名

strMailUser = "张三@126.com" '发送邮件的地址 '如果您用的是126 上面的就是smtp.126.com，你用的QQ上面的就是smtp.qq.com

strMailPass = "111111" ' 发件的密码，就是您的邮箱密码

Call SendAction (strSubject,strEmail,strSender,strContent,strMailAddress,strMailUser,strMailPass)

Sub SendAction(strSubject, strEmail, strSender, strContent,strMailAddress,strMailUser,strMailPass)

dim JMail

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

JMail.Charset = "uft-8" ' 邮件字符集，默认为"US-ASCII"

JMail.From = strMailUser ' 发送者地址

JMail.FromName = strSender' 发送者姓名

JMail.Subject =strSubject

JMail.MailServerUserName = strMailUser' 身份验证的用户名

JMail.MailServerPassword = strMailPass ' 身份验证的密码

JMail.Priority = 3

JMail.AddRecipient(strEmail)

JMail.Body = strContent

JMail.Send(strMailAddress)

JMail.Close

End Sub

response.write "<script language=javascript>alert('信息已经发送到您的邮箱，请查收您的邮箱。');"
response.write "this.location.href='index.asp';</script>"
response.End

%>