[这个贴子最后由yangrl18在 2005/12/08 08:05pm 第 1 次编辑] jmail组件已安装，并按照网上提供asp代码编辑了asp页，可虽然提示已发送成功，但并未收到邮件。。晕啊。。。。 下面是我东拼西凑的代码，哪位好心人帮我改改，在下感激不尽！ <% dim ycsf,xm,sex,dz,dh,email,lb,sl,gj,xq,sw,bz ycsf=replace(trim(request.Form("ycsf")),"';","';") xm=replace(trim(request.Form("xm")),"';","';") sex=replace(trim(request.Form("sex")),"';","';") dz=replace(trim(request.Form("dz")),"';","';") dh=replace(trim(request.Form("dh")),"';","';") email=replace(trim(request.Form("email")),"';","';") lb=replace(trim(request.Form("lb")),"';","';") sl=replace(trim(request.Form("sl")),"';","';") gj=replace(trim(request.Form("gj")),"';","';") xq=replace(trim(request.Form("xq")),"';","';") sw=replace(trim(request.Form("sw")),"';","';") bz=replace(trim(request.Form("bz")),"';","';") 上面这段是获取表单的内容，我瞎搞的不知对不对。。呵呵 email="cszg11@hotmail.com" title="你好！" msg="我的测试邮件！" smtpserver = "smtp.126.com" smtpuser = "cszg11" smtpemail = "cszg11@126.com" smtppwd = "1111111" Set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" jMail.ContentType = "text/html" jmail.From = "cszg11@126.com" jmail.FromName = "cszg11" jmail.Subject = title jmail.AddRecipient email="cszg11@hotmail.com" jmail.Body = msg jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd isgo = jmail.Send(smtpserver) if err then SendMail= err.description err.clear else SendMail="发送成功" end if jmail.Close set jmail = nothing Response.Write SendMail %>

怎么没人回答啊..................

您的姓名：	***
电子信箱：	***
联系电话：
传 真：
公司名称：
联系地址：
法人代表
留 言：

用JMail组件发送邮件

---

请如实填写以下内容：

姓名:

电子邮件地址:

To电子邮件地址:

主题:


详细内容:

HTML内容:

**************Sendmailed.asp***************** <%Dim name,msg,SendMail name=Request.Form("name") Set msg = Server.Createobject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.MailServerUserName = "abc@abc.com" 9输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址） msg.MailServerPassword = "******" 输入smtp服务器验证密码 （用户Email帐号对应的密码） msg.From = Request.Form("email") 发件人Email if name<>"" then msg.FromName = name 发件人姓名 end if msg.AddRecipient Request.Form("toemail")收件人Email msg.Subject = Request.Form("subject") 信件主题 msg.Body = Request.Form("body") 正文 msg.HTMLBody = Request.Form("htmlbody") HTML正文 msg.ReturnReceipt=true msg.Send ("mail.abc.com") 'smtp服务器地址（企业邮局地址） set msg = nothing if err then SendMail=err.description err.clear else SendMail="OK" end if if SendMail="OK" then%>

邮件发送成功，谢谢使用

<%else%> 由于系统错误，邮件未能成功发送 <%end if%>

谢谢两位斑竹！
正在试验中。。。。

两位版主再救救我吧！ 现在用jmail能发信了，但收的信确没有表单内容。。。找了好多天都没有答案55~~5~5。。。。。到底该加什么代码才能传送表单数据？？ <%@ Language=VBScript %> <% formycsf=cstr(request.Form("formycsf")) formxm=cstr(request.Form("formxm")) formsex=cstr(request.Form("formsex")) formdz=cstr(request.Form("formdz")) formdh=cstr(request.Form("formdh")) formemail=cstr(request.Form("formemail")) formlb=cstr(request.Form("formlb")) formsl=cstr(request.Form("formsl")) formgj=cstr(request.Form("formgj")) formxq=cstr(request.Form("formxq")) formsw=cstr(request.Form("formsw")) formbz=cstr(request.Form("formbz")) dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo,form ';收件人信息 email="cszg11@hotmail.com" ';//收信人地址 title=表单数据 ';//标题 msg = formbz //这里该怎样填啊？？？？ if request.form("submit")="提 交" then if formxm="" then response.write "" end if if formdz="" then response.write "" end if if formdh="" then response.write "" end if if formemail="" then response.write "" end if ';发送邮件参数设置 smtpserver = "smtp.126.com" ';//邮件服务器（我使用的是新浪的） smtpuser = "cszg11" ';//你的用户名 smtpemail = "cszg11@126.com" ';//你的邮箱 smtppwd = "1111111" ';//你的密码 ';发送邮件 Set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" jMail.ContentType = "text/html" jmail.From = formemail ';//这里成你的发信人地址 jmail.FromName = formxm ';//发信人姓名 jmail.Subject = title ';//标题 jmail.AddRecipient formemail ';//地址 jmail.Body = msg jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd isgo = jmail.Send(smtpserver) if err then SendMail= err.description err.clear else SendMail="发送成功！非常感谢您的支持！" end if jmail.Close set jmail = nothing ';Response.Write SendMail end if %>