在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分钟前触发。
如何从提醒中获得实际预约/会议时间?
答案 0 :(得分:0)
如果您处理Reminder
事件,则会获得事件所属的实际AppointmentItem
,MailItem
,ContactItem
或TaskItem
。< / p>
答案 1 :(得分:0)
读取Reminder.Item
属性并将其适当地转换(例如,转移到AppointmentItem
对象)。