Private Sub Form_Load()
Dim RDOSession As Redemption.RDOSession
Set RDOSession = CreateObject("Redemption.RDOSession")
End Sub
给出错误:
应用程序定义或对象定义的错误 -2147221233
当应用程序加载时。可能是什么问题?
答案 0 :(得分:0)
错误表示未安装Redemption。
您是否使用regsvr32.exe安装了redemption.dll / redemtpion64.dll? 您的应用和Outlook的内容有多大?