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

gyasy 2004-11-24 09:06:16
在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 = "gy@tele.com"
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
...全文
68 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gyasy 2004-11-24
对象不支持此属性或方法: 'jmail.MailServerUserName'
/sendmail.asp, 第 49 行
这样的提示是不是Jmail不支持smtp验证?
回复
liuyangxuan 2004-11-24
用WebEasyMail吧,性能要比JMAIL好一些。
回复
gyasy 2004-11-24
我这次把邮件发送的操作放在另一个文件里处理,出现如下错误,是不是服务器的问题呀?
错误类型:
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
回复
gyasy 2004-11-24
这样设置也没有出现什么错误提示?
jmail.silent = false
回复
gyasy 2004-11-24
在自己定义的sub中如何将传递过来的变量与字符串连接? 我这样写对吗,我总感觉是这部分的问题。
像这样的:
Sub Jmail(data,sclientname,semail)
strContent = "'收到你于"&data&",提交的"&sclientname&"订单。'"
strEmail = ""&semail&""
end sub
另外我是否在能这个SUB中调用另外一个呢?
回复
colee 2004-11-24
Call Jmail(data,sclientname,semai)
=》
Call Jmail(data,sclientname,semail)

或者 jmail.silent = true => jmail.silent = false 看看报什么错误先
回复
gyasy 2004-11-24
邮件发送不成功呀!
最后有个Response.Redirect("order.asp"),结果根本没转到这个页面,以前只用发送一个邮件地址时,没问题,现在就是要发送多个地址,做个循环。
回复
手机APP开发 2004-11-24
什么地方出错了?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-24 09:06
社区公告
暂无公告