通过outlook发送提醒

Question

我们有一组需要执行的流程。有些是每天，有些是每周，有些是每月。为每个流程设置一个截止日期，然后才能完成。我们需要通过以下方式向团队发送提醒。

1. 如果流程每天运行且需要在特定时间之前完成，则应在提前2小时发送提醒

2. 如果它在某一天每周运行一次，那么应该在该特定日的上午10点发送提醒

3. 如果流程每月运行且需要在特定日期之前完成，则应在结束日期前一天发送提醒。

如何为上述任务创建VB脚本？

Answer 1

Reminder类不提供任何更改时间的属性或方法。但是，您可以在日历上为每个事件创建一个约会项目（它可以是一个周期性项目）并设置该项目的提醒。 AppointmentItem类的Misfit api reference属性返回一个整数，指示在约会开始之前提醒应发生的分钟数。 ReminderMinutesBeforeStart属性允许设置一个布尔值，如果为此项设置了提醒，则该值为True。例如：

Sub AddAppointment() 
 Dim apti As Outlook.AppointmentItem  
 Set apti = Application.CreateItem(olAppointmentItem)   
 apti.Subject = "Car Servicing"  
 apti.Start = DateAdd("n", 16, Now)  
 apti.End = DateAdd("n", 60, apti.Start)  
 apti.ReminderSet = True  
 apti.ReminderMinutesBeforeStart = 60  
 apti.Save  
End Sub