R8.5于RTX接口调用问题

[求摸小手]

R8.5 DOMINO
OS WINDOWS2003 64
想实现在代理中调用RTX接口把信息发送到RTX
之前在8.0.2之使用一切正常
现在使用 8.5 后，出现一个问题

Sub Initialize
	Dim i As Integer
	Dim rtxrcver As String
	Dim userlisttemp As Variant
	Dim RTXObj  As Variant
	Dim RTXParams  As Variant
	Dim RTXResult  As Variant
	Set RTXObj = CreateObject("rtxserver.rtxobj") 
	Set RTXParams = CreateObject("rtxserver.collection")
	RTXParams.Add "USERNAME", "zouhua"   			 		'提醒提醒接收者
	RTXParams.Add "MSGINFO", "测试"					  	 	'提醒内容 不带超连链接的显示
	'RTXParams.Add "MSGINFO", Strleftback(taskdoc.F_CREATETIME(0),":")+"您有一条待办:[ " +info +"|"+taskdoc.GetFirstItem("F_URL").text+"]"	'提醒内容 带超链接的显示
	RTXParams.Add "TITLE",  "提醒"   					 		'提醒标题
	RTXParams.Add "TYPE", 0     						 		'0：普通消息，1：紧急消息。
	'RTXParams.Add "DELAYTIME", 3000 					 	'提醒消息显示时间多少秒	
	On Error Resume Next
	RTXResult = RTXobj.Call2( &H2100, RTXParams) 
	
	Messagebox "111"
	
	
End Sub

直接在 Designer 中 运行 代理，一切正常
但是在 WEB方面调用 该代理就会 出现 error: Cannot create automation object
请有遇到过该问题的朋友指教，在线等，谢谢