Есть ли способ автоматического принятия задач в Outlook 2016?

Question

Запуск Office 365. Я пытаюсь назначить задачу пользователю и автоматически принять ее, что по какой-то причине не является функцией по умолчанию в 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

Однако, когда я отправляю запрос задачи пользователю, я получаю:

И после отладки:

Есть идеи?