在共享日历中创建约会项目 - 找不到对象异常

我正在尝试创建一个应用程序，允许用户使用 Outlook Interop 在共享 Outlook 日历上为我们的业务创建约会项目（你是这么说的吗？）。

日历位于我的帐户中，我已授予需要它的每个人的权限。这些用户可以创建和修改日历，而不会从他们的真实 Outlook 客户端中产生问题。我已经编写了以下函数，当它在我的帐户登录的情况下运行时运行良好。当我注销并进入其他用户帐户时，它会引发异常。

Public Sub AddAppointment()
    Try
        Dim Application As Outlook.Application = New Outlook.Application
        Dim NS As Outlook.NameSpace = Application.GetNamespace("MAPI")
        Dim RootFolder As Outlook.Folder
        Dim CalendarFolder As Outlook.Folder
        Dim PlumbingCalendarFolder As Outlook.Folder
        Dim Appointment As Outlook.AppointmentItem

        RootFolder = NS.Folders("[email protected]") 'exception here
        CalendarFolder = RootFolder.Folders("Calendar")
        FletcherCalendarFolder = CalendarFolder.Folders("Plumbing Tasks")
        Appointment = FletcherCalendarFolder.Items.Add("IPM.Appointment")

        'with/end with guts that define the appointmentitem here

        Appointment.Save()

        MessageBox.Show("An event for this due date was added to the calendar.")

        Application = Nothing
    Catch ex As Exception
        MessageBox.Show("The event for this due date could not be added to the calendar. The following error occurred: " & ex.Message)
    End Try
End Sub

当我尝试设置 RootFolder 时抛出异常 - 说“尝试的操作失败。找不到对象。当日历所有者登录时它工作的事实让我相信我不明白我应该如何从不同的帐户获取文件夹。我很亲近吗？我知道接收者对象并使用Outlook.Namespace.CreateRecipient、 以及 来创建并稍后解决它NameSpace.GetShareDefaultFolder，但是我尝试过的所有组合都以完全相同的方式失败。我觉得我错过了一些愚蠢的东西。