执行提醒前发生。
Private Sub expression_ReminderFire(ByVal ReminderObject As Reminder)
expression 该变量引用一个在类模块中以事件形式声明的 Reminders 类型对象。
ReminderObject 必选。被执行的 Reminder 对象。
以下示例会在每次执行提醒时向用户显示一条消息。
Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder)
'Occurs when a reminder executes
MsgBox "The reminder " & ReminderObject.Caption & " has just executed."
End Sub