GetAssociatedTask 方法

       

返回 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