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

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对象）。