FreeBusy Outlook方法无法在VB.NET中运行

Question

我正在尝试使用VB.NET（而不是VBA）从我公司获取联系人的约会信息，我能找到的唯一方法是可以找到VBA定义的FreeBusy方法here。

到目前为止，我提到了这段代码：

[   
    { 
        "caption": "Reg Replace: Extract ERS Variables",
        "command": "reg_replace",
        "args": {
            "replacements": [
                "extract_variables"
            ]
        }
    }
]

然而，当到达FreeBusy方法时，Visual Studio会抛出一个带有唯一标签Dim AppOutlook As New Outlook.Application Dim appt As Outlook.AppointmentItem = CType(AppOutlook.CreateItem( Outlook.OlItemType.olAppointmentItem), Outlook.AppointmentItem) Dim recip1 As Outlook.Recipient = appt.Recipients.Add("Jack Smith") MsgBox(recip1.FreeBusy(#05/06/2018#, 60)) 的异常而没有进一步的细节。

我检查了变量receipt1是否为空，但它没有，并且它与正确的电子邮件地址有正确的联系。

我真的不知道自己做错了什么。