Question

vb6.0中运行代码提示:实时错误429:active X部件不能创建对象

运行代码：（一个发送邮件的代码）
Private Sub Command1_Click()
Dim objMail As Object
Set objMail = CreateObject("CDFONTS.DLL")
objMail.Send "me@hotmail.net ", "abc@263.net", "Title", "Hello"
Set objMail = Nothing
End Sub
运行时提示错误：实时错误429:active X部件不能创建对象
出错的地方在 Set objMail = CreateObject("CDFONTS.DLL")

我试过好多办法：
1，（我用的是XP系统）重新安装IIS，没用，system32文件里没有cdfonts.dll文件
2，我用网上下载一个cdfonts.dll文件，然后，在运行中，重新注册，提示注册成功。运行代码还是出错
3，另外，我删除cdfonts.dll文件，下载系统自带的cdfonts.dll，还是没用。运行代码还是出错
4，重新安装VB6.0中文版，运行代码还是出错
5，在【工程】-【引用】中添加Microsoft ActiveX Data Objects 2.5 Library对象的引用。运行代码还是出错
6，能用的办法都用完了。什么注册cdfonts.dll文件后，重启电脑。用正规的IIS安装，正规的cdfonts.dll文件。全部没用。运行时，还是那些问题。

Answer 1

那有这样的，参数字符串表示的是对象库名和对象名，比如像下面那样：
Set objEmail = CreateObject("CDO.Message")

你这个我不知道是什么，你可以在vb的引用对话框中点击浏览按钮，直接去把该文件引用进来。然后到对象浏览器中仔细查看一下这个对象库的库名及它包含哪些对象。
就像Microsoft ActiveX Data Objects 2.5 Library 与它的Dll文件名是不一样的。

追问

虽然，你没有直接的解决我的问题，但你已经点化我了。我已经成功发送了。用CDO.Message发送成功了。