我正在自动处理大多数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只是我最好的猜测，但它什么也不做。我错过了一个技巧。