昨天的Jmail问题，想用SUB来解决，各位给看看！

[gyasy]

在Jmail内要把传递来的值与字符串中的值连接，我写的好像有问题，总不成功。帮忙看一下。
sname=split(request.form("sname"),",") '从框架接收的复选框的值
for i=0 to ubound(sname)
sql="select sName,sEmail,sClientName,dtOrderDate from tUser,tOrderi,tNodeFlowUserConfig where tuser.sName=tNodeFlowUserConfig.sUserName and tNodeFlowUserConfig.nNodeId=tOrderi.nToNodeId and tUser.sName='"&sname(i)&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
data=rs("dtOrderDate")
sclientname=rs("sclientname")
semail=rs("sEmail")
Call Jmail(data,sclientname,semai)
next
Response.Redirect("order.asp")

Sub Jmail(data,sclientname,semail)
'调用此Sub的例子
Dim strSubject,strEmail,strMailAddress,strSender,strContent,strFromer
strSubject = "此邮件为信联订单系统确认邮件"
strContent = "'收到你于"&data&",提交的"&sclientname&"订单。'"
strEmail = ""&semail&""
strFromer = "[e-mail]"
strMailAddress = "mail.tele.com"
strSender = "信联"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
dim jmail
end sub

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
End Sub

[手机APP开发]

什么地方出错了？

[gyasy]

邮件发送不成功呀！
最后有个Response.Redirect("order.asp")，结果根本没转到这个页面，以前只用发送一个邮件地址时，没问题，现在就是要发送多个地址，做个循环。

[colee]

Call Jmail(data,sclientname,semai)
＝》
Call Jmail(data,sclientname,semail)

或者 jmail.silent = true => jmail.silent = false 看看报什么错误先

[gyasy]

在自己定义的sub中如何将传递过来的变量与字符串连接？ 我这样写对吗，我总感觉是这部分的问题。
像这样的：
Sub Jmail(data,sclientname,semail)
strContent = "'收到你于"&data&",提交的"&sclientname&"订单。'"
strEmail = ""&semail&""
end sub
另外我是否在能这个SUB中调用另外一个呢？

[gyasy]

这样设置也没有出现什么错误提示？
jmail.silent = false

[gyasy]

我这次把邮件发送的操作放在另一个文件里处理，出现如下错误，是不是服务器的问题呀？
错误类型：
jmail.SMTPMail (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/sendmail.asp, 第 58 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Maxthon)

网页：
POST 46 ??? /sendmail.asp

POST Data:
checkbox=bjs&checkbox=sw2&Submit2=%CC%E1%BD%BB

时间：
2004年11月24日, 11:05:28

[liuyangxuan]

用WebEasyMail吧，性能要比JMAIL好一些。

[gyasy]

对象不支持此属性或方法: 'jmail.MailServerUserName'
/sendmail.asp, 第 49 行
这样的提示是不是Jmail不支持smtp验证？