Outlook VBA教程:Respond方法

响应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:

无反应。


VBA示例

本 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

上页:Outlook VBA教程:ResolveAll方法 下页:Outlook VBA教程:Restrict方法

Outlook VBA教程:Respond方法:相关链接

Outlook VBA教程:Restrict方法 Outlook VBA教程:Save方法
Outlook VBA教程:SaveAs方法 Outlook VBA教程:SaveAsFile方法
Outlook VBA教程:Send方法 Outlook VBA教程:SetColumns方法
Outlook VBA教程:SetCurrentFormPage方法 Outlook VBA教程:SetIcon方法
Outlook VBA教程:ShowCategoriesDialog方法 Outlook VBA教程:ShowFormPage方法
Outlook VBA教程:ShowPane方法 Outlook VBA教程:SkipRecurrence方法
Outlook VBA教程:Snooze方法 Outlook VBA教程:Sort方法
Outlook VBA教程:Start方法 Outlook VBA教程:StartTimer方法
Outlook VBA教程:StatusReport方法 Outlook VBA教程:Stop方法
Outlook VBA教程:StopTimer方法 Outlook VBA教程:Update方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号