通过

MeetingItem.GetAssociatedAppointment 方法 (Outlook)

  • 项目

返回一个 AppointmentItem 对象，该对象表示与会议要求相关的约会。

语法

expression。 GetAssociatedAppointment( _AddToCalendar_ )

表达 一个代表 MeetingItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
AddToCalendar 必需 Boolean True 将会议添加到默认的 日历文件夹。

返回值

AppointmentItem 对象，该对象表示关联的约会。

示例

此Visual Basic for Applications (VBA) 示例在尚未响应的默认收件箱文件夹中查找 MeetingItem，并将关联的约会添加到“日历”文件夹。 然后响应发件人通过接受会议。

Sub AcceptMeeting() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myMtgReq As Outlook.MeetingItem 
 
 Dim myAppt As Outlook.AppointmentItem 
 
 Dim myMtg As Outlook.MeetingItem 
 
 
 
 Set myNameSpace = Application.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) 
 
 Set myMtg = myAppt.Respond(olResponseAccepted, True) 
 
 myMtg.Send 
 
 End If 
 
End Sub

另请参阅

MeetingItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。