Outlook VBA -在会议接受时更改会议提醒时间

Question

我已经不止一次被烧伤了，我接受了别人的会议，但忘记检查会议提醒时间。有时没有提醒，或者在会议开始前15分钟，而会议在城市的另一边。

我想把会议时间从0或15分钟自动更改为至少30分钟，超过30分钟的时间保持不变。或者如果有一种方法可以在会议接受中弹出消息框，上面写着"嘿，检查您的会议提醒时间!"

我认为这可以帮助很多人。谢谢!

Answer 1

您可以设置会议项。ReminderTime属性，该属性返回或设置一个日期，该日期指示指定项目的提醒应该发生的日期和时间。

要处理传入的项目，您可以使用Application类的NewMailEx事件，该事件为Microsoft Outlook处理的每个收到的项目触发一次。项目可以是几种不同的项目类型之一，例如，MailItem、MeetingItem或SharingItem。EntryIDsCollection字符串包含该条目对应的Entry ID。

NewMailEx事件在新消息到达收件箱并在客户端规则处理发生之前触发。使用由EntryIDCollection字符串表示的条目ID来调用命名空间。GetItemFromID方法并处理该项。

Answer 2

我刚刚看到一篇类似的文章。我确实成功了，谢谢你!下面是我修改的代码。

Public WithEvents objCalendar As Outlook.Folder
Public WithEvents objCalendarItems As Outlook.Items
Private Sub Application_Startup()
Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar)
Set objCalendarItems = objCalendar.Items

End Sub
Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
Call SetReminder(Item)
End Sub
Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
Call SetReminder(Item)
End Sub
Private Sub SetReminder(ByVal objCalendarItem As Object)
Dim objMeeting As AppointmentItem
If TypeOf objCalendarItem Is AppointmentItem Then
Set objMeeting = objCalendarItem

If objMeeting.ReminderMinutesBeforeStart < 30 Then
MsgBox "The meeting reminder was under 30 minutes.  This will auto set the reminder to 30 minutes.  You might want to notify the other participants."
objMeeting.ReminderSet = True
objMeeting.ReminderMinutesBeforeStart = 30
objMeeting.Save
End If

End If

End Sub