Respond 方法

       

响应 AppointmentItem 对象的会议要求或 TaskItem 对象的任务要求。

expression.Respond(Response, fNoUI, fAdditionalTextDialog)

expression  必选。该表达式返回 AppointmentItem 或 TaskItem 对象。

Response  必选，OlMeetingResponse 常量。对要求的响应。

fNoUI  对 AppointmentItem 为可选，对 TaskItem 为必选。Boolean 类型。如果为 True 则不显示对话框；自动发送响应。如果为 False 则显示对话框进行响应。

fAdditionalTextDialog 对 AppointmentItem 为可选，对 TaskItem 为必选。Boolean 类型。如果为 False 则不提示用户进行输入；在检查器显示要编辑的响应。如果为 True 则提示用户或者直接发送或带批注发送。本参数只有在 fNoUI 为 False 时才有效。

注意 可选参数（fNoUI 和 fAdditionalTextDialog）的可能值以及后续结果如下所示：

fNoUI、fAdditionalTextDialog 结果
True、True 对于 AppointmentItem 和 TaskItem：

不带用户界面返回响应项目。要发送响应，必须调用 Send 方法。

True、False 对于 AppointmentItem 和 TaskItem：

与 True、True 结果相同。
False、True 对于 AppointmentItem：

提示在发送响应前进行发送或编辑。

对于 TaskItem：

如果已经调用 Display 方法，将出现用户提示。否则，在没有提示的情况下发送项目，而且结果项目为空。
False、False 对于 AppointmentItem：

用户界面中出现新响应项目，但没有提示。

对于 TaskItem：

无反应。

示例

本 Visual Basic for Applications 示例使用 Find 方法查找用户“收件箱”中的 MeetingItem。如果“收件箱”内没有会议要求，则通知用户。如果找到了会议要求，则调用 GetAssociatedAppointment 方法来获得 AppointmentItem 并且 Respond 支持接受。

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)
    myAppt.Respond olResponseAccepted, False, True
Else
    MsgBox "You have no meeting requests."
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)
    myAppt.Respond olResponseAccepted, False, True
Else
    MsgBox "You have no meeting requests."
End If