代码之家 › 专栏 › 技术社区 › Jason Stallard

从Excel 2013中致电WebEx Outlook AddIn

excel-2013 outlook-addin outlook vba excel

Jason Stallard · 技术社区 · 6 年前

我正在自动处理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

房间只是我最好的猜测,但它什么也没用。我错过了一个技巧。