| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1652 人关注过本帖
标题:邮件组件 (Jmail,CDONTS 在服务器上都提示无权限)
只看楼主 加入收藏
zhangxin_fly
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-2
收藏
 问题点数:0 回复次数:5 
邮件组件 (Jmail,CDONTS 在服务器上都提示无权限)

<%if request("Submit")="提交" then
Email=request("email")
dim objCDOMail
Set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="Email"
objCDOMail.To ="yang@yahoo.com" '接收人的邮箱(将表单内容发邮件到一固定地址)
objCDOMail.Subject ="邮件发送测试"
'body=request.Form("cont") '获取表单内容
objCDOMail.Body ="fdgfdgfd"
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send
Set objCDOMail = Nothing
'msg="发送成功!"
'WriteMsg(msg)
response.Write "邮件发送成功!"
end if
%>

<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

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


%>

搜索更多相关主题的帖子: 服务器 CDONTS Jmail objCDOMail 
2007-04-02 17:32
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
应该是服务器没有开启Jmail,CDONTS组件支持。

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-04-02 18:04
zhangxin_fly
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-2
收藏
得分:0 

我已经用asp探针测试,提示支持Jmail,CDONTS组件
两种方法服务器都提示没权限

2007-04-02 18:45
zhangxin_fly
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-2
收藏
得分:0 

Jmail,CDONTS组件都是我亲自装上的,并进行测试
可都提示:(Microsoft VBScript 运行时错误 错误 '800a0046' 没有权限 )

<%if request("Submit")="提交" then
Email=request("email")
dim objCDOMail
Set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="Email"
objCDOMail.To ="yang@yahoo.com" '接收人的邮箱(将表单内容发邮件到一固定地址)
objCDOMail.Subject ="邮件发送测试"
'body=request.Form("cont") '获取表单内容
objCDOMail.Body ="fdgfdgfd"
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send //提示这行没权限(objCDOMail.Send )
Set objCDOMail = Nothing
'msg="发送成功!"
'WriteMsg(msg)
response.Write "邮件发送成功!"
end if
%>

高手来帮帮忙呀

2007-04-02 18:51
caor1987
Rank: 1
等 级:新手上路
帖 子:228
专家分:0
注 册:2006-10-15
收藏
得分:0 
你还好知道是没有权限,我提示发送成功,但是却收不到邮件。
2007-04-03 09:34
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
没遇到过这中状况

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-04-03 09:57
快速回复:邮件组件 (Jmail,CDONTS 在服务器上都提示无权限)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044435 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved