如何从提醒中获取实际约会/会议时间

Question

在ThisOutlookSession中，我添加了提醒的代码：

Private Sub obj_ReminderFire(ByVal ReminderObject As Reminder)
  If (ReminderObject.Caption = "Daily Update") then 
    ' Do some thing. 
    ' Check if the reminder is for today only 
    If (ReminderObject.OriginalReminderDate = Now) Then
       'Do more things
    end if
  end if
end sub 

由于我的提醒设置为在事件发生前 15 分钟发出警报，因此事件会在事件发生前 15 分钟触发。

如何从提醒中获取实际约会/会议时间？

Answer 1

如果你处理Reminder事件，你将得到与该事件相关的实际AppointmentItem、MailItem、ContactItem或TaskItem。

Answer 2

读取

Reminder.Item属性并适当地强制转换它（例如，AppointmentItem对象）。