Вызов надстройки Outlook WebEx из Excel 2013 - PullRequest
Новая
       16

Вызов надстройки Outlook WebEx из Excel 2013

0 голосов
/ 05 декабря 2018

Я автоматизирую большую часть приглашения календаря Outlook, но пытаюсь вызвать надстройку COM.Я вычислил ProgID, чтобы указать его правильно, но не вижу способа перечислить доступные объекты. 

Dim OutlookApp As Object, OutlookInvite As Object
Dim addIn As COMAddIn, automationObject As Object
Set OutlookApp = GetObject(class:="Outlook.Application") 
SDM = Sheets("Sheet1").Range("F2").Value
Set OutlookInvite = OutlookApp.CreateItem(1)
With OutlookInvite
    .MeetingStatus = 1
    .Subject = "foo"
    .Body = "bar"
    .Recipients.Add SDM
    .Start = Now()
    .Duration = 30
    .BusyStatus = 2
    .ReminderMinutesBeforeStart = 15
    .ReminderSet = True
    Set addIn = OutlookApp.COMAddIns("WebExOI.Addin")
    Set automationObject = addIn.Object
    automationObject.AddPersonalRoom
    .Display
End With

AddPersonalRoom - только мое лучшее предположение, но он ничего не делает.Мне не хватает трюка.

...