通过outlook发送提醒

我们有一套需要执行的流程。有些每天做，有些每周做，有些每月做。每个流程都有一个截止日期，在此之前应该完成。我们需要通过以下方式向团队发送提醒

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

如果每周在某一天运行，则应在该特定日期的上午10点发送提醒

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

---

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

提醒类不提供任何更改时间的属性或方法。但您可以在日历上为每个事件创建约会项目（可以是经常性项目），并为该项目设置提醒。AppointmentItem类的属性返回一个整数，指示在约会开始之前提醒应该发生的分钟数。属性允许设置布尔值，如果已为此项目设置提醒，则该值为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