7,763
社区成员
发帖
与我相关
我的任务
分享ActiveX部件不能创建对象？？？？
代码如下：
运行时提示“ActiveX部件不能创建对象”
这是怎么回事？？？
Private Sub Command1_Click()
Dim objmail As Object
Set objmail = CreateObject("cdonts.dll")
objmail.Send "pchobby@163.com", "qbasic001@163.com", "Title", "Hello"
Set objmail = Nothing
End Sub
运行时提示“ActiveX部件不能创建对象”
这是怎么回事？？？
Private Sub Command1_Click()
Dim objmail As Object
Set objmail = CreateObject("cdonts.dll")
objmail.Send "pchobby@163.com", "qbasic001@163.com", "Title", "Hello"
Set objmail = Nothing
End Sub
...全文
请发表友善的回复…
发表回复
aimi0123456 2002-12-18
- 打赏
- 举报
是不是缺少点什么？比如OFFICE2000有没安装完全等，
antshome 2002-12-17
- 打赏
- 举报
Set objmail = CreateObject("cdonts.newmail")
