28,409
社区成员
发帖
与我相关
我的任务
分享为什么我使用JMail时不能将收件人设为多个？
收件人若只有一个时，程序就正常，但速度比较慢；若是一个以上，那么IE提示无法连接主机或线路存在问题，速度更慢。但用SMTP就十分惬意。程序运行于虚拟主机上，它支持JMail。在本地电脑上测试时正常无误，而且速度很快。
...全文
请发表友善的回复…
发表回复
hacker18 2004-12-01
- 打赏
- 举报
谢谢啦！
hacker18 2004-11-30
- 打赏
- 举报
.
888228 2004-11-30
- 打赏
- 举报
用,是不行的,只能做循环.
sywcf 2004-11-30
- 打赏
- 举报
你的用法错了，当然发不出去了。
要多次用JMail.AddRecipient email才行的。
要多次用JMail.AddRecipient email才行的。
hacker18 2004-11-28
- 打赏
- 举报
up
hacker18 2004-11-28
- 打赏
- 举报
是不是JMail不允许设定多个收件人，所以必须使用循环？
3573745 2004-11-27
- 打赏
- 举报
首先通过SPLIT函数判断是否多个
然后在循环不就的了
然后在循环不就的了
hacker18 2004-11-26
- 打赏
- 举报
<%
FromMail=trim(request("mail_box"))
FromContent=request("content")
ToMail="shui18@yahoo.com.cn,huangxinshui2002@yahoo.com.cn"
'ToMail="shui18@yahoo.com.cn"
SystemEmail=FromMail
email=ToMail
topic="代理合作"
mailbody=FromContent
if SystemEmail<>empty and email<>empty then
JMail(email)
SendFlag=true
end if
%>
<!--#include file="mail_component.asp"-->
------------------------------------------------------------------------------------------
·mail_component.asp：
<%
sub JMail(email)
dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType="text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>
FromMail=trim(request("mail_box"))
FromContent=request("content")
ToMail="shui18@yahoo.com.cn,huangxinshui2002@yahoo.com.cn"
'ToMail="shui18@yahoo.com.cn"
SystemEmail=FromMail
email=ToMail
topic="代理合作"
mailbody=FromContent
if SystemEmail<>empty and email<>empty then
JMail(email)
SendFlag=true
end if
%>
<!--#include file="mail_component.asp"-->
------------------------------------------------------------------------------------------
·mail_component.asp：
<%
sub JMail(email)
dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType="text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>
RainYang 2004-11-26
- 打赏
- 举报
代码贴出来
life360 2004-11-26
- 打赏
- 举报
估计是你写循环了吧
MOTA 2004-11-26
- 打赏
- 举报
不太清楚
建议贴代码
因为速度慢就是代码在服务器处理死了.
都传不过数据来了.
建议贴代码
因为速度慢就是代码在服务器处理死了.
都传不过数据来了.
MOTA 2004-11-26
- 打赏
- 举报
恩,用循环吧
用do while...loop循环
或for i=1 to i
用do while...loop循环
或for i=1 to i
opolmzy 2004-11-26
- 打赏
- 举报
用循环呀，或者加,也可以吧
lisoon 2004-11-26
- 打赏
- 举报
用抄送了。
不然就用循环了。
不然就用循环了。
hacker18 2004-11-26
- 打赏
- 举报
没人回答？
