通过outlook发送提醒

Question

我们有一组需要执行的过程。有些是每天做的，有些是每周做的，还有一些是每月做的。每个进程都有一个最后期限，在此之前完成。我们需要通过以下方式向团队发送提醒。

1. 如果该过程每天运行，并且需要在特定时间之前完成，则应在此之前2小时发送提醒。
2. 如果在某一天每周运行一次，则应在当天上午10时发出提醒。
3. 如果流程按月运行，并且需要在某一天之前完成，则应该在结束日期的前一天发送提醒。

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

Answer 1

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