[求助]小问题：求一段自动发email代码

[yunfenghan]

那位大虾有自动发送EMAIL的代码给小弟发一段上来啊~
小弟先行谢过了~

[yb2008]

<%
user=trim(request("name"))
company=trim(request("company"))
http=trim(request("http"))
product=trim(request("product"))
email=trim(request("email"))
telephone=trim(request("telephone"))
fax=trim(request("fax"))
address=trim(request("address"))
content=request("content")
mymailbody ="1:公司名称:"& company &"<p>"
mymailbody ="1:申请代理的优势:"& product &"<p>"
mymailbody =mymailbody&"2:联系人:"+user+"<p>"
mymailbody=mymailbody&"3:联系电话："+telephone+"<p>"
mymailbody=mymailbody&"4:传真:"+fax+"<p> "
mymailbody=mymailbody&"5:Email:"+email+"<p> "
mymailbody=mymailbody&"6:地址："+address+"<p>"
mymailbody=mymailbody&"7:公司网址:"+http+"<p> "
mymailbody=mymailbody&"8:您的意见和建议："+content
fromwho="[e-mail]"
towho="[e-mail]"
title="客户代理商申请资料"
subject=title
body=mymailbody
SendMail fromWho,towho,subject,body
response.write "<script language=javascript> alert('您的所填写的申请信息已经成功提交,谢谢您的参与!');"
response.write "javascript:history.go(-1)</script>"

Sub SendMail(fromwho,towho,subject,body)
dim mymail
set mymail=server.CreateObject("cdonts.newmail")
mymail.mailformat=0
myMailBodyformat=0
mymail.from=fromwho
mymail.to=towho
mymail.subject=subject
myMail.Body=body
mymail.send
set mymail=nothing
End Sub
%>

[yb2008]

楼主记得全分我哦....

[yb2008]

要装jmail组件

<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "[e-mail]" ''输入smtp服务器验证登陆名 （邮局中

任何一个用户的Email地址）
msg.MailServerPassword = "" ''输入smtp服务器验证密码 （用户Email帐号对应的

密码）
msg.From ="[e-mail]"' Request.Form("email") ''发件人Email
msg.FromName = "11"'Request.Form("name") ''发件人姓名
msg.AddRecipient "[e-mail]" ''收件人Email
msg.Subject = "信件主题"'Request.Form("subject") ''信件主题
msg.Body = "正文"'Request.Form("body") ''正文
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("http://mail.dgemail.com") ''smtp服务器地址（企业邮局地址）
set msg = nothing
response.write("发送成功！")
%>