に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 分前に発生します。
リマインダーから実際の予定/会議時間を取得するにはどうすればよいですか?