通过 Outlook 发送提醒

Question

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

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

2. 如果它每周在特定日期运行，则应在该特定日期的 IST 上午 10 点发送提醒

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

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

Answer 1

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