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

我正在尝试创建一个预约/会议通知模板以防止转发，默认情况下不需要任何响应，并且从委派/共享日历发送。我有脚本来改变所需的响应，并可以禁用动作中的转发选项，但我无法弄清楚委托。我找到了getname脚本：共享日历中的自定义Outlook会议通知表格

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中，但它只能打开共享日历。它不会将约会设置为来自共享日历。我收到代码错误，如果我把它放到“查看代码”部分并尝试运行窗体。我觉得我错过了我告诉它从委托日历发送的步骤，但我找不到它。谢谢。

来源

2015-04-02 AD1

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

来源

2015-04-02 18:27:52

它看起来像我需要在代码中约会的细节使用items.add。我在Outlook中创建了一个表单，该表单有删除响应请求的代码，并禁用转发。我需要经常使用此模板，但是需要使用与我共享的日历，而不是从我自己的日历中分享。我无法找到允许我将其设置为来自共享日历的代码。 – AD1 2015-04-03 17:28:20

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

回答

相关问题