AppointmentItem.Respond 方法 (Outlook)

响应会议要求。

语法

expression. Respond( _Response_ , _fNoUI_ , _fAdditionalTextDialog_ )

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

参数

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

返回值

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

备注

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

下表描述了根据父对象,并使用 fNoUIfAdditionalTextDialog参数的 响应 方法的行为。

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。