100分求一份JMAIL表单+程序

来源：百度知道 编辑：UC知道 时间：2024/06/27 07:08:44
要求是默认发到一个邮箱
有标题、内容和附件
表单和程序都要能用直接给分再追分
特别好再来个加分贴
直接HI我 在线等
说的很清楚了是表单加程序

<%
function SendMail(ToAddress,subject,msg)
Dim Jmail
dim s1,s2,s3
'标题
s1=request("s1")
'EMAIL
s2=request("s2")
' 内容
s3=request("s3")

sender="" '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject =s1
Jmail.AddRecipient s2
Jmail.Body=s3
Jmail.Send("smtp.126.com") 'SMTP服务器,需要根据实际修改
response.write "发送成功！"
Set Jmail=nothing
end function

MailBody=trim(Request("MailBody"))
ToAddress=trim(("Tomail"))