VBA Groupwise电子邮件

我正在使用Excel 2013,Windows 7,Groupwise 12。

代码应该是非常简单的,但我不断收到错误

“Active X组件不能创build对象”

根据Groupwise的开发文档,我已经确定了这些参考文档,这些文档就是他们的“gwcma1.dll”,我不知道是怎么回事。

现在的理论是,Groupwise以某种方式安装,没有填充代码创build对象所需的registry信息,即使它在对象浏览器中。

码:

Dim gwAccount As GroupwareTypeLibrary.Account2 Set gwApp = CreateObject("NovellGroupwareSession") 

我在excel和windows的老版本和groupwise上使用了这个代码多年,我找不出什么改变了。

– -编辑 – –

这是代码的开始部分。 之后,这只是标准循环和逻辑,所有的工作。

这是它的第一部分。 在这之后,这只是标准循环和逻辑。

 Sub EmailPDFs() Dim i, k As Long Dim PhysicianCount As Long Dim StartPoint As Long Dim CurrentNPI As Long Dim CurrentEmail As String Dim CurrentFileName As String Dim CurrentFilePath As String Dim CurrentDate As String Dim EmailBody As String 'Declaration for Email Dim gwMessage As GroupwareTypeLibrary.Message2 Dim gwAccount As GroupwareTypeLibrary.Account2 Dim gwApp As GroupwareTypeLibrary.Application Set gwApp = CreateObject("NovellGroupwareSession") Set gwAccount = gwApp.Login() 

—编辑2 —

我尝试了Application2,仍然是相同的错误。 我想我正在尝试较旧的一个,对象的属性是相同的,但Application2让你做代理电子邮件访问,我不担心。

为了创build一个新的应用程序,我可能需要刷新语法,但我假设你正在build议类似于:

  Dim xlApp as Excel.Application Set xlApp = New Excel.Application 'Early Binding Set xlApp = CreateObject(“Excel.Application”) 'Late Binding