Как я могу получить фактическое время встречи/встречи с напоминанием?

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).