VBA Groupwise Email

Question

Я использую Excel 2013, Windows 7, Groupwise 12.

Код должен быть довольно простым, но я получаю ошибку

"Активный компонент X не может создать объект"

Я удостоверился, что ссылки есть в соответствии с документами по разработке Groupwise, которые являются просто их "gwcma1.dll", и я просто не могу понять, что происходит.

Теория прямо сейчас заключается в том, что Groupwise был установлен таким образом, чтобы не заполнять информацию реестра, необходимую для кода, чтобы создать объект, даже если он находится в браузере объектов.

Код:

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

Я годами использовал этот код в старых версиях Excel, Windows и в группах, и не могу понять, что изменилось.

---РЕДАКТИРОВАТЬ---

Вот начальная часть кода. После этого просто стандартные циклы и логика, которая все работает.

Вот первая часть этого. После этого, это просто стандартные циклы и логика.

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 позволял вам использовать прокси-доступ к электронной почте, который меня не беспокоил.

Для создания нового приложения мне может потребоваться обновление синтаксиса, но я предполагаю, что вы предлагаете что-то вроде:

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