GetAssociatedAppointment 方法

返回 AppointmentItem 对象，代表与会议要求相关的约会。

expression  必选。该表达式返回 MeetingItem 对象。

AddToCalendar  必选，Boolean 类型。如果为 True，将会议添加到默认的“日历”文件夹中。

示例

本 Visual Basic for Applications 示例在默认“收件箱”文件夹中查找 MeetingItem，并将相关约会添加到“日历”文件夹中。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(olFolderInbox)
Set myMtgReq = myFolder.Items.Find _
    ("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
If TypeName(myMtgReq) <> "Nothing" Then
   Set myAppt = myMtgReq.GetAssociatedAppointment(True)
End If

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(6)
Set myMtgReq = myFolder.Items.Find _
    ("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
If TypeName(myMtgReq) <> "Nothing" Then
   Set myAppt = myMtgReq.GetAssociatedAppointment(True)
End If

本示例接受约会要求，在不显示检查器的情况下发送响应。

Set myNewMeeting = myMtgReq.GetAssociatedAppointment(True)
myNewMeeting.Respond olResponseAccepted, True