Задача Outlook не отправляет уведомление StatusOnCompletion, как ожидалось - PullRequest
Новая
       7

Задача Outlook не отправляет уведомление StatusOnCompletion, как ожидалось

0 голосов
/ 06 ноября 2018

Все, Компания, в которой я работаю, использует Excel в качестве своего рода календаря для определения ежедневных задач для различных проектов, над которыми мы работаем каждый день. Мне удалось создать макрос с помощью VBA, который создаст серию задач Outlook для сотрудника, который запускает макрос. Эти задачи будут отображаться в их учетной записи Outlook и на мобильном телефоне (реальная причина для этого). Затем они могут помечать свои задачи по мере их выполнения на телефоне или компьютере.

Первоначально я хотел отправить задания персоналу. Недостаток, как я вижу, заключается в следующем: когда у нас кто-то вызывает больных, задачи перераспределяются и перераспределяются среди персонала. Поскольку у нас нет доступа к их отдельным учетным записям Outlook, мы не можем удалить задачи, которые им больше не нужны, или добавить только новые. Итак, мы решили, что сотрудники просто запустят макрос самостоятельно.

Вопрос, о котором я спрашиваю, заключается в том, что ... если наш супервайзер хочет посмотреть, выполнил ли кто-то задание (это случается не очень часто), у меня есть его BCC на задании. Если сотрудник помечает задачу как выполненную на своем компьютере через Outlook, уведомление по электронной почте отправляется руководителю. Если они помечают задачу как выполненную на своем телефоне, она помечается как выполненная в Outlook, но электронное письмо не отправляется супервизору. Любые идеи о том, почему пометить его как полный через Outlook против их телефона будет иметь значение?

Спасибо

Код ниже ... 

       Set OutTask = OutApp.CreateItem(olTaskItem)

       Set myRecipient = OutTask.Recipients.Add(Worksheets("Outlook").Cells(selfMail, 2))
       myRecipient.Resolve

        If myRecipient.Resolved Then

            If (Worksheets("Outlook").Cells(selfMail, x).Font.Italic = True) Then
                Set bbRecipient = OutTask.Recipients.Add("email address here")
                bbRecipient.Type = olBCC
                bbRecipient.Resolve
            End If

           With OutTask
              .Subject = Worksheets("Outlook").Cells(selfMail, x)
              .StartDate = Answer
              .DueDate = Answer
              .Assign
              .Save ' Using Save instead of Send as one cannot send a task to themselves
           End With
       End If
...