|
|
主题: 填写表单，然后把表单内容直接email的代码！来看看对不对！
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#12002/10/8 9:49:01
这个是从a页面填写表单。然后转到b页面。b页面接受表单内容将其发送到邮箱下面是代码
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = "etzzy01@163.com"
mail.From =request.form("UserEmail")
mail.Subject =request.form("Subject")
mail.Body =request.form("Comments")
mail.send
set mail = nothing
%>
不过不好使。不知道那里错了。请大家帮忙啊！！！！！
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#22002/10/8 10:08:07
语法应该是正确的，不过你看，mail.To是指收件人地址，而mail.From是指发件人地址，你是不是搞反啦？
|
我佛山人
职务：版主
等级：4
金币：16.0
发贴：2269
注册：2002/8/7 15:09:27
|
#32002/10/8 11:31:30
可能是为了测试，发到自己信箱里吧
不过你要确定你的服务器要支持CDONTS这个组件
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#42002/10/8 15:16:40
先多谢2位了
那个收，发人的是我做测试了。都发到我的邮箱里面了！
我后来的试验是。从数据库里面提取信息发email。这样是可以的。
不过一用贴子的代码就不可以。不知道上边那位说的cdonts这个组件是不是和这个有关啊？？
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#52002/10/8 16:26:43
如果能发说明组件是支持的而且最好肯定From地址的正确性，这个也有很大关系
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#62002/10/8 16:41:56
多谢了！
“from地址的正确性有关系”是否可以这样理解。就是to的那个邮箱有相应的设置。容易把那些乱写的邮件拒收对么？？
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#72002/10/9 11:11:19
我又试验了一下。就是把email内容的地方用了request.form......其他的地方都用了固定的内容。而且email的收发地址都是正确的。可是还是发不出去啊。。。55555555555555
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#82002/10/9 12:28:01
下面是我做的一个简单的邮件发送程序，如果仍然发不出，应该是你的设置问题：
<%
SUB sendMail(fromWho,toWho,Subject,Body)
Dim myMail
SET myMail=Server.CreateObject("CDONTS.Newmail")
myMail.From=fromWho
myMail.To=toWho
myMail.Subject=Subject
myMail.Body=Body
myMail.Send
SET myMail=Nothing
END SUB
%>
<%
fromWho=TRIM(Request.Form("fromWho"))
toWho=TRIM(Request.Form("toWho"))
Subject=TRIM(Request.Form("Subject"))
Body=TRIM(Request.Form("Body"))
if toWho<>"" then
sendMail fromWho,toWho,Subject,Body
end if
%>
Send Mail
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#92002/10/10 16:31:07
不好了！现在用什么都不好使了！！
那该怎么办啊？？这个该死的空间啊！！55555555555555555
|
我佛山人
职务：版主
等级：4
金币：16.0
发贴：2269
注册：2002/8/7 15:09:27
|
#102002/10/10 20:16:50
用探针测一下看服务器支不支持那个组件
|
忧忧
职务：普通成员
等级：1
金币：1.0
发贴：180
注册：2002/7/23 1:32:17
|
#112002/10/10 20:52:34
组件具体叫什么名字！！！
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#122002/10/11 8:54:19
怎么叫探测指针啊？？不懂。我asp很差的。我是这样试验的
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = "etzzy01@163.com"
mail.From =“etzzy@163.comj”
mail.Subject ="mail"
mail.Body ="send a mail"
mail.send
set mail = nothing
%>
测试没反映！！怎么办？？
|
咬一口
职务：普通成员
等级：1
金币：0.0
发贴：107
注册：2002/1/20 21:07:01
|
#132002/10/14 14:32:28
多谢大家了！！该死的问题解决了。原来都出在邮箱上面了。建议以后大家做测试的时候。不要用国内的邮箱了。我回来把mail to的邮箱改成hotmail的就ok了。
|
