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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。