返回 TaskItem 对象,代表请求的任务。
注意 除非在调用 GetAssociatedTask 方法之前处理 TaskItem,否则该方法无法执行。若要执行该任务,请在调用 GetAssociatedTask 之前调用 Display 方法。
expression.GetAssociatedTask(AddToTaskList)
expression 必选。该表达式返回“应用于”列表中的一个对象。
AddToTaskList 必选,Boolean 类型。如果将任务添加到默认的“任务”文件夹中,则为 True。
本示例接受 TaskRequestItem,在不显示检查器的情况下发送响应。
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myTasks = myNameSpace.GetDefaultFolder(olFolderInbox)
Set mytaskreqItem = myTasks.items.Find _
("[Subject] = ""Meeting w/ Jerry Wheeler""")
If Not TypeName(mytaskreqItem) = "Nothing" Then
'The task is displayed.
mytaskreqItem.Display
Set myNewTaskItem = mytaskreqItem.GetAssociatedTask(True)
myNewTaskItem.Respond olTaskAccept, True, True
End If
如果使用 VBScript,则不创建 Application 对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。
Set myNameSpace = Application.GetNamespace("MAPI")
Set myTasks = myNameSpace.GetDefaultFolder(6)
Set myTaskReqItem = myTasks.items.Find("[Subject] = ""Meeting w/ Jerry Wheeler""")
If Not TypeName(myTaskReqItem) = "Nothing" Then
'The task is displayed.
myTaskReqItem.Display
Set myNewTaskItem = myTaskReqItem.GetAssociatedTask(True)
myNewTaskItem.Respond 2, True, True
End If