28,406
社区成员
发帖
与我相关
我的任务
分享使用阿activex中遇到的问题，请大家指点
我自己编了一个发送邮件的控件project1.usercontrol1
我在下面文件中使用，并将下面文件存为htm文件，能成功发送邮件
但我将下面文件放到web服务器上（其实也就是同一台机器），却无法发送邮件
我用err.description显示出来的错误是 object required
也就是该对象不存在，但我已经注册了该控件了
请问这是什么原因吗？
<html><body>
<h2>"hello activeX example"</h2>
<br>
<input type="button" value="script" name="script_button">
<script language="vbscript">
set tt=createobject("project1.usercontrol1")
tt.Smtpserver ="pdsmsx33"
tt.MailBox ="zhang,ye"
tt.MeetingStatus =1
tt.ResponseRequested =false
tt.Subject ="hello world"
tt.Text ="hello world"
tt.Importance =2
tt.Location ="meeting room"
tt.StartTime =date
tt.Endtime =date
tt.RecipientName ="ye.zhang@intel.com"
tt.SendCalendar
</script>
</body>
</html>
我在下面文件中使用，并将下面文件存为htm文件，能成功发送邮件
但我将下面文件放到web服务器上（其实也就是同一台机器），却无法发送邮件
我用err.description显示出来的错误是 object required
也就是该对象不存在，但我已经注册了该控件了
请问这是什么原因吗？
<html><body>
<h2>"hello activeX example"</h2>
<br>
<input type="button" value="script" name="script_button">
<script language="vbscript">
set tt=createobject("project1.usercontrol1")
tt.Smtpserver ="pdsmsx33"
tt.MailBox ="zhang,ye"
tt.MeetingStatus =1
tt.ResponseRequested =false
tt.Subject ="hello world"
tt.Text ="hello world"
tt.Importance =2
tt.Location ="meeting room"
tt.StartTime =date
tt.Endtime =date
tt.RecipientName ="ye.zhang@intel.com"
tt.SendCalendar
</script>
</body>
</html>
...全文
请发表友善的回复…
发表回复
jill_yang 2002-03-04
- 打赏
- 举报
我解决了，是安全性具体设置的问题
julyclyde 2002-02-28
- 打赏
- 举报
需要在浏览器这一端注册呀
jill_yang 2002-02-28
- 打赏
- 举报
难道没人能回答这个问题吗？
jill_yang 2002-02-28
- 打赏
- 举报
如果我不用createobject
用object标签，如下代码，那报的是对象不支持该属性与方法
<OBJECT CLASSID="clsid:BE218C1F-52BB-4393-9293-DF448AAEBEF3" ID="Usercontrol11" VIEWASTEXT>
</OBJECT>
<html>
<BODY>
<h2>"hello activeX example"</h2>
<br>
<input type="button" value="script" name="script_button">
<script language="vbscript">
on error resume next
'set tt=createobject("project1.usercontrol1")
usercontrol11.Smtpserver ="pdsmsx33"
msgbox(err.Description )
usercontrol11.MailBox ="Zhang,Ye"
usercontrol11.MeetingStatus =1
usercontrol11.ResponseRequested =false
usercontrol11.Subject ="hello world"
usercontrol11.Text ="hello world"
usercontrol11.Importance =2
usercontrol11.Location ="meeting room"
usercontrol11.StartTime =date
usercontrol11.Endtime =date
usercontrol11.RecipientName ="jill_yang@163.net"
usercontrol11.SendCalendar
</script>
</BODY>
</html>
用object标签，如下代码，那报的是对象不支持该属性与方法
<OBJECT CLASSID="clsid:BE218C1F-52BB-4393-9293-DF448AAEBEF3" ID="Usercontrol11" VIEWASTEXT>
</OBJECT>
<html>
<BODY>
<h2>"hello activeX example"</h2>
<br>
<input type="button" value="script" name="script_button">
<script language="vbscript">
on error resume next
'set tt=createobject("project1.usercontrol1")
usercontrol11.Smtpserver ="pdsmsx33"
msgbox(err.Description )
usercontrol11.MailBox ="Zhang,Ye"
usercontrol11.MeetingStatus =1
usercontrol11.ResponseRequested =false
usercontrol11.Subject ="hello world"
usercontrol11.Text ="hello world"
usercontrol11.Importance =2
usercontrol11.Location ="meeting room"
usercontrol11.StartTime =date
usercontrol11.Endtime =date
usercontrol11.RecipientName ="jill_yang@163.net"
usercontrol11.SendCalendar
</script>
</BODY>
</html>
纪俊 2002-02-28
- 打赏
- 举报
不会，关注
