Question

我正在尝试创建一个阻止转发的约会/会议通知模板，默认为无需响应，并从委派/共享日历发送。我有脚本来更改所需的响应，并可以在操作中禁用转发选项，但我无法弄清楚委托。我找到了getname脚本：

Sub ResolveName()
    Dim myNamespace As Outlook.NameSpace
    Dim myRecipient As Outlook.Recipient
    Dim CalendarFolder As Outlook.Folder

    Set myNamespace = Application.GetNamespace("MAPI")
    Set myRecipient = myNamespace.CreateRecipient("Larry M Garrett")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Call ShowCalendar(myNamespace, myRecipient)
    End If
End Sub

Sub ShowCalendar(myNamespace, myRecipient)
    Dim CalendarFolder As Outlook.Folder

    Set CalendarFolder = _
        myNamespace.GetSharedDefaultFolder _
        (myRecipient, olFolderCalendar)
    CalendarFolder.Display
End Sub

这适用于visual basic，但它只打开共享日历。它不会将约会设置为来自共享日历。如果我把它放入“视图代码”部分并尝试运行表单，我会收到代码错误。我觉得我错过了我告诉它从委托日历发送的步骤，但我找不到它。感谢。

Answer 1

您似乎需要使用共享日历文件夹来创建约会项目。使用sharedCalendarFolder.Items.Add方法创建约会。

共享日历中的自定义Outlook会议通知表单

1 个答案: