Question

jmail组件怎么将asp页面的form表单提交到邮箱？有没有代码可供参考，看了网上的都不明白什么

jmail组件怎么将asp页面的form表单提交到邮箱？有没有代码可供参考，看了网上的都不明白什么意思，我要设计留言报，就是有个发言人和发言内容，两个文本框，帮忙啊，采纳的话，有300财富值，是我的全部财富了，跪求

Answer 1

function sendmails(smtpserver,smtpuser,smtppass,from,fromname,receiver,receiverCC,receiverBCC,subject,body,filename,isHTML)
		'on error resume next
		Dim JMail,contentId
		Set JMail = Server.CreateObject("JMail.Message") 
		JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
		JMail.From = from ' 发送者地址
		JMail.FromName = fromname ' 发送者姓名
		JMail.Subject = subject ' 邮件主题
		JMail.MailServerUserName = smtpuser ' 身份验证的用户名
		JMail.MailServerPassword = smtppass ' 身份验证的密码
		JMail.Priority = 3'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
		JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
		JMail.AddRecipient receiver 
		if receiverCC<>"" then
			JMail.AddRecipientCC receiverCC 
		end if
		if receiverBCC<>"" then
			JMail.AddRecipientBCC receiverBCC 
		end if
		if isHTML then
			JMail.HTMLBody = body
		else
			JMail.Body = body
		end if
		if filename<>"" then
			Jmail.addattachment filename
		end if
		JMail.Send(smtpserver)
		JMail.Close()
		Set JMail = Nothing
		if err.number<>0 then
			sendmail=false
			response.Write"似乎发生了什么错误...."
			response.write err.description
			err.clear
		else
			sendmail=true
			response.Write"您的邮件都发送成功啦..."
		end if
	end function

接收你的表单,执行发送邮件的代码,然后改成有返回值的.然后页面返回成功或者失败的信息.