有什么方法可以自动接受Outlook 2016中的任务？

Question

运行Office365。我试图将任务分配给用户，并使其自动接受（由于某种原因这不是Outlook中的默认功能）。我已经研究并提出了以下代码：

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
End Sub


Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objTaskRequest As Outlook.TaskRequestItem
Dim objTask As Outlook.TaskItem
Dim objResponse As Object

If TypeOf Item Is TaskRequestItem Then
   Set objTaskRequest = Item
   Set objTask = objTaskRequest.GetAssociatedTask(True)
   Set objResponse = objTask.Respond(olTaskAccept, True, True)
   objResponse.Send
   objResponse.Delete
   objTaskRequest.Delete
End Sub

但是，当我向用户发送任务请求时，我得到：

并在调试时：

有什么想法吗？