响应 AppointmentItem 对象的会议要求或 TaskItem 对象的任务要求。
expression.Respond(Response, fNoUI, fAdditionalTextDialog)
expression 必选。该表达式返回 AppointmentItem 或 TaskItem 对象。
Response 必选,OlMeetingResponse 常量。对要求的响应。
OlMeetingResponse 可为以下 OlMeetingResponse 常量之一。 |
对于 AppointmentItem 对象: |
olMeetingAccepted |
olMeetingDeclined |
olMeetingTentative |
对于 TaskItem 对象: |
olTaskAccept |
olTaskAssign |
olTaskDecline |
olTaskSimple |
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