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

【问题标题】：Custom Outlook Meeting Notice Form from Shared Calendar共享日历中的自定义 Outlook 会议通知表
【发布时间】：2015-06-07 19:18:14
【问题描述】：

我正在尝试创建一个约会/会议通知模板，该模板可防止转发，默认为不需要响应，并且是从委派/共享日历发送的。我有脚本来更改所需的响应，并且可以禁用操作中的转发选项，但我无法确定委托。我找到了 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，但它只打开共享日历。它不会将约会设置为来自共享日历。如果我将其放入“查看代码”部分并尝试运行表单，则会出现代码错误。我觉得我错过了告诉它从委派日历发送但我找不到它的步骤。谢谢。

【问题讨论】：

标签： forms vba vbscript outlook ms-office

【解决方案1】：

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

【讨论】：

看来我需要代码中的约会细节才能使用 items.add。我有一个我在 Outlook 中创建的表单，其中包含删除响应请求的代码，并且禁用了转发。我需要经常使用此模板，但要使用与我共享的日历，而不是我自己的日历。我找不到可让我将其设置为来自该共享日历的代码。