Question

全部，我工作的公司使用Excel作为日历，以定义我们每天工作的各个项目的日常任务。我设法使用VBA创建了一个宏，该宏将为启动该宏的员工创建一系列Outlook任务。这些任务将显示在其Outlook帐户和手机上（这样做的真正原因）。然后，他们可以在手机或计算机上完成任务时标记其任务。

最初，我想将任务发送给员工。我所看到的缺点是：当我们有人请病假时，任务将重新分配并在员工中重新安排。由于我们无权访问他们各自的Outlook帐户，因此我们无法删除他们不再需要执行的任务或仅添加新任务。因此，我们决定与员工一起单独启动宏。

我要问的问题是……如果我们的主管想知道某人是否已经完成一项任务（很少发生），那么我要负责她的密件抄送。如果员工通过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

Outlook任务未按预期发送StatusOnCompletion通知

0 个答案: