AppointmentItem.Respond 方法 (Outlook)

响应会议要求。

语法

expression. Respond( _Response_ , _fNoUI_ , _fAdditionalTextDialog_ )

表达 一个代表“AppointmentItem”对象的变量。

参数

名称	必需/可选	数据类型	说明
响应	必需	OlMeetingResponse	响应要求。
fNoUI	可选	Variant	如果为 True 则不显示对话框；自动发送响应。 如果为 False 则显示对话框进行响应。
fAdditionalTextDialog	可选	Variant	假 不提示用户进行输入;响应显示在检查器中进行编辑。 真 要提示用户或者直接发送或带批注发送。 此参数是 fNoUI为 假 的情况下才有效。

返回值

一个表示对会议要求的响应的 MeetingItem 对象。

备注

使用 olMeetingAccepted 或 olMeetingTentative 参数的 响应 方法调用时，Outlook 将创建新的约会项目，它将复制原始的约会项目。 新的项目会有不同的条目 id。 Outlook 将删除原始项目。 您应该不再使用原始项的项 ID，而应调用 EntryID 属性获取新项目的项目标识。 这是为了确保如果多个客户端计算机访问您的日历，但可能脱机使用缓存模式有时此约会项目程序，将正确地同步您的日历上。

下表描述了根据父对象，并使用 fNoUI和 fAdditionalTextDialog参数的 响应 方法的行为。

fNoUI、fAdditionalTextDialog	结果
True、True	不带用户界面返回响应项目。 若要发送响应，必须调用 Send 方法。
True、False	与 True、True 结果相同。
False、True	在发送响应前提示用户进行 发送或 编辑。
False、False	用户界面中出现新响应项目，但不显示任何提示。

示例

此 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

另请参阅

AppointmentItem 对象

支持和反馈

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